打开某工作表(假设为“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工作表中,若需要查看某行记录,只需单击该行中的任一单元格,此时该行将会自动填充绿色并高亮显示(若需改为其它颜色只需改 变代码中相应的数值即可),再次单击该行中任一单元格将取消背景色的填充。另外可同时使多行记录填充背景,以方便查看或对比表格中的数据。
编辑提示:虽然单击记录前的行号可选定整行记录,相对之下,本文提供的方法在日常办公中更为方便和快捷。