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

match ·j´M¤£¦P¤u§@ªí¥i¥H«ü©wÅܼƶÜ?

match ·j´M¤£¦P¤u§@ªí¥i¥H«ü©wÅܼƶÜ?

¦p¥DÃD:match ·j´M¤£¦P¤u§@ªí¥i¥H«ü©wÅܼƶÜ?
°²³]~
¤u§@ªíAAA¸Ì­±AÄ榳
AA001
AA002

¤u§@ªíBBB¸Ì­±AÄ榳
BB001
BB002

¤u§@ªíCCC¸Ì­±·Q¨Ï¥ÎMATCH
A1Ä欰AAA
A2Ä欰BBB
A3Ä欰·j´M­È(°²³]¬°AA001)
A4¬°MATCHªºµ²ªG

°õ¦æCells(4, 1) = [MATCH(A3,AAA!A1:A20,0)]
¥i¸Õ¥X AA001 ¦b AAAªí¤¤ªº²Ä1­Ó¦ì¸m¡C
­Y·Q§â·í¤¤ªºAAA!§ï¦¨Åܼƪº¤è¦¡¡A½Ð°Ý¸Ó¦p¦ó­×§ï?

¨Ò¦p§ï¦¨
Cells(4, 1) = [MATCH(A3,Worksheets(Cells(1, 1)A1:A20,0)]
´N·|¥X²{¿ù»~¤F~ ¦³ÂI·Ð´o
ÁÙ±æ«e½ú«üÂI°g¬z¡A¦³³Ò¶O¤ß¤F¡AÁÂÁÂ

demo match.zip (16.2 KB)

G¤j±z¦n~³o¨â½g§Ú³£¦³¬Ý¹L¤F³á~ ¤£¹L¯à²z¸Ñ¦³­­¡A
¤j·§ª¾¹D[]¤¤¤£±µ¨üÅܼƪº¦r¦ê¡A©Ò¥H§âµ{¦¡½X§ï¦¨
Private Sub CommandButton1_Click()
Cells(4, 1) = Application.Match(A3, Sheets("AAA").Range("A1:A10"), 0)
End Sub
'¥Ø¼Ð¬O³z¹L¥Ø«e¤u§@ªíCCCªºA3Äæ¸ê®Æ(AA001)¡A¥hmatch¤u§@ªíAAA¤¤A1~A10²Å¦XAA001ªº¦ì¸m«á¡A¼g¦b¤u§@ªíCCCªºCells(4, 1)¦ì¸m
¦p¦¹ÁÙ¬O·|§ä¤£¨ì¥Ø¼Ð³á~ ¯àÀ°¦£«üÂI¶Ü~~ ¤£¦n·N«ä¤F

TOP

¦^´_  citizen0923
GBKEE µoªí©ó 2015-9-24 05:43



ÁÂÁÂG¤j~ §Ú¸Õ¥X¨Ó¤F!!
Private Sub CommandButton1_Click()
Dim sheetx As String
sheetx = Cells(1, 1)
Cells(4, 1) = Application.Match(Range("A3"), Sheets(sheetx).Range("A1:A10"), 0)
End Sub
§ï¦¨³o¼Ë~´N¥i¥H¦Û¥Ñªº§ó§ï·j´Mªº¤À­¶¦WºÙ¤F~ ¦A¦¸·PÁ±z~!!ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD