- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2012-9-15 00:30 ½s¿è
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
'If Sheet1.Range("¤j¥x ...
¦A¥ÎMATCH¤ñ¹ï²{¦b®É¶¡(¤j¥x®É¶¡) ¨º«ç»òª¾¹D¦h¤[¤ñ¹ï¤@¦¸ÁÙ¬O¤£Â_¦b¤ñ¹ï?...
seemee µoªí©ó 2012-9-14 13:18 
Æ[¹î¸Ó¬qµ{¦¡¤¤,
°ß¤@»P®É¶¡¦³Ãöªºµ{¦¡½X¬°:
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
µM¦Ó³o¬qµ{¦¡½Xªº¥\¯à¶È¶È¬O§PÂ_Y«D½L¤¤®É¶¡«h¸õ¥X¦¹ Sub ¤£°õ¦æ¨ä¤ºªº¨ä¥L§@·~.
¦Ó
pos1 = Application.Match(Sheet1.Range("¤j¥x®É¶¡"), Sheet1.Range("®É¶¡¤@"), 1) + 301
«h¥u¬O°õ¦æ¤@Ópºâ§@·~ªºµ{¦¡½X.
¬G¦Ó§A·Qnª¾¹D¨ì©³¬O¦h¤[¤ñ¹ï¤@¦¸ªº«ü¥O¨Ã¤£¦b§A©Ò´£¨Ñªºµ{¦¡¬q¤¤.
¦¹¬qµ{¦¡½X(¨C³æ¦¸¤ñ¹ï°Ê§@)°õ¦æÀW²vn¬Ý¹ê»Ú¤W¨ä©Ò¦bªº Sub °Ï¶ô¦h¤[·|³Q©I¥s¤@¦¸(¶È©ó½L¤¤®É¬q). |
|