[Excel] マクロで「応答なし」を回避する方法

背景：Excelのマクロがloopを含み、長い時間がかかる場合、「応答なし」になる

解決手段：ループの中に、DoEvents 関数を入れる

例：
　For i = 1 To 1000
（計算）
　DoEvents
　Next

備考：
１）「応答なし」という表示はWindowsが出している
２）DoEvents 関数は、一時的にOSに制御を移す関数
３）これによる計算時間アップは、通常、ほぼ無視できる程度
４）マクロ計算時間短縮は、非常に効果がある
５）これには、以下の方法で、表示機能を停止させる
　　ループ処理の前に
　　Application.ScreenUpdating = False
　　処理後に
　　Application.ScreenUpdating = True
６）これでは進行状況が見えないので、下部のステータスバーに表示させる
　　例：Application.StatusBar = "I=" & i & "を計算中"
　　処理後に、
　　　　Application.StatusBar = False
７）ただし、これは「応答なし」回避には役立たないし、「応答なし」状態では、表示が変化しない
８）MsgBoxを表示すると、ＯＫボタンを押すまで処理が中断してしまうので、不便