OFFICE2013实现选中单元格所在行、列高亮显示

在你要实现此功能的工作表标签右击，在弹出的菜单中选择编辑代码，然后输入下面代码保存即可！

如没有出现效果，则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub

 

转载于:https://www.cnblogs.com/mebius4789/p/4790513.html