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

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

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

·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


§Úªº¼gªk¬O³o¼Ë..¤@ª½¥Î¤£¥X¨Ó¡A·PÁ¦U¦ì¤j¤j

Sub ¥¨¶°1()

Dim Rng As Range

Set Rng = Range("B1:AN1").Find("A1", lookat:=xlWhole)

Rng.Address

End Sub

¥»©«³Ì«á¥Ñ d03ey ©ó 2020-6-18 01:00 ½s¿è

¦^´_ 1# d03ey
¼Ó¤W¨â¦ì¤j¤j¡A§Ú³£¦³´ú¸Õ¤F¦ý·|¶i¤Jdebug

¤U­±¬O´ú¸ÕÀÉ(¼g¥¢±Ñªº)


    Test Find.rar (14.27 KB)

TOP

¦^´_ 6# n7822123


    ·PÁ­ô~¦¨¥\¤F ·P¿E¤£ºÉ

TOP

¦^´_ 7# ­ã´£³¡ªL


    ·PÁÂ!!!¦³¦¨¥\¤F ·P¿E¤£ºÉ

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD