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

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

2、工作表：點(diǎn)工具宏VisualVisualBasicBasic編輯器，在左邊最上一行編輯器，在左邊最上一行點(diǎn)右鍵點(diǎn)右鍵插入插入模塊，然后在打開(kāi)的編輯框中粘貼以下代碼：模塊，然后在打開(kāi)的編輯框中粘貼以下代碼：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)閉，反回到工作表，點(diǎn)擊然后關(guān)閉，反回到工作表，點(diǎn)擊工具工具選項(xiàng)選項(xiàng)安全性安全性宏安全性宏安全性安全安全級(jí)選級(jí)選低確定確定保存關(guān)閉工作表，然后再打開(kāi)，這時(shí)就可以用了保存關(guān)閉工作表，然后再打開(kāi)，這時(shí)就可以用了用法：用法：按顏色求和：按顏色求和：sumcolsumcol（顏色示列格，求和區(qū)域或列）；按顏色計(jì)數(shù)：（顏色示列格，求和區(qū)域或列）；按顏色計(jì)數(shù)：

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

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

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

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

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

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

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