如何在EXCEL中實現(xiàn)按單元格背景顏色求和或計數(shù)

1、EXCEL進階如何在EXCEL中實現(xiàn)按單元格背景顏色求和或計數(shù)我們在EXCEL工作表中，如果要對多個單元格的數(shù)值進行求和，一般都會用到SUM函數(shù)，SUM函數(shù)的計算結(jié)果可以根據(jù)各個對象單元格數(shù)值的變化而發(fā)生變化，滿足了大多數(shù)EXCLE用戶的需求。但是，在SUM函數(shù)中，當(dāng)被求和單元格的位置發(fā)生變化時，SUM函數(shù)是無法進行自動求和的，這就需要用到SUMCOLOR函數(shù)，它能根據(jù)單元格的背景顏色進行求和，無論是單元格的位置發(fā)生了變化還是單元格數(shù)值發(fā)生變化，只要被求和單元格的背景顏色一致，SUMCOLOR函數(shù)都可以實現(xiàn)對她們的求和。如果要對相同顏色單元格進行計數(shù)，也可以運用COUNTCOLOR函數(shù)實現(xiàn)?？?/p>

2、是，EXCLE本身并沒有這兩項功能，我們必須要通過宏與VBA才能實現(xiàn)，方法很簡單，以EXCEL2003為例： 首先，打開你的EXCEL2003工作表，點工具-宏-Visual Basic 編輯器，得到以下界面：在界面左上角Sheet1點右鍵-插入-模塊，打開以下編輯界面：然后在打開的編輯框中輸入以下代碼：（有需要的朋友可以找作者索取此代碼直接粘貼即可）Function CountColor(col As Range, countrange As Range) As Integer    Dim icell As Range    Ap

3、plication.Volatile    For Each icell In countrange        If icell.Interior.ColorIndex = col.Interior.ColorIndex Then            CountColor = CountColor + 1      

4、60; End If    Next icellEnd FunctionFunction SumColor(col As Range, sumrange As Range) As Integer    Dim icell As Range    Application.Volatile    For Each icell In sumrange        If icell.Interior.ColorI

5、ndex = col.Interior.ColorIndex Then            SumColor = Application.Sum(icell) + SumColor        End If    Next icellEnd Function然后關(guān)閉此界面，返回到工作表。點擊工具-宏-安全性-安全級-低-確定。保存并關(guān)閉工作表，再打開工作表就可以使用SUMCOLOR和

6、COUNTCOLOR函數(shù)了。現(xiàn)在我們再來根據(jù)單元格的背景顏色進行求和與計數(shù)，方法如下：按顏色求和公式為：sumcolor（顏色示列格，求和區(qū)域或列）； 按顏色計數(shù)公式為: countcolor（顏色示列格，求和區(qū)域或列）。如下圖，要對A1到A11這個區(qū)域內(nèi)的藍色格進行求和，在E1單元格中編輯公式=sumcolor(D1,$A$1:$A$11)；要對A1到A11這個區(qū)域內(nèi)的藍色格進行計數(shù)，在E6單元格中編輯公式=countcolor(D6,$A$1:$A$11)，一定要在半角模式下編輯公式哦！如果A1到A11這個區(qū)域內(nèi)單元格背景顏色發(fā)生變化，只需雙擊E1單元格，再按回車鍵，E列單元格中的數(shù)值就會隨著顏色的改變而變化過來。如下圖：請注意，只有在EXCEL表中對宏進行設(shè)置之后，才能使