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

4
1995

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

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

第一,条件格式+VBA

通用VBA 代码:

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

条件格式:

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

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

=ROW()=CELL("row")

2013-05-25_01

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

同样选中区域,公式为:

=COLUMN()=CELL("col")

2013-05-25_02

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

同样选中区域,公式为:

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

2013-05-25_03

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

第二,纯VBA实现

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

2013-05-25_04

附件:方法一Excel

Excel_Row_Col_highlight.xls

4 评论

  1. 我这段时间也是在核对信息,尼玛,七八张excel表,一共十几二十万条数据,眼睛看得发花了都……
    这方法不错,不过貌似我是享用不了了,数据量太大,筛选都会卡好久,如果再用上这个估计excel都要崩溃了……

发表回复

Please enter your comment!
Please enter your name here