介绍
当选中某个单元格时，给单元格所属的行或者列设置填充色，方便查看数据。
第一种方法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.Color = RGB(233, 84, 32)
.EntireColumn.Interior.Color = RGB(233, 84, 32)
End With
End Sub
注意点
- 该代码要存放在要设置该功能的工作表里面，属于
Worksheet事件 - EntireRow 意思是整行，EntireColumn意思是整列，可以根据自己的需求设置填充色，不一定都要设置。不要就删掉。
- 颜色看自己喜好。
缺点
- 只能选中一行或者一列
第二种方法，可以选择多行或者多列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
Cells.Interior.ColorIndex = xlNone
For Each Cel In Selection
Cel.EntireRow.Interior.Color = RGB(232, 83, 31)
Next Cel
End Sub
