Application.CalculationおよびScreenUpdatingの挙動の安定性

Question

よろしくお願いいたします。

質問の主旨は、Application.Calculation = xlCalculationManual　や、ScreenUpdating＝False　とした場合の、挙動は常に同じなのか、あるいは、そのときのPCの調子やエクセルの気まぐれで不安定なのかどうか、ということです。

セルA1には、「あいうえお」　と入力されていて、
セルB1には、　=A1 　となっていて、
セルC1には、　=IF (B1 ="あいうえお" ,"OK","NO") 　となっているとします。

この状態で、以下の命令を実行した場合どうなるでしょう。

Public Sub test()

Application.Calculation = xlCalculationManual
    Range("A1") = "かきくけこ"
    MsgBox Range("A1") & " / " & Range("B1") & " / " & Range("C1") & " / " & IIf(Range("B1") = "あいうえお", "OK", "NO")
Application.Calculation = xlCalculationAutomatic
    MsgBox Range("A1") & " / " & Range("B1") & " / " & Range("C1") & " / " & IIf(Range("B1") = "あいうえお", "OK", "NO")
    
    Range("A1") = "あいうえお"
End Sub

この場合、

１回目　＝　かきくけこ / あいうえお / OK / OK
２回目　＝　かきくけこ / かきくこけ / NO / NO

と、100回実行しても必ず同じ結果になるでしょうか？

また、

Public Sub test2()

Application.ScreenUpdating = False
    Range("A1") = "かきくけこ"
    MsgBox Range("A1") & " / " & Range("B1") & " / " & Range("C1") & " / " & IIf(Range("B1") = "あいうえお", "OK", "NO")
Application.ScreenUpdating = True
    MsgBox Range("A1") & " / " & Range("B1") & " / " & Range("C1") & " / " & IIf(Range("B1") = "あいうえお", "OK", "NO")
    
    Range("A1") = "あいうえお"

End Sub

このプロシージャの場合は、
１回目２回目とも、　かきくけこ / かきくこけ / NO / NO　と、
100回実行しても必ず同じ結果になるのでしょうか？

Answer 1

Application.Calculation = xlCalculationManual、ScreenUpdating = False
で高速化できるということは、広く知られているので、それを使用した設計も多くあると思います。
しかし、そのために不安定になったという報告は、私は見たことがありません。

そのような質問をされるということは、
不安定になった経験があるのでしょうか。
それとも、そのような報告をどこかで見たのでしょうか。

Answer 2

一つ気になるのが、
Calculation プロパティです。
もし、Falseになっているのであるれば、事例ののうな結果で出る可能性があります。
ScreenUpdating のプロパティが、Trueになっていていも、
Calculation プロパティが False では、表示は変化しないものです。

Comments

[hatena19]

高速化の手法として、重い処理の前に、
Application.Calculation = xlCalculationManual、ScreenUpdating = False
を挿入、重い処理の最後に、
Application.Calculation = xlCalculationAutomatic、ScreenUpdating = True
を挿入というのは、あちこちのWEBサイトや書籍で紹介されています。
このことを質問者さんは質問されていると思いますが、
これで想定外の動作になったということでしょうか。