- ©«¤l
- 94
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 145
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-9-22
- ³Ì«áµn¿ý
- 2021-10-18
|
«ü©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? ÁÂÁ |
|