標題: [發問] 指定時間執行巨集問題請教 [打印本頁]

---

作者: rouber590324    時間: 2017-2-17 11:32     標題: 指定時間執行巨集問題請教

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    時間: 2017-2-17 15:28

回復 1# rouber590324


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

---

作者: rouber590324    時間: 2017-2-17 16:02

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)