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

[µo°Ý] ½Ð±Ð match K½u °ÝÃD?

¥»©«³Ì«á¥Ñ 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·Q­nª¾¹D¨ì©³¬O¦h¤[¤ñ¹ï¤@¦¸ªº«ü¥O¨Ã¤£¦b§A©Ò´£¨Ñªºµ{¦¡¬q¤¤.
¦¹¬qµ{¦¡½X(¨C³æ¦¸¤ñ¹ï°Ê§@)°õ¦æÀW²v­n¬Ý¹ê»Ú¤W¨ä©Ò¦bªº Sub °Ï¶ô¦h¤[·|³Q©I¥s¤@¦¸(¶È©ó½L¤¤®É¬q).

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD