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

質問

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

回答No.1

soixante · ベストアンサー

切り替えるということで、シート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秒ごとです。

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

お礼

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