Application.OnTime の使い方
エクセルのマクロで、過ぎた時間の背景を
グレーにする予定表を作ろうとしてます。
試しに一秒ごとにグレーにしようと以下のものを書いてみたのですが
1セルしかグレーになりません。
理想としては1秒、2秒、3秒ごとに一つずつセルを変えたいです。
range * i で型の問題がある気がするのですが、
なにかアドバイスあればよろしくお願いします。
以下は関数のページです。
TimeValue
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vsfcttimevalue.asp
OnTime
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbawd10/html/womthOnTime.asp
----------------------------------------------------
Sub timer()
Dim range As Integer
For i = 1 To 100
range = TimeValue("0:00:01")
my_time = Now + (range * i)
Application.OnTime my_time, "setBg"
Next
End Sub
Sub setBg()
Cells(Second(Now), 1).Interior.ColorIndex = 16
End Sub
お礼
ありがとうございます。折りたたみ式メニューと言うのですね。これで色々調べる事ができます。誠に有難う御座いました。