Hsieh

¦^´_ 5# j88141
ÅçÃÒ¤½¦¡§ï¤@¤U
=COUNTIF($G$2:$H$5,A$2)>0

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [A1:C1]) Is Nothing Then Exit Sub '¿é¤J¤H¦Wªº½d³ò³]©w¦bA1:C1
   
3. If Target.Count > 1 Then MsgBox "¥u¯à§ïÅܤ@®æ": Exit Sub
   
4.         Set Rng = Range("C:C").Find(Target, LookAt:=xlWhole, MatchCase:=True)
   
5.         With Target.Offset(1)
   
6.             If Not Rng Is Nothing Then .Value = Rng.Offset(0, 1).Value: Application.SendKeys "{F2}~"
   
7.             DoEvents
   
8.            If .Validation.Value = False Then .Value = ""
   
9.         End With
   
10. End Sub

½Æ»s¥N½X

¬¡­¶Ã¯.rar (14.43 KB)

¤U¸ü¦¸¼Æ: 10

2014-8-28 22:21