Excel所在单元格行列自动加背景色突显

2013-05-25

1511

由于上班的每天晚上核对Excel数据，本来盯了一天的屏幕，加之下午下午用眼的过度(字体较小且需要多次核对,即使这样也错误也悄然溜走，后果就是……)，所以晚上核对的时候，看着那个Excel就揪心，想着如果移动到所在单元格（cell）的时候，单元格所在的整行自动加上背景色，以便于核对。

方法的实现当然离不了VBA，有两种方法可以实现：

第一，条件格式+VBA

通用VBA 代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

条件格式：

单元格所在行自动加背景色突显

首先选中要设置背景自动突出显示的区域，当然也可以直接Ctrl+A来全部选择，然后在条件格式->新建规则->使用公式要确定设置格式的单元格：

=ROW()=CELL("row")

单元格所在列自动加背景色突显

同样选中区域，公式为：

=COLUMN()=CELL("col")

单元格所在行列自动加背景色突显

同样选中区域，公式为：

=OR(ROW()=CELL("row"),COLUMN()=CELL("col"))

结合以上条件格式，用Tab键左右移动，Enter键向下移动，可自动突显单元格所在行列。

第二，纯VBA实现

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
'行突显
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 6 '颜色值
End With
'列突显
With Target.EntireColumn.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 3 '颜色值
End With
End Sub