| |
８：００から１５：００にtest1()を実行し１５：００から８：００までtest2()を実行したいのでコーディングしてみたのですがうまくいきません。どう修正すればよいでしょうか？
Sub MainProcedure()
Dim currentTime As Date
currentTime = Now
Dim startTime As Date
Dim endTime As Date
startTime = TimeValue("08:00:00")
endTime = TimeValue("15:00:00")
If currentTime >= startTime And currentTime <= endTime Then
Call test1
Else
Call test2
End If
End Sub
Sub test1()
' 08:00から15:00の間に実行したい処理を記述
MsgBox "test1 プロシージャが実行されました。"
End Sub
Sub test2()
' 15:00から08:00の間に実行したい処理を記述
MsgBox "test2 プロシージャが実行されました。"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
