第一步 按住Alt键不放,再按F11调出VBA 第二步 在VBA中双击左侧的sheet1 第三步 在右边复制以下代码 第四步 关闭VBA Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Parent.Cells.Interior.ColorIndex = xlNone .EntireRow.Interior.ColorIndex = 6 .EntireColumn.Interior.ColorIndex = 6 End With End Sub 备注: 代码中的两个 =6 是背景颜色为黄色 =7是粉红色 可以修改数字 改变背景颜色 .Parent.Cells.Interior.ColorIndex = xlNone 清除工作表单元格的背景色 .EntireRow.Interior.ColorIndex = 6 设置选中区域所在行的背景色 .EntireColumn.Interior.ColorIndex = 6 设置选中区域所在列的背景色 |
|