欢迎来到天天文库
浏览记录
ID:9777634
大小:44.00 KB
页数:6页
时间:2018-05-08
《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
此文档下载收益归作者所有