|
実行回数にもよりますが、例えば↓のようにすると Ary_T を「実行した瞬間」から
5秒後,10秒後,15秒後に "Sheet1" の A2,A3,A4 セルに値を入力できます。
Sub Ary_T()
Dim TAry As Variant
Dim i As Long
TAry = Array("00:00:05", "00:00:10", "00:00:15")
For i = 0 To 2
Application.OnTime Time + TimeValue(TAry(i)), "Test_T"
Next i
End Sub
Sub Test_T()
With Sheets("Sheet1")
.Activate
.Range("A65536").End(xlUp).Offset(1).Value = _
Format(Now(), "yyyy.m.d.hh.mm.ss")
End With
End Sub
実時間を指定するなら Ary_T のコードを
TAry = Array("18:00:00", "18:30:00", "19:00:00")
For i = 0 To 2
Application.OnTime TimeValue(TAry(i)), "Test_T"
Next i
というようにします。これを参考にして、組み立ててみて下さい。
|
|