excel vba 遅延のソースゴード

質問

excel vba で動作させたものを動作の遅延をさせたいのですが、本コーナーで教えて頂いた下記の
コードをどの様に使えばいいのでしょうか。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Sample()
　　Range("A1") = 0
　　For i = 1 To 10
　　　　Sleep 500　'500msec(0.5秒)待機
　　　　Range("A1") = i
　　Next i
End Sub
ーーーーーーーーーーーーーーーーーー
（ｂｆ38：ｂｎ38）を赤　　（bo38：ｂｙ38）を緑にします。この動作を赤から緑になるまでに少し遅延させたいのです。mt2008さんに教えて頂きましたが解決できませんでした。継続して再質問させていただきたかったのですが、方法がわかりませんでしたので、このような形になりましたお許し下さい。

Range("BF38:Bn38").Select

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 3

End With

Range("Bo38:By38").Select

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 4

End With

End Sub

回答No.1

mt2008 · ベストアンサー

前の回答の時にDeclareの説明をしなかったのがまずかったですね。

「Sleep」はExcel関数ではなく、Windowsの機能の一部です。
これをExcel VBAで使用できるようにするために、Declare文を使って使用を宣言する必要があります。

まず、モジュールの先頭に↓を置いてください（Sub　～ End Sub　の外です）。これが、Sleepを使えるようにする宣言です。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

これでSleep 関数が使用できるようになります。

Sleepを入れるのは↓の前ですね。

> Range("Bo38:By38").Select

1秒待機するなら、↓の様にしてください。

Sleep　1000
Range("Bo38:By38").Select

こんな感じです。

お礼

mt2008さん、ありがとうございました。
教えて頂いたとうり修正して、クリックした瞬間、久しく味わった事のない感動と充実感が湧いてきました。
そうです、見事に「遅延」の状況が表示されました。ほんとに、ほんとにありがとうございました。
今後ともよろしくお願いいたします。