¤@­ÓVLOOKUP¨ç¼Æ°ÝÃD

317

¤j¤j­Ì, ¦w¦n
¦³¤@VLOOKUP°ÝÃD½Ð±Ð,²{§âªþ¥ó¤W¶Ç, ½Ð¤j¤j­Ì±Ð¾É, ÁÂÁÂ!!
Book1.rar (8.71 KB)

¤U¸ü¦¸¼Æ: 13

2012-4-22 22:09

317

¦^´_ 16# Hsieh
ÁÂÁÂHsiehª©¥D¤j¤j,
¨ä¹ê¤p©f¤]´¿·Q¹L¬O¼Æ¦r»P¤å¦r¶¡ªº®æ¦¡, ¤p©f°µªk¬O¦bÀx¦s®æ®æ¦¡¤¤§âaÄæÂର¤å¦r, ¦ý¤£¦¨¥\,
¤j¤j±Ð¾É¥Î¸ê®Æ¤ÀªR­Ë¬O¨S¸Õ¹L, ¦ý¦p¤j¤j©Ò®Æ, ·í¤ÀªRÂର¤å¦r, °ÝÃD«K¸Ñ¨M, Á¹L¤j¤j±Ð¾É, ·P®¦!!

Hsieh

¦^´_ 15# 317
match¨ç¼Æ¡A·j´M­È±o¸ê®Æ«¬ºA¥²¶·¬Û²Å
¦]¬°¤U©Ô¿ï³æ©Ò³sµ²ªºÀx¦s®æC3
·í¿ï¾Ü¬°¼Æ¦r¸ê®Æ®É¡A³Qµø¬°¤å¦r¡A¬G¦Ó²£¥Í¿ù»~
§A³o­Ó°ÝÃD¤ñ¸û¤£¦n¸Ñ¨M¡A¬O¦]¬°§Aªº¸ê®Æ¦³¤å¦r»P¼Æ¦r²V¦X
«Øij§A§â¤H¥Á¤u§@ªíAÄæ¸ê®Æ§Q¥Î¸ê®Æ­åªRÂন¤å¦r®æ¦¡
³o¼Ë´N®e©ö³B²z¤F

317

¤j¤j­Ì, ¦­±á
¦b³oºô¯¸¤¤ªº½T´£¤É¤F¤£¤Öª¾ÃÑ, ¦Ó³o½g¤å³¹ªºµo°Ý, ¤p©f¤]§l¦¬¤Fª¾ÃÑ, ¦ý¤p©f¦³¤@°ÝÃD¸Ñ¤£¶}, ½Ð¤j¤j¨ó§U¸Ñµª, ²{ªþ¤WÀÉ®×, ¤º¦³»¡©ú,¥ý¦æÁ¹L¦Uª©¥D¤Î¦U¤j¤j, ÁÂÁÂ!!
ss.rar (202.5 KB)

¤U¸ü¦¸¼Æ: 9

2012-4-29 09:05

©P¤j°¶

ÁÂÁÂregister313 ¤j¤j, ¤ÎHsieh ¤j¤j,
°J¤ß·PÁÂ,

register313

¦^´_ 11# ©P¤j°¶

1. Private Sub ComboBox1_Change()
   
2.   ½d³ò = Sheets("¤H¥Á").Cells(3, 1).End(xlDown).Row
   
3.   ComboBox1.ListFillRange = "¤H¥Á!$a$3:$b$" & ½d³ò
   
4.   [C3] = ComboBox1
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Change(ByVal Target As Range)
   
8. Dim A As Range
   
9. If Target.Address <> "$C$3" Then Exit Sub
   
10.    Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
    
11. If A Is Nothing Then Exit Sub
    
12.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
    
13.   [C14] = A.Offset(, 11) & A.Offset(, 12)
    
14. End Sub

½Æ»s¥N½X

cc.rar (12.54 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-25 23:28

Hsieh

¦^´_ 11# ©P¤j°¶
µ{¦¡½X¦³»~¡AÀ³§ó¥¿¦p¤U

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. If Target.Address <> "$C$3" Then Exit Sub
   
4. Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
   
5. If A Is Nothing Then Exit Sub
   
6. [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
   
7. [C14] = A.Offset(, 11) & A.Offset(, 12)
   
8. End Sub

½Æ»s¥N½X

©P¤j°¶

¤j¤j¦n
°ÝÃD¦b¼Ó¤W¤w°Ý¹L, ²{§â¸ê®Æ¦A¾ã²z¤W¶Çµo°Ý, §Æ±æ¯à©ú¥Õ­ì¦], ÁÂÁÂ!!
cc.rar (12.19 KB)

¤U¸ü¦¸¼Æ: 3

2012-4-25 21:51

¤U¸ü (311.73 KB)

2012-4-25 21:52

©P¤j°¶

¦^´_ 9# register313
Á¹L¤j¤j¦^À³,  °J¤ß·PÁÂÁÂ!!,

register313

¦^´_ 6# ©P¤j°¶

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. If Target.Address <> "$C$3" Then Exit Sub
   
4.   Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
   
5. If A Is Nothing Then Exit Sub
   
6.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
   
7.   [C14] = A.Offset(, 11) & A.Offset(, 12)
   
8. End Sub

½Æ»s¥N½X

aa.rar (9.17 KB)

¤U¸ü¦¸¼Æ: 16

2012-4-24 19:20