"Vlookup" and "Match" in VBA

am0251

§Ú¥­±`³£·|¥Î«Ü¦h"Vlookup" ¸ò "Match",¦pªG§Ú·Q¥ÎVBAªº¤è¦¡¼g¥X¨Ó,¸Ó«ç»ò°µ©O?

oobird

http://forum.twbts.com/viewthrea ... p;extra=&page=1
³o¸Ì¦³¦bvba¤¤¤Þ¥Î¤u§@ªí¨ç¼Æªº¹ê¨Ò

am0251

ÁÂÁ¦^ÂÐ,¥i±¤§ÚÅv­­¤£°÷,¤£¯à¤U¸ü,¥i¥H²³æªº¤¶²Ð¤@¤U¶Ü?

oobird

¤èªk1¡G¥Îapplication.¤Þ¥Î¤½¦¡
¤èªk2.¥Îevaluate+¤½¦¡
¤èªk3.¥Î¤¤¨í¸¹§â¤½¦¡®Ø°_¨Ó

am0251

ÁÂÁÂ,§Ú¸Õ¤F...
x = Range("D" & z).Application.Formula = " [=MATCH(Sheets1!""ItemName"",Sheets2!A:A,0)]"
´N¬O¤£¦æ,¥i¥H§i¶D§Ú,§Ú¿ù¦b­þ¸Ì¶Ü?
ÁÂÁÂ~~!

oobird

Range("d" & z) = Evaluate("MATCH(""ItemNam"",Sheet2!A:A,0)")

oobird

¤W­z¦C¥Xªº¤èªk§A¥u¯à¿ï¤@¼Ë
¤£¯à¨C¼Ë¦P®É¥Î¡AÁÙ¥[¤W¿ý»sªº¥N½X
«e­±"x="¤]¤£¯à¥[¦b¸Ì­±¡A­þ¯à³o»ò¦hµ¥¸¹¡H

am0251

«Ü©_©Ç,§Ú¸Õ¹L:
ItemNam = Range("A" & z).Value
x = Application.WorksheetFunction.Match(""ItemNam"",, Sheets("OUT").Range("A:A"))
¬O¤£¦æªº,¥u¦³¤£¥ÎÅܼÆ"ItemNam"¦Óª½±µ§â"Range("A" & z).Value"¥´¶i¥h¤~¯à¥Î Book1.rar (12.98 KB)

¤U¸ü¦¸¼Æ: 31

2011-6-22 17:12

oobird

ÅܼƦ³Åܼƪº¥Îªk¡A¸ò¦r²Å¬O¤£¦Pªºªí¥Ü¡C
ÅܼƤ£¥ÎÂù¤Þ¸¹¡C

oobird

¶â¡A¤W¶ÇÀÉ®×´N¦n¿ì¤F¡I
§ï³o¼Ë

1. Sub test()
   
2. 
   
3. Dim x As Integer
   
4. Dim y As Integer
   
5. Dim z As Integer
   
6. Dim ItemName As String
   
7. 
   
8. z = 2
   
9. 
   
10. Do While Range("A" & z).Value <> ""
    
11. 
    
12. ItemNam = Worksheets("Sheet1").Range("A" & z).Value
    
13. 
    
14. x = Application.Match(ItemNam, Sheet2.[A1:A100], 0)
    
15. 
    
16. Debug.Print x
    
17. 
    
18. z = z + 1
    
19. 
    
20. Loop
    
21. 
    
22. End Sub

½Æ»s¥N½X