|
一起來(lái)學(xué)office，提高辦公技能
韓老師曾經(jīng)寫(xiě)過(guò)一篇文章：EXCEL | 鼠標(biāo)霸氣十足，隨意點(diǎn)哪里，相同數(shù)據(jù)項(xiàng)變同種顏色，檢查數(shù)據(jù)一目了然，效果如圖：
只要在G列選擇某商品名稱(chēng)，A到D列中與該商品名稱(chēng)一致的商品所在行會(huì)自動(dòng)添加顏色，這種效果非常有利于核查數(shù)據(jù)。今天后臺(tái)有朋友問(wèn)，這個(gè)效果能不能用VBA實(shí)現(xiàn)，今天韓老師把代碼貼到這里。
代碼如下(橫屏可讀性更好)：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = UsedRange If Target.Count > 1 Then Set Target = Target.Cells(1) '如果選中單元格不是一個(gè)，則按照第一個(gè)單元格比較 End If Dim c As Range For Each ws In Worksheets '對(duì)于工作薄中每一個(gè)工作表 Set rng = ws.UsedRange If Target.Value = "" Then rng.Interior.ColorIndex = xlNone '如果當(dāng)前單元格為空，則清除顏色 Else rng.Interior.ColorIndex = xlNone For Each c In rng If c.Value = Target.Value Then ws.UsedRange.Rows(c.Row).Columns("A:D").Interior.ColorIndex = 28 '與選中單元格相同的行A到D列添加顏色 Target.Columns("A:B").Interior.ColorIndex = 28 '選中單元格所在行本列與后一列添加顏色 End If Next End If NextEnd Sub
如下圖：
|
