VBA 数式の計算が止まらない

質問

下記マクロはE列に１～１０を記入し、G列に数式で２倍して記入するものです。
数式の計算を事前に止めてる筈ですが、ステップモードで実行し確認すると、全部計算されてます。
Application.Calculation = xlCalculationManual
これが効いてないないのです。

なぜでしょうか？

Sub Macro1()

For i = 1 To 10
Cells(i, "E") = i
Next i

Application.Calculation = xlCalculationManual
For i = 1 To 10
Cells(i, "G").Formula = "=E" & i & "*2"
Next i
Application.Calculation = xlCalculationAutomatic

End Sub

回答No.2

don9don9 · ベストアンサー

「自動計算する/しない」の設定は、「既に数式が入力されているセルで」「他のセルの値が変更されたときに」自動的に再計算をするかどうかです。
「セルに数式を入力するとき」あるいは「既に数式が入力されているセルの数式を変更するとき」には、「自動計算する/しない」の設定に関係なくそのセル自身の計算は行われます。

例えば、処理の順番を変えてG列の計算式を先に入れた後にE列に値を入れるようにした

Sub Macro1()
Application.Calculation = xlCalculationManual
For i = 1 To 10
Cells(i, "G").Formula = "=E" & i & "*2"
Cells(i, "E") = i
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

と、ここから
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
を除いた

Sub Macro2()
For i = 1 To 10
Cells(i, "G").Formula = "=E" & i & "*2"
Cells(i, "E") = i
Next i
End Sub

この二つの動作を比べてみればわかるのではないかと思います。

お礼

ありがとうございます。
理屈が分かりました。完璧です。

回答No.1

Chiquilin

よく分かりませんが「何」が返って欲しいのですか？

何がしたいのかが この説明ではよく分かりません。何をやろう
としてこの処理を行っているのですか？

自動計算を切った状態でも 数式を入れて確定すれば計算結果は
返ります。別にマクロに限った話じゃないですよね？

それを抜きにしても その後で自動計算を自動にしているし……

お礼

ありがとうございます。
私もあなたが何のために回答してるのか、さっぱり分かりません。