聚光灯保留上次位置 双位置VBA

nnsea

Dim dz '定义全局变量，为了保留上一次目标单元格的地址

Private SubWorksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next '第一次点击没有dz值，会报错

    Cells.Interior.ColorIndex = 0

    Range(dz).EntireRow.Interior.ColorIndex =38

   Range(dz).EntireColumn.Interior.ColorIndex= 38

    Target.EntireRow.Interior.ColorIndex = 6

    Target.EntireColumn.Interior.ColorIndex = 6

    dz = Target.Address

End Sub