本文介紹如何按顏色求和與計數函數。
1、求相同顏色單元格個數CountColor()
FunctionCountColor(colAsRange,countrangeAsRange)AsInteger
DimicellAsRange
Application.Volatile
ForEachicellIncountrange
Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen
CountColor=CountColor+1
EndIf
Nexticell
EndFunction
2、求相同顏色單元格數值和SumColor()
FunctionSumColor(colAsRange,sumrangeAsRange)AsInteger
DimicellAsRange
Application.Volatile
ForEachicellInsumrange
Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen
SumColor=Application.Sum(icell)+SumColor
EndIf
Nexticell
EndFunction
具體操作過成是：
1、工具－－宏－－輸入宏名CountColor－－創建－－進入vb編輯頁面
2、刪除所有內容－－將以上代碼復制后粘貼到vb編輯頁面－－保存為.xla（加載宏文件）
3、輸入函數＝CountColor（指定顏色的單元格，統計區域）,
