マクロについて

質問

マクロでデータをクリアするコマンドボタンを作りました。でも、計算の答えがでなくなりました。

例えば、
A1：A10までの情報はクリアになります。
答えの“=SUM(A1:A10)”というCセルだけが前の情報のままになります。（Cセルはマクロに登録していません。）

全くのど素人で、マクロの登録も他の書類からコピーしてセルだけ変えました。
マクロの内容は、下記の通りです。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日
'
Sub allclear()
Application.Calculation = xlManual
Range("D4").Value = ""
Range("B6").Value = ""
Range("B8").Value = ""
Range("E11").Value = ""
Range("E12").Value = ""
Range("F11").Value = ""
Range("B21").Value = ""
Range("B23").Value = ""
Range("B25").Value = ""
Range("B27").Value = ""
Range("B29").Value = ""
Range("P5:P9").Value = ""
Range("Q5:Q9").Value = ""
Range("P15:P19").Value = ""
Range("Q15:Q19").Value = ""

End Sub

よろしくおねがいします。（_ _）

回答No.2

gatyan · ベストアンサー

#1です
ツール ー オプションで、計算方法を自動にしてください。

消した命令は、再計算の方法を手動に変更するためのものです。マクロの実行が終了しても、自動的に再計算する状態には戻りません。

マクロで自動再計算にするなら、最後に
Application.Calculation=xlCalculationAutomatic
(=の右に書く定数名は xlAutomatic でもいいはずです)
を追加してください。

お礼

ありがとうございました。
できました。
本当にありがとうございました。

回答No.3

imogasi

質問前半の例とマクロの例が内容が一致して無いのでは。
Cセルとは？
何がやりたいか文章表現したほうが、回答者には理解しやすく応えやすいわかる。
例えば、セルの値は消しても、関数の計算式は生かしたいとか。
まあもう少し勉強してからでないと、質問もVBAに沿った観点から適切に表現できないのかもしれないが。

お礼

本当にそのとおりです。
できました。
ありがとうございました。

回答No.1

gatyan

Application.Calculation = xlManual
再計算に時間があまりかからないのなら、これをやめてみてください。

お礼

ご回答ありがとうございます。
早速やってみました。
ですが数字をいれても、SUMやその他の関数の計算が動きません。＞＜