文章介紹excel選中行變色的效果以及實現選中行變色的VBA代碼。
在excel中如果行數過多,經常核對數據的準確性,容易錯行跳行,所以才有本文的小技巧:excel選中行變色。
當我們在excel工作表中,鼠標隨便選擇某一行的某一個單元格,那么選中行變色。
下面是excel選中行變色的動畫效果展示:
excel選中行變色的操作步驟如下:
在工作表名稱上單擊右鍵,比如"Sheet1"工作表,選擇“查看代碼”,復制下面的代碼,然后關閉VBE編輯器,回到excel工作表測試效果,任意單擊一個單元格,相應的選中行將變色。
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With
End Sub
上面這段代碼嚴謹之處在于,如果單元格本身填充了顏色,以前的顏色不會消去。
下面這段代碼依然可以實現選中行變色,但是如果單元格自身填充了顏色,當鼠標選擇整行后,以前的填充色將會被自動消去。而且不支持多選,比如選擇幾行,變色的仍然只有一行。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 7
End Sub