ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] «ü©w®É¶¡°õ¦æ¥¨¶°°ÝÃD½Ð±Ð

[µo°Ý] «ü©w®É¶¡°õ¦æ¥¨¶°°ÝÃD½Ð±Ð

DEAR  ALL ¤j¤j
¦p¹Ï¤@¬°«ü©w®É¶¡ 30¤À°õ¦æ¥¨¶°¤§¤è¦¡.
¦ý§Ú­n¨C5¤À°õ¦æ¤@¦¸.­n¼g¤Óªø¦êµ{¦¡
¦³µL¿ìªk²¤Æ.·Ð¤£§[½ç±Ð  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
ù

¦^´_ 1# rouber590324


    '¦­¤WÂI¨ì¤U¤ÈÂI¨C¤ÀÄÁ°õ¦æ¦¸
For t = TimeValue("08:00:00") To TimeValue("17:00:00") Step TimeValue("00:05:00")
   Application.OnTime t, "test"
Next
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

DEAR  Hsieh ¤j¤j -
1.·PÁ±z. 100%²Å¦X»Ý¨D  THANKS
ù

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD