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

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

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 icellEnd Function

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

Function CountColor(x As Range, ary2 As Range)Application.VolatileFor Each i In ary2If i.Interior.ColorIndex = x.Interior.ColorIndex ThenCountColor = CountColor + 1End IfNextEnd Function

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

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

自定義函數(shù)與內(nèi)置函數(shù)的使用方法是一模一樣的，我只需輸入函數(shù)對(duì)應(yīng)的名稱，然后填寫相應(yīng)的參數(shù)即可

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

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