­ã´£³¡ªL

§Q¥ÎChange§ïÅܹϤù:
Xl0000450.rar (21.52 KB)

¤U¸ü¦¸¼Æ: 21

2019-8-4 09:14

­ã´£³¡ªL

¦^´_ 9# ÅQ®ð¨«¥þ¨­


Private Sub Worksheet_Change(ByVal Target As Range)
Dim SCunt&, xF As Range
With Target
     If .Row = 1 Or .Count > 1 Then Exit Sub
     If .Column = 2 Or .Column = 5 Then  'BÄæ/EÄæ
        On Error Resume Next
        Me.Shapes("_" & .Address(0, 0)).Delete
        On Error GoTo 0
        If .Value = "" Then Exit Sub
        SCunt = Me.Shapes.Count
        Set xF = [¹ï·Ó!B:B].Find(.Value, Lookat:=xlWhole)
        If xF Is Nothing Then Exit Sub
        xF(1, 2).Copy .Cells(1, 2)
        If SCunt = Me.Shapes.Count Then Exit Sub
        Me.Shapes(SCunt + 1).Name = "_" & .Address(0, 0)
     End If
End With
End Sub

'=============================