在EXCEL中實(shí)現(xiàn)按單元格背景顏色求或者或計(jì)數(shù)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上 EXCEL技巧在EXCEL中實(shí)現(xiàn)按單元格背景顏色求或者或計(jì)數(shù)我們?cè)贓XCEL工作表中，如果要對(duì)多個(gè)單元格的數(shù)值進(jìn)行求和，一般都會(huì)用到SUM函數(shù)，SUM函數(shù)的計(jì)算結(jié)果可以根據(jù)各個(gè)對(duì)象單元格數(shù)值的變化而發(fā)生變化，滿足了大多數(shù)EXCLE用戶的需求。但是，在SUM函數(shù)中，當(dāng)被求和單元格的位置發(fā)生變化時(shí)，SUM函數(shù)是無(wú)法進(jìn)行自動(dòng)求和的，這就需要用到SUMCOLOR函數(shù)，它能根據(jù)單元格的背景顏色進(jìn)行求和，無(wú)論是單元格的位置發(fā)生了變化還是單元格數(shù)值發(fā)生變化，只要被求和單元格的背景顏色一致，SUMCOLOR函數(shù)都可以實(shí)現(xiàn)對(duì)她們的求和。如果要對(duì)相同顏色單元格進(jìn)行計(jì)數(shù)，也可以運(yùn)用COU

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

3、160;  Application.Volatile    For Each icell In countrange        If icell.Interior.ColorIndex = col.Interior.ColorIndex Then            CountColor = CountColor + 1    &#

4、160;   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.In

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

6、可以使用SUMCOLOR和COUNTCOLOR函數(shù)了。現(xiàn)在我們?cè)賮?lái)根據(jù)單元格的背景顏色進(jìn)行求和與計(jì)數(shù)，方法如下：按顏色求和公式為：sumcolor（顏色示列格，求和區(qū)域或列）； 按顏色計(jì)數(shù)公式為: countcolor（顏色示列格，求和區(qū)域或列）。如下圖，要對(duì)A1到A11這個(gè)區(qū)域內(nèi)的藍(lán)色格進(jìn)行求和，在E1單元格中編輯公式=sumcolor(D1,$A$1:$A$11)；要對(duì)A1到A11這個(gè)區(qū)域內(nèi)的藍(lán)色格進(jìn)行計(jì)數(shù)，在E6單元格中編輯公式=countcolor(D6,$A$1:$A$11)，一定要在半角模式下編輯公式哦！如果A1到A11這個(gè)區(qū)域內(nèi)單元格背景顏色發(fā)生變化，只需雙擊E1單元格，再按回車鍵，E列單元格中的數(shù)值就會(huì)隨著顏色的改變而變化過(guò)