excel中单元格的颜色统计

《excel中单元格的颜色统计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、EXCEL中单元格的颜色统计其实，这个问题要用到一个特别的函数：get.cell解决这个问题的思路是，你首先得让系统知道你每种颜色的代码是多少。得到这个代码就用到这个函数。设你要统计的单元格在A列，B列为空列，操作如下：1，点插入，名称，定义，弹出的窗口第一行名称名内写入一个自定义的名称名字，可以是中文也可以是英文，比如XX，最下边一行的引用位置一行内填入：=get.cell(63.A1)确定。2，在B1中输入=XX，光标指向B1单元格右下角的小黑点，光标变成小黑实心十字时，双击左键。完成填充。这样操作

2、以后，在B列中会出现各个单元格中底色的代码。3,用countif()函数对你要统计的单元进行统计，如：=countif($B$1:$B$100,"5")这个统计公式意思是统计B1至B100中颜色代码是5的单元格有多少个。用辅助列可以做到假设列A为原数据列，选择列B为第一辅助列1.在插入-名称-定义里定义一个名称，X=GET.CELL(24,SHEET1!A1)2.在B1中输入=X这样你就会看到列B中有对应的列A颜色返回的数值，假定黑色格子的颜色数值为1再利用一辅助列C，在列C输入公式=IF(OR(B:B

3、=1,B:B=57,B:B=0),A:A+3,A:A)，即可得所需变更后的全部数值列最后便是利用选择性拷贝的方法，将C列的值复制到A列，就可以完成全部操作了注意：1、GET.CELL(24,SHEET1!A1)  其中24代表字体颜色，换成38代表背景颜色用EXCEL来根据单元格的颜色来计数和求和步骤1：打开你的excel；步骤2：按Alt+F11键步骤3：VisualBasic编辑器菜单栏：插入－模块步骤4：粘贴下面这段函数FunctionCountcolor(colAsRange,countrang

4、eAsRange)DimicellAsRangeApplication.VolatileForEachicellIncountrange    Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen        Countcolor=Countcolor+1    EndIfNexticellEndFunction步骤5：保存步骤6：粘贴下面这段函数FunctionSumcolor(colAsRange,sumrangeAsRange)  Dim

5、icellAsRange  Application.Volatile  ForEachicellInsumrange      Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen        Sumcolor=Application.Sum(icell)+Sumcolor      EndIf  NexticellEndFunction步骤7：保存并关闭VisualBasic编辑器。使用函数countcolor统计单元格数量，其格式为：cou

6、ntcolor（所要统计的颜色所在单元格，统计的区域）      注：括号内为参数，下同。              使用函数sumcolor来求和（所要统计的颜色所在单元格，统计的区域）///若是字体颜色FunctionSumfontcolor(colAsRange,sumrangeAsRange)  DimicellAsRange  Application.Volatile  ForEachicellInsumrange      Ificell.Font.ColorIndex=col.Font.C

7、olorIndexThen        Sumfontcolor=Application.Sum(icell)+Sumfontcolor      EndIf  NexticellEndFunction1、            建立Excel对象    set  objExcelApp  =  CreateObject("Excel.Application")    objExcelApp.DisplayAlerts  =  false                        不显示警告   

8、 objExcelApp.Application.Visible  =  false                        不显示界面    2、            新建Excel文件    objExcelApp.WorkBooks.add    set  objExcelBook  =  objExcelApp.ActiveWorkBook    set  objExcelSheets  =  objExcelBook.Wo