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

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

¦^´_ 9# gery


EXCEL¡DªÑ²¼¡DDDE¶Ç¿é¸ê®Æ¡D©T©w®É¶¡¦Û°Ê°O¿ý
http://blog.xuite.net/smile1000mile/blog/95125899

¦³¨Ç½d¨ÒÀɤU¸ü³sµ²¤w¥¢®Ä, ¥i¦h¸Õ´X­Ó(ª`·N:¤U¸üÀÉÀɦW¬O§_¬Û¦P)

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

¦^´_ 12# gery

¸Õ¸Õ¬Ý:
If Time > TimeValue(EndTime) And Time < TimeValue(StartTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
¡@Sht1.[O8] = "¤w¹L¦¬½L"
¡@uMode = 0
¡@Exit Sub
End If

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD