[µo°Ý] ½Ð°Ý¡G´M§ä¥]§t¬Y¦r¤¸ªº¬ÛÃö¸ê®Æ

198188

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, Rng As Range
If Target.Column = 1 Then
With Sheets("¤u§@ªí1")
For i = 1 To .UsedRange.Rows.Count
   Set A = .UsedRange.Rows(i).Find(Target)
   If Not A Is Nothing Then
     If Rng Is Nothing Then
     Set Rng = .UsedRange.Rows(i)
     Else
     Set Rng = Union(Rng, .UsedRange.Rows(i))
     End If
    End If
Next
End With
End If
If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1)

End Sub


½Ð°Ý
1)¦p¦ó±N´M§ä½d³ò³W©w¬Y¤@Äæ¡A¤£¬O¥þ³¡³£¦b´M§ä½d³ò¡C
2)If Target.Column = 1 Then ¥i§_§ï¦¨«ü©w¬Y­Ó¦r¶Ü¡H¨Ò¦p¡GTarget = "TT"
3)¥i§_³]©w´X­Ó´M§äªº³W«h¶Ü¡H¨Ò¦p¡GClient = "John"  Payment term = ¡§TT¡¨   ORIGIN = "USA"
4)¥i§_¥u¬Ocopy ²Å¦X³W®æªº¬Y´X­ÓÄ檺¸ê®Æ¶Ü¡H¤£¬O¥þ³¡¸ê®Æ³£copy ¹L¥h¡C¨Ò¦p A Äæ¡ACÄæ¡AEÄæ¡A¨ä¥Lªº³£¤£­n¡C