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

[µo°Ý] Excel VBA ¬d§ä¼gªk

¦^´_ 1# d03ey


»Ý¨D¡G
·Q°Ý°Ý¦U¦ì¤j¯«  ¬ã¨s¤F«Ü¤[¼g¥X¨Ó³£©Ç©Çªº
§Ú¦bA1®æ¨ç¼Æ³]©w=today()¡A©Ò¥H¨C¦¸¶}excel³£·|¸õ¤µ¤Ñ¤é´Á   
µM«á±qB1~AN1  ¬°¤@³s¦ê¤é´Á¡A(¨Ò¦p2020/05/01,2020/05/02,.......)
¤µ¤Ñ±ý³]­p¤@­Ó±±¨î«ö¶s
«ö¤@¤U¥¦·|¦Û°Ê¦bB1~AN1´M§ä¬O¤£¬OA1Ä檺¤é´Á
|³Ì«á·|°±¦b§ä¨ìªº¤é´Á¤W

¨SÀÉ®×´ú¸Õ¡ã¡ã¡ã¦Û¤v¸Õ¬Ý¬Ý§a¡I

Sub ¥¨¶°1()
[B1:AN1].Find([A1], , xlValues, xlWhole).Select
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 5# d03ey


§Úªºµ{¦¡¨S¦³°ÝÃD³á~~

Test Find++.rar (12.47 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD