match ·j´M¤£¦P¤u§@ªí¥i¥H«ü©wÅܼƶÜ?
- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2015-11-30
|
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)
|
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2015-11-30
|
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 |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2015-11-30
|
¦^´_ 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~!!ÁÂÁ |
|
|
|
|
|
|