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

d03ey

·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

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


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

d03ey

¦^´_ 6# n7822123


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

­ã´£³¡ªL

¦^´_ 5# d03ey


keyword = Range("a1")
Set Rng =(Range("D3:AN3").Find(keyword,lookat:=xlWhole)

¦h¤F¤@¥ª¬A¸¹(
·j´M¤£¦b²Ä 3 ¦C

n7822123

¦^´_ 5# d03ey


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

Test Find++.rar (12.47 KB)

¤U¸ü¦¸¼Æ: 13

2020-6-18 03:11

d03ey

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

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


    Test Find.rar (14.27 KB)

´ú¸Õ
¤U¸ü¦¸¼Æ: 13

2020-6-18 00:59

n7822123

¦^´_ 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

adrian_9832

¦^´_ 1# d03ey


Sub test()

Dim Rng As Range

keyword = Range("d1")


Set Rng = Range("a1:a11").Find(keyword, lookat:=xlWhole)

Rng.select


End Sub

adrian_9832

1. Sub tets()
   
2. 
   
3. keyword = Range("d1")
   
4. 
   
5. i = 1
   
6. 
   
7. Do Until Cells(i, 1) = ""
   
8. 
   
9. 
   
10. If Cells(i, 1) = keyword Then
    
11.     Cells(i, 1).Select
    
12.     MsgBox ActiveCell.Address
    
13. End If
    
14. 
    
15. 
    
16. 
    
17. 
    
18. 
    
19. i = i + 1
    
20. Loop
    
21. 
    
22. 
    
23. 
    
24. 
    
25. 
    
26. 
    
27. End Sub

½Æ»s¥N½X