Hsieh

¦^´_ 3# 317

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) = A.Offset(, 1).Resize(, 10).Value
   
7. [C14] = A.Offset(, 11) & A.Offset(, 12)
   
8. End Sub

½Æ»s¥N½X

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

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