刘凌峰:EXCEL突出显示当前行
2016-01-20
95537
目的：在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中使用需小改代码。具体请联系我。
免责声明：该信息由网站注册会员自行提供，内容的真实性、准确性和合法性由发布会员负责，本站对此不承担直接责任及连带责任。
