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