一、代碼展示

1.根據顏色求和代碼

Function SumColor(i As Range, ary1 As Range)

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.根據顏色計數代碼

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兩個自定義函數，

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

第一參數：想要求和的單元格顏色

第二參數：求和的數據區域

CountColor：對指定顏色的單元格計數

第一參數：想要計數的單元格顏色

第二參數：想要計數的單元格區域

二、設置自定義函數

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

三、使用函數

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

怎麼樣，使用這種方法就統計帶顏色的單元格是不是非常的簡單呢？

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

---

分享到:

---

閱讀更多 Excel從零到一 的文章

關鍵字: Excel 跳槽那些事兒 BASIC語言

---