聚光灯保留上次位置 双位置VBA
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
页:
[1]