【VBA】点击工作簿中的每个单元格，整行整列变色

需求描述

在点击单元格的时候，单元格所在行与列都变色显示

实现方案

打开Excle表格，按住ALT+F11

双击上图中的ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.Interior.Pattern = xlNone
    Rows(Target.Row).Interior.ColorIndex = 3
    Columns(Target.Column).Interior.ColorIndex = 4
End Sub

代码中的3、4为颜色标记，具体参照下图：

将上述代码贴入

然后另存表格为变色.xlsm