文章介紹excel選中行變色的效果以及實現(xiàn)選中行變色的VBA代碼。
在excel中如果行數(shù)過多，經(jīng)常核對數(shù)據(jù)的準確性，容易錯行跳行，所以才有本文的小技巧：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
上面這段代碼嚴謹之處在于，如果單元格本身填充了顏色，以前的顏色不會消去。
下面這段代碼依然可以實現(xiàn)選中行變色，但是如果單元格自身填充了顏色，當鼠標選擇整行后，以前的填充色將會被自動消去。而且不支持多選，比如選擇幾行，變色的仍然只有一行。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 7
End Sub
