目的：在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號
杭州講師網絡科技有限公司
