- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
[µo°Ý] ½Ð°Ý¡G´M§ä¥]§t¬Y¦r¤¸ªº¬ÛÃö¸ê®Æ
¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-22 14:13 ½s¿è
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 |
|