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

[µo°Ý] ½Ð±Ð­n°O¿ý1¤ÀKªº¶}°ª§C¦¬,­n¦p¦ó§ó§ï?

¦^´_ 7# f3202

f32022¤j ¤£¦n·N«ä ~§Ú¥u¬O¤p¾Ç¥Í·Q­n§ó¤F¸Ñ³o­Ó¤@¤ÀÄÁ¦Û°Ê°O¿ý¬O«ç»ò¹F¨ìªº,ÁÙ¤£¯à¤U¸üªþ¥óÀÉ!!¤£ª¾¹D¯à¤£¯àºI­Ó¹ÏÅý§Ú¬ã¨s¬ã¨s©O?«ô°U«ô°U!!

TOP

¦^´_ 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

TOP

«D±`·PÁ­㴣³¡ªL¤j¤j
¥i¥H¥¿±`¨Ï¥Î¤F
ÁÂÁÂ~

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD