- ©«¤l
- 15
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-3-16
- ³Ì«áµn¿ý
- 2020-11-2
|
¦^´_ 11# ã´£³¡ªL
·Q¦A½Ð±Ð¤j¤j §Ú¬O¬Ý°ê»Ú´Á³f ©Ò¥H·Q§ï¥L¶}¦¬½L®É¶¡ °²³]§Ú·Q¶}½L¬O¤U¤È6ÂI ¦¬½L¬Oâ±á2ÂI ¤£ª¾¹D¸Ó«ç»ò§ï©O?ÁÂÁÂ:D
Sub ¦@¥Î°Ñ·Ó()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("X2")
StartTime = "18:00:00" '¶}½L®É¶¡¡]´£¦¤Q¬í¶}©l¡A¤~¥i°O¿ý¶}½L¶q»ù¡^"08:44:50"
EndTime = "02:00:00" '¦¬½L®É¶¡¡]©µ«á¤Q¬í°±¤î°O¿ý¡^¦¹¬°´ú¸Õ¥Î®É¶¡¡A½Ð¦Û¦æ§ó§ï¥¿¦¡®É¶¡ "13:45:10"
End Sub
Sub ¦Û°Ê°O¿ý()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
Sht1.[O8] = "°õ¦æ¤¤"
uMode = 0
Exit Sub
End If |
|