在excel中如果行數(shù)過多，經(jīng)常核對數(shù)據(jù)的準(zhǔn)確性，容易錯行跳行，所以才有本文的小技巧：excel選中行變色。
當(dāng)我們在excel工作表中，鼠標(biāo)隨便選擇某一行的某一個單元格，那么選中行變色。
下面是excel選中行變色的動畫效果展示：
excel選中行變色的操作步驟如下：
在工作表名稱上單擊右鍵，比如"Sheet1"工作表，選擇“查看代碼”，復(fù)制下面的代碼，然后關(guān)閉VBE編輯器，回到excel工作表測試效果，任意單擊一個單元格，相應(yīng)的選中行將變色。
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
上面這段代碼嚴(yán)謹(jǐn)之處在于，如果單元格本身填充了顏色，以前的顏色不會消去。
下面這段代碼依然可以實(shí)現(xiàn)選中行變色，但是如果單元格自身填充了顏色，當(dāng)鼠標(biāo)選擇整行后，以前的填充色將會被自動消去。而且不支持多選，比如選擇幾行，變色的仍然只有一行。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 7
End Sub
另外一種excel自動變色效果，是當(dāng)符號某一條件，那么整行變色。這種效果可以使用條件格式完成。
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題：excel選中行變色完整代碼和動畫效果
本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213039.html
相關(guān)文章
