不同顏色儲存格該如何分別計數？(三)
|
2133 |
不同顏色儲存格該如何分別計數？(三) |
在Excel表格中，會有一些豬管喜歡給不同的內容標上不同的填滿色彩以示區分。但問題就來了，到底該怎麼對不同的填滿色彩進行簡單統計，比如求個和、計個數之類的呢？
本篇將分成三天介紹三種方法來對不同底色的儲存格進行計數操作：
1) 使用篩選和SUBTOTAL函數
2) 使用GET.CELL函數
3) 使用巨集VBA
今天來介紹3) 使用巨集VBA的使用方法。
首先按ALT+F11鍵切換到VBA視窗。
點取「插入 > 模組」指令，新增一張空白模組工作表。
利用VBA創建一個自定義函數，然後將以下代碼加到一個新的模組中：
Function GetColorCount(CountRange As Range, CountColor As Range)
Dim CountColorValue As Integer
Dim TotalCount As Integer
CountColorValue = CountColor.Interior.ColorIndex
Set rCell = CountRange
For Each rCell In CountRange
If rCell.Interior.ColorIndex = CountColorValue Then
TotalCount = TotalCount + 1
End If
Next rCell
GetColorCount = TotalCount
End Function
這個名為GetColorCount的自定義函數有兩個參數，分別：
-CountRange是為了來定義需要計算筆數某個填滿色彩儲存格的範圍。
-CountColor則是為了確定這一個色彩。
在儲存格Q2中輸入公式=GetColorCount($A$2:$A$65,Q2)，也就是說需要在A2:A65這個範圍找到與Q2儲存格填滿色彩相同的儲存格數量。