目的：在EXCEL中，當(dāng)用戶點(diǎn)到某行時，加亮顯示當(dāng)前行，使操作或核對數(shù)據(jù)更方便。
代碼：
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，進(jìn)入代碼編輯窗口，雙擊某個工作表免，將以上代碼復(fù)制到代碼窗口即可測試使用。
以上 代碼在EXCEL 2007版本中測試通過，如在2003中使用需小改代碼。具體請聯(lián)系我。
浙公網(wǎng)安備 33010802003509號
杭州講師網(wǎng)絡(luò)科技有限公司
