由于上班的每天晚上核对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
我这段时间也是在核对信息,尼玛,七八张excel表,一共十几二十万条数据,眼睛看得发花了都……
这方法不错,不过貌似我是享用不了了,数据量太大,筛选都会卡好久,如果再用上这个估计excel都要崩溃了……
8 * Core * 2.2GHz & 8G DDR3,无视压力啊。。 😈 ,我每天下午最难受,眼睛盯屏幕直接眨不动了。
单位的电脑也这么牛X?
好吧 我表示我那么大的数据量还是跑在AMD的双核+2G DDR2的环境下……
悲哀
自己的笔记本啊,单位400多M内存,我之前还不知道有这样大小的内存,只知道有256M,512M之类的。 😮