目的：在EXCEL中，当用户点到某行时，加亮显示当前行，使操作或核对数据更方便。
代码：
Public line As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Integer
R = Target.Row
If R >= 6 Then
Rows(Target.Row).Interior.ThemeColor = xlThemeColorLight2
If line <> 0 Then
Rows(line).Interior.Pattern = xlNone
End If
line = Target.Row
End If
End Sub
使用方法：
在EXCEL中，先按ALT ＋ F11，进入代码编辑窗口，双击某个工作表免，将以上代码复制到代码窗口即可测试使用。
以上 代码在EXCEL 2007版本中测试通过，如在2003中使用需小改代码。具体请联系我。
浙公网安备 33010802003509号