大家好
我設計一個巨集隨時能執行,想利用A時間來執行A程式,B時間來執行B程式。
Sub test()
If TimeValue(Now) >= TimeValue("19:40:00") And TimeValue(Now) <= TimeValue("20:00:00") Then ''''''''''''A程式
Sheets("sheet1").Select
Cells(1, "A") = 1
End If
If TimeValue(Now) >= TimeValue("20:00:00") And TimeValue(Now) <= TimeValue("20:50:00") Then ''''''''''''B程式
Sheets("sheet1").Select
Cells(1, "A") = 2
End If
end sub