由于上班的每天晚上核对Excel数据，本来盯了一天的屏幕，加之下午下午用眼的过度(字体较小且需要多次核对,即使这样也错误也悄然溜走，后果就是……)，所以晚上核对的时候，看着那个Excel就揪心，想着如果移动到所在单元格（cell）的时候，单元格所在的整行自动加上背景色，以便于核对。
方法的实现当然离不了VBA，有两种方法可以实现：
第一，条件格式+VBA
通用VBA 代码：
|
1 2 3 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub |
条件格式：
单元格所在行自动加背景色突显
首先选中要设置背景自动突出显示的区域，当然也可以直接Ctrl+A来全部选择，然后在条件格式->新建规则->使用公式要确定设置格式的单元格：
|
1 |
=ROW()=CELL("row") |
单元格所在列自动加背景色突显
同样选中区域，公式为：
|
1 |
=COLUMN()=CELL("col") |
单元格所在行列自动加背景色突显
同样选中区域，公式为：
|
1 |
=OR(ROW()=CELL("row"),COLUMN()=CELL("col")) |
结合以上条件格式，用Tab键左右移动，Enter键向下移动，可自动突显单元格所在行列。
第二，纯VBA实现
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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之类的。 😮