【原】這樣標(biāo)色，看得太清楚了！內(nèi)容相同單元格高亮：點(diǎn)擊一個(gè)單元格，與之相同內(nèi)容的單元格高亮顯示

冷茶視界 2024-08-19 發(fā)布于江蘇

展開(kāi)全文

點(diǎn)【關(guān)于本公眾號(hào)】了解一下，歡迎關(guān)注，謝謝！

快速瀏覽

實(shí)用案例

|日期控件 ||簡(jiǎn)單的收發(fā)存||收費(fèi)管理系(Access改進(jìn)版)|

|電子發(fā)票管理助手||電子發(fā)票登記系統(tǒng)(Access版)|

|文件合并 ||表格拆分 ||審計(jì)憑證抽查底稿|

|中醫(yī)診所收費(fèi)系統(tǒng)(Excel版)||中醫(yī)診所收費(fèi)系統(tǒng)(Access版)||銀行對(duì)賬單自動(dòng)勾對(duì)|

|印章使用登記系統(tǒng)|

收費(fèi)使用項(xiàng)目

|財(cái)務(wù)管理系統(tǒng)||工資薪金和年終獎(jiǎng)個(gè)稅籌劃||新稅法下工資表模版|

內(nèi)容提要

內(nèi)容相同單元格高亮

大家好，我是冷水泡茶。

今天分享一個(gè)小案例，需求是：點(diǎn)擊工作表的數(shù)據(jù)區(qū)域，把所有與當(dāng)前單元格值相同的單元格均標(biāo)上顏色。

數(shù)據(jù)表格：Sheet1：

今天的內(nèi)容來(lái)自一個(gè)未完成的案例，具體就不多說(shuō)了，這是在解決案例的過(guò)程中，我用來(lái)檢查相同姓名分布情況的一段代碼，感覺(jué)還有點(diǎn)意思，分享給大家：

設(shè)計(jì)目標(biāo)：

1、當(dāng)前單元格只有一個(gè)時(shí)，背景色為淡綠色；

2、當(dāng)有兩個(gè)單元格值相同時(shí)，背景色為黃色；

3、當(dāng)有兩個(gè)以上單元格值相同時(shí)，背景色為橙色。

制作思路：

1、利用工作表的Selection Change事件。

2、設(shè)置數(shù)據(jù)區(qū)域rng，Range對(duì)象。

3、當(dāng)點(diǎn)擊數(shù)據(jù)區(qū)域中的一個(gè)單元格時(shí)，我們循環(huán)rng中的所有單元格，如果當(dāng)前單元格currCell的值與當(dāng)前點(diǎn)擊單元格的值相同時(shí)，我們把這個(gè)currCell添加到集合coll；如果不相等，則把currCell的背景色設(shè)置為無(wú)色（xlNone）。

4、檢查coll集合中元素的個(gè)數(shù)，如果是1個(gè)，則把集合中的單元格背景色設(shè)置為淡綠色，如果是2個(gè)，設(shè)置為黃色，超過(guò)2個(gè)，設(shè)置為橙色。

VBA代碼

在工作表Sheet1里，工作表Selection Change事件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim lastRow As Long, lastCol As Long, rng As Range    Dim currCell As Range    Dim coll As Collection  '//定義一個(gè)集合，用來(lái)存放相同的單元格        lastRow = UsedRange.Rows.Count    lastCol = UsedRange.Columns.Count    Set rng = Cells(1, 1).Resize(lastRow, lastCol)        If Target.CountLarge = 1 Then   '//點(diǎn)擊單個(gè)單元格        If Not Intersect(Target, rng) Is Nothing Then                        '//點(diǎn)擊單元格在rng內(nèi),創(chuàng)建新集合            Set coll = New Collection            For Each currCell In rng.Cells                                '//循環(huán)所有單元格                If currCell = Target Then                    coll.Add currCell                Else                    currCell.Interior.Color = xlNone                End If            Next                        '//根據(jù)集合內(nèi)元素的個(gè)數(shù)，設(shè)置不同背景色            If coll.Count = 1 Then                coll(1).Interior.Color = RGB(152, 251, 152)            ElseIf coll.Count = 2 Then                For i = 1 To 2                    coll(i).Interior.Color = RGB(255, 255, 0)                Next            Else                For i = 1 To coll.Count                    coll(i).Interior.Color = RGB(255, 127, 80)                Next            End If        Else                        '//點(diǎn)擊rng以外的單元格，設(shè)置rng的背景色為無(wú)            rng.Interior.Color = xlNone        End If    End IfEnd Sub

后記

1、類似相同單元格高亮的案例，我印象中寫(xiě)過(guò)，但是沒(méi)找到。

2、今天的案例中，我們使用了集合，把相同單元格記錄下來(lái)，便于統(tǒng)計(jì)相同單元格的數(shù)量，再根據(jù)不同的數(shù)量設(shè)置不同的背景色！

3、如果不使用集合，我們也可以使用字典，但可能稍微麻煩一點(diǎn)，我們?cè)?jīng)分享過(guò)【工作表突出顯示行列高亮（更新）】，就使用字典記錄單元格的背景色。也可以設(shè)置一個(gè)計(jì)數(shù)變量，記下相同單元格的個(gè)數(shù)，根據(jù)個(gè)數(shù)，再次循環(huán)工作表，把與點(diǎn)擊的單元格相同的所有單元格都設(shè)置指定背景色，這樣效率稍微低一點(diǎn)，數(shù)據(jù)量不大應(yīng)該看不出區(qū)別。

好，今天就到這里，我們下期再會(huì)！

~~~~~~End~~~~~~

	安利小店安利的牙膏非常不錯(cuò)，用了以后就不想再用其他的了；洗潔精、洗衣液也是日常必備，用過(guò)都說(shuō)好！
	合谷醫(yī)療合谷醫(yī)療專攻各種疑難雜癥，尤其擅長(zhǎng)抑郁癥、焦慮失眠、兒童神經(jīng)發(fā)育異常、多動(dòng)癥、自閉孤獨(dú)癥、腰頸椎疾病治療，可謂神乎其技！體驗(yàn)過(guò)的直呼早點(diǎn)來(lái)就好了！
	S 我的付費(fèi)知識(shí)星球：Excel活學(xué)活用幫助VBA初學(xué)者提高VBA編程水平，歡迎加入！

喜歡就點(diǎn)個(gè)贊、點(diǎn)在看、留言評(píng)論、分享一下唄！感謝支持！

案例文件分享說(shuō)明：

案例文件可免費(fèi)分享，但需符合以下要求：
請(qǐng)關(guān)注、點(diǎn)贊、點(diǎn)在看、點(diǎn)...、留言，方便的話分享一下就完美啦！如果不便走上面的“流程”，請(qǐng)打賞，萬(wàn)分感謝！
請(qǐng)?zhí)砑由戏轿业暮瞎柔t(yī)療企業(yè)微信，案例文件通過(guò)微信發(fā)送。如有定制需求，亦可通過(guò)微信聯(lián)系。
Excel問(wèn)題，請(qǐng)?jiān)谖恼孪旅媪粞杂懻摚?/span>或者加入我的付費(fèi)知識(shí)星球免費(fèi)提問(wèn)！