| ©«¤l94 ¥DÃD28 ºëµØ0 ¿n¤À145 ÂI¦W0  §@·~¨t²Îwindows ³nÅ骩¥»office 2007 ¾\ŪÅv20 µù¥U®É¶¡2011-9-22 ³Ì«áµn¿ý2025-2-25 
 | 
 «ü©w®É¶¡±Ò°Ê°ÝÃD
| ¤j®a¦n §Ú³]p¤@Ó¥¨¶°ÀH®É¯à°õ¦æ¡A·Q§Q¥ÎA®É¶¡¨Ó°õ¦æAµ{¦¡¡AB®É¶¡¨Ó°õ¦æBµ{¦¡¡C
 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
 
 ¥i¬O¬°¦ó³£¥u¯à¦bA®É¶¡°õ¦æ¥¨¶° Aµ{¦¡¤~·|°Ê¡AB®É¶¡°õ¦æ¥¨¶°Bµ{¦¡¤~·|°Ê¡A
 ¦³µL¿ìªk¦b¥ô¦ó®É¶¡°õ¦æ¥¨¶°¡A¥iµ¥«ÝA®É¶¡¨ì°õ¦æAµ{¦¡¡AB®É¶¡¨ì°õ¦æBµ{¦¡©O? ÁÂÁÂ
 | 
 |