excel2003 2007按單元格顏色求和的實現(xiàn)

1、一在一在excel2003excel2003中按單元格背景顏色求和中按單元格背景顏色求和按顏色求和，在網(wǎng)上一查還真找到了這一方法，經(jīng)過測試按顏色求和，在網(wǎng)上一查還真找到了這一方法，經(jīng)過測試(在Excel2003Excel2003和20072007中)，非常好用，整理出來，與大家分享：，非常好用，整理出來，與大家分享：ExcelExcel本身沒有這個功能，可用以下辦法實現(xiàn)：本身沒有這個功能，可用以下辦法實現(xiàn)：打開你的工作表：點工具打開你的

2、工作表：點工具宏VisualVisualBasicBasic編輯器，在左邊最上一行編輯器，在左邊最上一行點右鍵點右鍵插入插入模塊，然后在打開的編輯框中粘貼以下代碼：模塊，然后在打開的編輯框中粘貼以下代碼：FunctionFunctionCountCol(colCountCol(colAsAsRangeRangecountrangecountrangeAsAsRange)Range)AsAsIntegerIntegerDimDimicel

3、licellAsAsRangeRangeApplication.VolatileApplication.VolatileFFEachEachicellicellInIncountrangecountrangeIfIficell.Interi.ColIndexicell.Interi.ColIndex=col.Interi.ColIndexcol.Interi.ColIndexThenThenCountColCountCol=CountC

4、olCountCol1EndEndIfIfNextNexticellicellEndEndFunctionFunctionFunctionFunctionSumCol(colSumCol(colAsAsRangeRangesumrangesumrangeAsAsRange)Range)AsAsIntegerIntegerDimDimicellicellAsAsRangeRangeApplication.VolatileApplicati

5、on.VolatileFFEachEachicellicellInInsumrangesumrangeIfIficell.Interi.ColIndexicell.Interi.ColIndex=col.Interi.ColIndexcol.Interi.ColIndexThenThenSumColSumCol=Application.Sum(icell)Application.Sum(icell)SumColSumColEndEndI

6、fIfNextNexticellicellEndEndFunctionFunction然后關(guān)閉，反回到工作表，點擊然后關(guān)閉，反回到工作表，點擊工具工具選項選項安全性安全性宏安全性宏安全性安全安全級選級選低確定確定保存關(guān)閉工作表，然后再打開，這時就可以用了保存關(guān)閉工作表，然后再打開，這時就可以用了用法：用法：按顏色求和：按顏色求和：sumcolsumcol（顏色示列格，求和區(qū)域或列）；按顏色計數(shù)：（顏色示列格，求和區(qū)域或列）；按顏色計數(shù)：

7、countcolcountcol（顏色示列格，求和區(qū)域或列）（顏色示列格，求和區(qū)域或列）例如：要求和從例如：要求和從a1a1到a10a10這個區(qū)域內(nèi)的紅色格這個區(qū)域內(nèi)的紅色格=sumcol($a$1$a$1:$A$10)=sumcol($a$1$a$1:$A$10)計數(shù)：計數(shù)：countcol($a$1$a$1:$A$10)countcol($a$1$a$1:$A$10)注意：注意：$a$1$a$1必須是紅色格，這是定義顏色的，你也可以

8、設(shè)成其它格，但必須是紅色格，這是定義顏色的，你也可以設(shè)成其它格，但必須是你要求和的顏色必須是你要求和的顏色okok！有問題可以留言。！有問題可以留言。關(guān)于關(guān)于countcol()countcol()和sumcol()sumcol()的變更求助的變更求助按填充顏色或字體顏色求和及計數(shù)自定義函數(shù)按填充顏色或字體顏色求和及計數(shù)自定義函數(shù)語法：語法：Countcol(countrangecolrangefontinteri)Countcol(c

9、ountrangecolrangefontinteri)Sumcol(countrangecolrangefontinteri)Sumcol(countrangecolrangefontinteri)countrange:countrange:要計算的單元格區(qū)域要計算的單元格區(qū)域colrange:colrange:要比較的單元格要比較的單元格fontinteri:fontinteri:為TRUETRUE時，按內(nèi)部填充顏色計算，為時，按內(nèi)

10、部填充顏色計算，為FALSEFALSE按字體顏按字體顏色計算，默認(rèn)為色計算，默認(rèn)為FALSEFALSE格式格式Sumcol(countrangecolrangefontinteri)Sumcol(countrangecolrangefontinteri)《與上面的順《與上面的順序不同》建好宏函數(shù)及表格后，在某單元格插入函數(shù)序不同》建好宏函數(shù)及表格后，在某單元格插入函數(shù)f（x），），全部全部選中選中SumcolSumcol，按出現(xiàn)的窗口操

11、作按出現(xiàn)的窗口操作—此例選項最上面為范圍，中間此例選項最上面為范圍，中間為顏色示例，最下面為“填充色”及“字體色”的選擇，為顏色示例，最下面為“填充色”及“字體色”的選擇，填為填為truetrue指按內(nèi)部填充顏色計算按內(nèi)部填充顏色計算，falsefalse為按字體顏色計算。格式為為按字體顏色計算。格式為Sumcol(countrangecolrangetrue)Sumcol(countrangecolrangetrue)。別忘了保存注意

12、事項！。別忘了保存注意事項！FunctionFunctionCountcol(countrangeCountcol(countrangeAsAsRangeRangecolrangecolrangeAsAsRangeRangeOptionalOptionalfontinterifontinteriAsAsBooleanBoolean=False)False)DimDimiCelliCellAsAsRangeRangeDimDimTFTFA

13、sAsBooleanBooleanApplication.VolatileApplication.VolatileFFEachEachiCelliCellInIncountrangecountrangeIfIffontinterifontinteri=TrueTrueThenThenTFTF=iCell.Interi.colindexiCell.Interi.colindex=colrange.Interi.colindexcolran