EXCELVBAを使ってシートを一定時間ごとに連続で切り替えるマクロを

EXCELVBAを使ってシートを一定時間ごとに連続で切り替えるマクロを組みたいのですがどう書けばいいのかわかりません。どうすればいいのでしょうか

No.1 ベストアンサー 回答者： soixante 回答日時： 2010/09/04 19:20

切り替えるということで、シート1枚目から最後までスライドショーのような形でいいのでしょうか。

標準モジュールの Option Explicit の下に

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

と記載した上で、

Sub ShKirikae()

Dim ShCnt As Integer
Dim k As Integer
ShCnt = Worksheets.Count

For k = 1 To ShCnt
　　 Worksheets(k).Select
　　Sleep 500
Next k

End Sub

http://www.moug.net/tech/acvba/0130003.htm

Sleep のあとはミリ秒単位です。1ミリ秒＝1000分の1秒。
したがって　Sleep 500 ですと、0.5秒ごとです。

ご意向にそぐっていますか。

この回答へのお礼

ありがとうございます。
まさにそれがやりたかったもので
ミリ秒単位で書いてくださったことも助かりました。

お礼日時：2010/09/05 09:46