想在工作薄表格中实现： 1、鼠标选中单元格,单元格所在的行和列出现颜色提示。（这个颜色可以自己设置

Question

想在工作薄表格中实现：
1、鼠标选中单元格,单元格所在的行和列出现颜色提示。（这个颜色可以自己设置）
2、不会影响表格原本的颜色。
3、对同一个工作薄的所有表都有效。
4、能方便移植到其他工作薄上。

Answer 1

ALIT+F11 双击 ThisWorkbook

复制粘贴下列代码即可。

貌似影响原来的颜色。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal T As Range)
Cells.Interior.ColorIndex = 0
    T.EntireRow.Interior.ColorIndex = 6
    T.EntireColumn.Interior.ColorIndex = 4
    T.Interior.ColorIndex = 3
End Sub