Excel VBA：ループ中に画面が更新されない

Question

ループが行われている間にイメージが消えて再表示されるようにしようとしています。私はそれを踏んだとき、意図したとおりにコードが動作しますが、私がそれを実行すると、ループが終了するまで画面は更新されません。

DoEventsとActiveWindow.SmallScrollのようなものを追加しようとしましたが、hereが見つかりましたが、何も動作していないようです。私はこの問題が自分のPC /設定/バージョンのExcelと関係があり、ループが一部の人々のマシンで動作するかもしれないと感じています。私はsample file hereをアップロードしました。

私のコードは次のとおりです。

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

Sub ToggleImage() 

For i = 1 To 20 

Application.ScreenUpdating = True 

ActiveSheet.Shapes("Picture 1").Visible = False 
ActiveSheet.Shapes("Picture 2").Visible = True 

ActiveSheet.Shapes("Picture 1").Visible = True 
ActiveSheet.Shapes("Picture 2").Visible = False 

Sleep 50 


Next 


End Sub 

サンプルワークブックが装着されています。

Answer 1

DoEventsにはイベントを行う時間が必要です;-)。あなたが睡眠の後に一度それを呼び出すならば、それは全く役に立たない。中には、が動作する必要があります。

次のように動作するはずです：

Sub ToggleImage() 

Dim dTime As Double 

For i = 1 To 20 

    'ActiveSheet.Range("a1").Value = i 

    ActiveSheet.Shapes("Picture 1").Visible = False 
    ActiveSheet.Shapes("Picture 2").Visible = True 

    dTime = Time 
    Do While Time < dTime + 1/24/60/60/2 
    DoEvents 
    Loop 

    ActiveSheet.Shapes("Picture 1").Visible = True 
    ActiveSheet.Shapes("Picture 2").Visible = False 

    dTime = Time 
    Do While Time < dTime + 1/24/60/60/2 
    DoEvents 
    Loop 

Next 


End Sub 

しかし、あなたは50ミリ秒に一時停止を短縮することができません。シートをリフレッシュするだけでも時間がかかります。