¨D§U VBA Vlook n°õ¦æ¦n¤[
- ©«¤l
- 12
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-30
- ³Ì«áµn¿ý
- 2013-6-4
|
¨D§U VBA Vlook n°õ¦æ¦n¤[
Dear ¤j¤jÌ
¤U¦C¬O§Ú¤Uªº«ü¥O¡A¥i¬On°õ¦æ¦n¤[~~
½Ð°Ý
1.n¦p¦óקï¤~¤£·|°õ¦æ¨º¨Ó¤[
2.n¦p¦ó¥[¤J·íVµL¸ê®Æ®É¡A¥HªÅÈÅã¥Ü
ÁÂÁÂ~ ·P¿E¤£ºÉ
Dim i As Integer
Range("d4:d2000") = "" '(²M°£Â¦³¸ê®Æ)
For i = 4 To 2000 '(¨M©w¦³´X¦h¦æ)
Range("D4").Select
Cells(i, "D") = "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)"
Cells(i, "D") = Cells(i, "D").Value
Next i |
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 1# JOSH
Ó¤H«Øij..
¦pªG±zn¥ÎVBA ¼gªk
¥i¥H¤£¥Î©ë§ô©ó "=XXXXXX"
ª½±µ§PÂ_´N¦n..
¨Ò¦p
For i = 4 To ActiveSheet.Range("a4").CurrentRegion.Rows.Count
If (InStr(1, ¤u§@ªí1.Cells(i, 1), "·j´M") >= 1) Then
¤u§@ªí1.Cells(i, 7) = "find"
¤u§@ªí1.Cells(i, 11) = InStr(¤u§@ªí1.Cells(i, 1), "·j´M")
s = s + 1
else
¤u§@ªí1.cells(i,7)=""
End If
next |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-30
- ³Ì«áµn¿ý
- 2013-6-4
|
¤j¤j~~ ½Ð°Ý§Ú¨º¸Ì¿ù¤F¶Ü?
½Ð«ü¾É
ÁÂÁÂ
Sub h()
For i = 4 To ActiveSheet.Range("a4").CurrentRegion.Rows.Count
If (InStr(1, Summary!.Cells(i, 1), "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)") >= 1) Then
Summary!.Cells(i, 7) = "find"
Summary!.Cells(i, 11) = InStr(Summary!.Cells(i, 1), "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)")
s = s + 1
Else
Summary!.Cells(i, 7) = ""
End If
Next
End Sub |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-30
- ³Ì«áµn¿ý
- 2013-6-4
|
¤j¤j~~ ½Ð°Ý§Ú¨º¸Ì¿ù¤F¶Ü?
½Ð«ü¾É
ÁÂÁÂ
Sub h()
For i = 4 To ActiveSheet.Range("a4") ...
JOSH µoªí©ó 2012-11-15 17:31
Spare parts2.zip (9.52 KB)
|
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 3# JOSH
Sub h()
For i = 4 To ActiveSheet.Range("a4").CurrentRegion.Rows.Count
If (InStr(1, Summary!.Cells(i, 1), "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)") >= 1) Then
Summary!.Cells(i, 7) = "find"
Summary!.Cells(i, 11) = InStr(Summary!.Cells(i, 1), "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)")
s = s + 1
Else
Summary!.Cells(i, 7) = ""
End If
Next
End Sub
Summary! .cells(XXXXXXXXXXXX
§ï¦¨ Summary.cells(XXXXXXXXXXXXXXX |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-30
- ³Ì«áµn¿ý
- 2013-6-4
|
¦^´_ 5# Hsieh
ª©¤j~~
¥i¥H³Â·Ð§A¦AÀ°§Ú¬Ý¬Ý¶Ü~
§Ú±a¥X¨Óªº¸ê®Æ³£¤@¼Ë
ÁÂÁÂ
Spare parts 1.zip (266.21 KB)
|
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-30
- ³Ì«áµn¿ý
- 2013-6-4
|
Dear Hsieh ª©¤j~~
¥i¥HÀ°§Ú¬Ý¬Ý¶Ü?2012-11-16 18:01
ÁÂÁÂ |
|
|
|
|
|
|