【Excel VBA】ワークシートの再計算

Excelでワークシート再計算を実行中にマウス操作をすると、再計算がリセットされ表示が中途半端になることがある。
再計算中は操作を受け付けないようにすることで、この事象を回避できる。なお、再計算をマクロで実行する場合、Application.Calculateで実行するとマルチコアで実行が可能。

Option Explicit

Sub 再計算()

	If vbNo = MsgBox("再計算しますか？", vbYesNo + vbInformation, ThisWorkbook.Name) Then Exit Sub

	Application.Interactive = False
	Application.Calculate
	Application.Interactive = True

	MsgBox "再計算完了", vbOKOnly + vbInformation, ThisWorkbook.Name

End Sub

Option Explicit

Sub 再計算()

If vbNo = MsgBox("再計算しますか？", vbYesNo + vbInformation, ThisWorkbook.Name) Then Exit Sub

Application.Interactive = False

Application.Calculate

Application.Interactive = True

MsgBox "再計算完了", vbOKOnly + vbInformation, ThisWorkbook.Name

End Sub