統計單元格填充色跟大家分享兩種方法,第一種是利用自定義函式,快速統計單元格顏色,第二種是使用查詢來解決這樣的問題,他的優點是簡單容易操作,
一、自定義函式統計單元格顏色
首選我們來看下效果
我們來統計綠色的單元格的填充的
在這裡我們自定義了CountColor函式,他一共有兩個引數
第一引數:要統計的單元格填充色
第二引數:要統計的資料區域
程式碼如下
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
二、查詢法統計單元格填充色
我們在查詢框的左下方可以看到,8個單元格被查詢到,所以這裡綠色的填充色單元格就是8個,如下圖
以上就是統計單元格填充色的兩種方法,你更喜歡哪一種呢
統計單元格填充色跟大家分享兩種方法,第一種是利用自定義函式,快速統計單元格顏色,第二種是使用查詢來解決這樣的問題,他的優點是簡單容易操作,
一、自定義函式統計單元格顏色
首選我們來看下效果
我們來統計綠色的單元格的填充的
在這裡我們自定義了CountColor函式,他一共有兩個引數
第一引數:要統計的單元格填充色
第二引數:要統計的資料區域
程式碼如下
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
二、查詢法統計單元格填充色
我們在查詢框的左下方可以看到,8個單元格被查詢到,所以這裡綠色的填充色單元格就是8個,如下圖
以上就是統計單元格填充色的兩種方法,你更喜歡哪一種呢