¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 31# GBKEE
GBKEE¤j§A¦n¡F
§Ë¤F¥b¤Ñ..¼W¥[¦n¦hÓ¡H¡H¡H¬Ý¨Ó§Ú¬OÁ|Âù¤â§ë°¤F..¥H¤U¬O§ïªº..¤£ª¾¬O§_¥¿½T¡H
½Ð°ª¤â«ü¾É~~ÁÂÁÂ~~
'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
¡°¤W±¤G¦æ[Àç·~®É¶¡¤~°õ¦æ]®É¶¡¥¼¦ó¤£¤@P¡H
If Second(Time) Mod 30 = 0 Then '¶¡¹j30¬í
'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....
¡°¤W±¤G¦æ¦p§Ú»Ýn1¤À¡A¬O§_¤G¦æ³£n§ï Mod 60 = 0 Then¡A¶¡¹j60¬í
This Workbook¤w§ï¦¨¡F
'Sheets("µ¦²¤°O¿ý").[b10:g10] ¤À§O¬O¥H¤UªºDEE
'[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ] |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 75
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 371
- ÂI¦W
- 1
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2024-11-1
|
¦^´_ 32# cfuxiong
If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
§ï¬° If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
´ú¸Õ´Nª¾¹D |
|
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 33# f3202
§ï¬° If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub
¬°¦ó¬O[#11:30:00 PM#]¡H |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 75
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 371
- ÂI¦W
- 1
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2024-11-1
|
¦^´_ 34# cfuxiong
=23:00:00
¥¿±`13:45:00§Y°±¤î°õ¦ævba |
|
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 36# GBKEE
GBKEE¤j§A¦n¡F½Ð±Ð2Ó°ÝÃD...
Cells(4, 2) = 9 ' ¬ö¿ý±q10¦C¶}©l [¹ï¶Ü¡H]
If Second(Time) Mod 60 = 0 Then '¶¡¹j60¬í
'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....
[¬O§ï¤@¦æÁÙ¬O¤G¦æ³£n§ï¡H]
ªþ¥ó¡F½Ð«ü¾É¬O§_OK...ÁÂÁÂ!! |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-15 07:21 ½s¿è
¦^´_ 37# cfuxiong
µ{¦¡½X¤¤ ¨C¦æµ{¦¡½X «e±ªº ' ¬O§@¬°µ{¦¡½Xªºµù¸Ñ(¸ÑÄÀ¥Î) µ{¦¡¤£·|°õ¦æªº- If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
- If Second(Time) Mod 60 = 0 Then '¶¡¹j60¬í
- 'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í .... ³o¦æ¬Oµù¸Ñ¸ÑÄÀ Á|¦C 5 ¬°¨C5¬í Ãþ±À....
- With Sheets("µ¦²¤°O¿ý")
- .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
- Pos = .Cells(4, 2)
- .Cells(Pos, 1) = Time
- ' .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value '** ¦p°õ¦æ¦¹¦æ ·|¦³2Ó "#NA"
- ' ***** Resize(, 8)³o¸Ì¬O8Äæ ,[b10:g10] ³o¸Ì b:g ¥u¦³6Äæ
- .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value ' °õ¦æ¦¹¦æ´N¥i¥H ** nקאּ 6¤Î¦ì§} **
- 'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
- '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ] '¥u¦³6Äæ
- End With
- End If
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 38# GBKEE
GBKEE¤j§A¦n¡F¯à§_·Ð½Ð¬d®Ö[¥¨¶°]¬O§_½s¿è¥¿½T¡A(8:45~13:45)¸ê®Æ¬O¦³¼´¶i¨Ó¦ý«o¤£¯à°O¿ý~~ |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 38# GBKEE
¹ï¤£°_~~~§Ñ¤Fªþ¥ó~~ |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|