[發問] 指定時間執行巨集問題請教

rouber590324

DEAR  ALL 大大
如圖一為指定時間 30分執行巨集之方式.
但我要每5分執行一次.要寫太長串程式
有無辦法簡化.煩不吝賜教  THANKS*10000

圖一
Sub BB()
Application.OnTime TimeValue("08:00:00"), "test"
Application.OnTime TimeValue("08:30:00"), "test"
Application.OnTime TimeValue("09:00:00"), "test"
Application.OnTime TimeValue("09:30:00"), "test"
Application.OnTime TimeValue("10:00:00"), "test"
Application.OnTime TimeValue("10:30:00"), "test"
Application.OnTime TimeValue("11:00:00"), "test"
Application.OnTime TimeValue("11:30:00"), "test"
Application.OnTime TimeValue("12:00:00"), "test"
Application.OnTime TimeValue("12:30:00"), "test"
Application.OnTime TimeValue("13:00:00"), "test"
Application.OnTime TimeValue("13:30:00"), "test"
Application.OnTime TimeValue("14:00:00"), "test"
Application.OnTime TimeValue("14:30:00"), "test"
Application.OnTime TimeValue("15:00:00"), "test"
Application.OnTime TimeValue("15:30:00"), "test"
Application.OnTime TimeValue("16:00:00"), "test"
Application.OnTime TimeValue("16:30:00"), "test"
Application.OnTime TimeValue("17:00:00"), "test"
..........................
End Sub

Hsieh

回復 1# rouber590324


    '早上點到下午點每分鐘執行次
For t = TimeValue("08:00:00") To TimeValue("17:00:00") Step TimeValue("00:05:00")
   Application.OnTime t, "test"
Next

rouber590324

DEAR  Hsieh 大大 -
1.感謝您. 100%符合需求  THANKS