如果Excel工作表的某區(qū)域中包含不同的底紋顏色，我們可以用一個(gè)自定義函數(shù)對(duì)該區(qū)域按指定的單元格顏色進(jìn)行計(jì)數(shù)或求和。方法是：

??? 1.按Alt+F11，打開(kāi)VBA編輯器。

??? 2.單擊菜單“插入→模塊”，將插入名稱為“模塊1”的模塊，在右側(cè)的代碼窗口中輸入下列代碼：

Function SumByColor(Ref_color As Range, Sum_range As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In Sum_range
If iCol = rCell.Interior.ColorIndex Then
SumByColor = SumByColor + rCell.Value
End If
Next rCell
End Function

Function CountByColor(Ref_color As Range, CountRange As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In CountRange
If iCol = rCell.Interior.ColorIndex Then
CountByColor = CountByColor + 1
End If
Next rCell
End Function

??? =CountByColor(A1,A1:B10)