Hello,大家好,今天跟大家分享下我們?nèi)绾胃鶕?jù)單元格的顏色進(jìn)行求和與計(jì)數(shù),很多粉絲都提到過類似的問題,其實(shí)這都是源于我們數(shù)據(jù)整理的時候太過隨意,如果在數(shù)據(jù)整理的的時候就能將數(shù)據(jù)分類獨(dú)立的羅列出來,后期直接求和或者計(jì)數(shù)即可,根據(jù)單元格顏色求和與計(jì)數(shù)各跟大家分享3種方法 一、查找法 首先我們要選擇想要統(tǒng)計(jì)的數(shù)據(jù)區(qū)域,然后按Ctrl+F調(diào)出查找的窗口,然后點(diǎn)擊選項(xiàng),點(diǎn)擊格式選擇從單元格選取格式,鼠標(biāo)就會變成一個小吸管的樣子,我們直接吸取想要統(tǒng)計(jì)顏色的單元格,然后點(diǎn)擊全部查找,緊接著按Ctrl+a選擇查找到的全部數(shù)據(jù),在工作表右下角的狀態(tài)欄就會顯示該顏色的個數(shù)及求和 ![]() 二、宏表函數(shù)法 有可能會問到宏表函數(shù)是什么,宏表函數(shù)可以說是vba的前身,但是隨著vba的出現(xiàn),宏表函數(shù)已經(jīng)被逐漸的取代,但是現(xiàn)在仍然可以使用,只不過只能通過定義名稱來使用 在這里我們需要用到的宏表函數(shù)是GET.CELL,他的參數(shù)一共有兩個 第一參數(shù):type_num,單元格中的信息,會根據(jù)輸入的代碼返回不同的單元的信息 第二參數(shù): Reference,單元格范圍 我們想要獲取單元格的單色信息,就需要將GET.CELL函數(shù)的第一參數(shù)設(shè)置為63.因?yàn)榇a63返回的是單元色的顏色信息 宏表函數(shù)的使用必須先對其定義名稱,首選我們點(diǎn)擊公式,點(diǎn)擊定義名稱,將名稱設(shè)置為顏色,然后輸入公式=GET.CELL(63,Sheet1!B2),在這里Sheet1是表格的名稱,B2是統(tǒng)計(jì)區(qū)域的第一個單元格,設(shè)置完后點(diǎn)擊確定 ![]() 然后我們直接輸入等于顏色,然后向下填充數(shù)據(jù),就會根據(jù)不同的顏色返回不同的結(jié)果,黃色的結(jié)果為6.綠色的結(jié)果為10 ![]() 最后我們使用sumif函數(shù)和countif函數(shù)進(jìn)行求與計(jì)數(shù)即可 求和公式:=SUMIF(C2:C18,6,B2:B18) 計(jì)數(shù)公式:=COUNTIF(C2:C18,6) ![]() 三、使用vba自定義函數(shù) 1.根據(jù)顏色求和代碼 Function SumColor(col As Range, sumrange As Range) As Long Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icell End Function 2.根據(jù)顏色計(jì)數(shù)代碼 Function CountColor(ary1 As Range, ary2 As Range) Application.Volatile For Each i In ary2 If i.Interior.ColorIndex = ary1.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next End Function 想要使用這兩個代碼,我們就必須先將其粘貼進(jìn)vba中,首先我們點(diǎn)擊開發(fā)工具,選擇visual basic,進(jìn)入vba的編輯界面,然后點(diǎn)擊插入,選擇模塊,將代碼粘貼進(jìn)去即可 在這里我們自定了了兩個函數(shù),根據(jù)顏色求和的函數(shù)名稱是SumColor,根據(jù)顏色計(jì)數(shù)的函數(shù)名稱是CountColor 這兩個函數(shù)的參數(shù)都是一樣的 第一參數(shù):統(tǒng)計(jì)顏色的單元格 第二參數(shù):要統(tǒng)計(jì)的數(shù)據(jù)區(qū)域, 使用方法如下動圖 ![]() 以上就是今天的全部內(nèi)容了,怎么樣,你學(xué)會了嗎? 我是excel從零到一,關(guān)注我持續(xù)分享更多excel技巧 |
|