第一步 按住Alt鍵不放,再按F11調(diào)出VBA
第二步 在VBA中雙擊左側(cè)的sheet1
第三步 在右邊復(fù)制以下代碼
第四步 關(guān)閉VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.ColorIndex = 6
.EntireColumn.Interior.ColorIndex = 6
End With
End Sub
備注:
代碼中的兩個(gè) =6 是背景顏色為黃色
=7是粉紅色 可以修改數(shù)字 改變背景顏色
.Parent.Cells.Interior.ColorIndex = xlNone
清除工作表單元格的背景色
.EntireRow.Interior.ColorIndex = 6
設(shè)置選中區(qū)域所在行的背景色
.EntireColumn.Interior.ColorIndex = 6
設(shè)置選中區(qū)域所在列的背景色
聯(lián)系客服