在查看Excel数据表中的一行记录时,由于数据表中有很多字段,需要拖动水平滚动条来完成整个表格内容的读取,这样很容易“看错东西”,一不小心就会把上面一行或下面一行的内容误认为是当前记录的数据。这种数据给了领导,却不得不批评。事实上,通过下面几行VBA代码,你可以很容易地检查记录。操作步骤如下:
打开某工作表(假设为“Sheet1”),单击“工具”菜单中的“宏”,选择“Visual Basic编辑器”命令,双击左侧窗口中对应的工作表标签名称,在弹出的代码窗口中输入如下VBA代码:
Private Sub WorksheetSelectionChange(ByVal Target As Range)
If Target.EntireRow.Interior.ColorIndex10 Then
Target.EntireRow.Interior.ColorIndex = 10Else
Target.EntireRow.Interior.ColorIndex = 0End IfEnd Sub关闭代码窗口回到Excel工作表中,若需要查看某行记录,只需单击该行中的任一单元格,此时该行将会自动填充绿色并高亮显示(若需改为其它颜色只需改变代码中相应的数值即可),再次单击该行中任一单元格将取消背景色的填充。另外可同时使多行记录填充背景,以方便查看或对比表格中的数据。