Andy2483

¦^´_ 1# dou10801


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾Ç¸Õ²z¸Ñ»Ý¨D,«Øij¦p¤U:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xF As Range
    Application.ScreenUpdating = False
    If Target.Count > 2 Or Target.Column <> 2 Then End
     Application.EnableEvents = False 'ÅýIJµo¥¢®Ä¤~¤£·|³sÄòIJµo
     Set xF = [ºK­n!a:a].Find(Target.Value, Lookat:=xlWhole)
     If xF Is Nothing Then
        MsgBox "§ä¤£¨ì!"
        ¤u§@ªí2.Cells(Target.Row, 3) = ""
        ¤u§@ªí2.Cells(Target.Row, 2) = ""
        'Exit Sub
     Else
        m1 = xF(2, 1)
        ¤u§@ªí4.Cells(m1, 2).Copy ¤u§@ªí2.Cells(Target.Row, 3)
     End If
    Application.ScreenUpdating = True
     Set xF = Nothing
     Application.EnableEvents = True '³Ì«á¤~ÅýIJµo«ì´_
End Sub