Hello，今天有粉絲遇到這樣的一個問題，就是老板給他很多帶有顏色的表格，想讓他根據(jù)顏色求和以及計數(shù)，他一個一個做了很久也沒做出來，問我有沒有什么簡單的方法，當然有了，我們覺得最快捷的方法就是使用vba自定義函數(shù)來計算，操作也非常的簡單，下面就讓我們來一起操作下吧

一、代碼展示

1.根據(jù)顏色求和代碼

Function SumColor(i As Range, ary1 As Range) As Long

Dim icell As Range

Application.Volatile

For Each icell In ary1

If icell.Interior.ColorIndex = i.Interior.ColorIndex Then

SumColor = Application.Sum(icell) + SumColor

End If

Next icell

End Function

2.根據(jù)顏色計數(shù)代碼

Function CountColor(x As Range, ary2 As Range)

Application.Volatile

For Each i In ary2

If i.Interior.ColorIndex = x.Interior.ColorIndex Then

CountColor = CountColor + 1

End If

Next

End Function

在這里我們定義了SumColor與CountColor兩個自定義函數(shù)，

SumColor：對指定顏色的單元格求和

第一參數(shù)：想要求和的單元格顏色

第二參數(shù)：求和的數(shù)據(jù)區(qū)域

CountColor：對指定顏色的單元格計數(shù)

第一參數(shù)：想要計數(shù)的單元格顏色

第二參數(shù)：想要計數(shù)的單元格區(qū)域

二、設置自定義函數(shù)

我們先點擊開發(fā)工具，然后點擊visal basic，然后在vba的編輯界面中點擊插入，選擇模塊，將剛才定義的兩個函數(shù)粘貼進去，直接將界面關閉即可

三、使用函數(shù)

自定義函數(shù)與內置函數(shù)的使用方法是一摸一樣的，我只需輸入函數(shù)對應的名稱，然后填寫相應的參數(shù)即可

怎么樣，使用這種方法就統(tǒng)計帶顏色的單元格是不是非常的簡單呢？

我是Excel從零到一，關注我持續(xù)分享更多Excel技巧