《EXCEL中单元格的颜色统计》由会员分享，可在线阅读，更多相关《EXCEL中单元格的颜色统计（6页珍藏版）》请在金锄头文库上搜索。
1、EXCEL 中单元格的颜色统计其实，这个问题要用到一个特别的函数：get.cell解决这个问题的思路是，你首先得让系统知道你每种颜色的代码是多少。得到这个代码就用到这个函数。设你要统计的单元格在 A 列，B 列为空列，操作如下：1，点插入，名称，定义，弹出的窗口第一行名称名内写入一个自定义的名称名字，可以是中文也可以是英文，比如 XX，最下边一行的引用位置一行内填入：=get.cell(63.A1) 确定。2，在 B1 中输入=XX，光标指向 B1 单元格右下角的小黑点，光标变成小黑实心十字时，双击左键。完成填充。这样操作以后，在 B 列中会出现各个单元格中底色的代码。3,用 countif(
2、)函数对你要统计的单元进行统计，如：=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=1,B:B=57,B:B=0),A:A+3,A:A)，即可得所需变更后的全部数值列最后便是利用选择性拷贝的方法，将 C
3、 列的值复制到 A 列，就可以完成全部操作了注意：1、GET.CELL(24,SHEET1!A1) 其中 24 代表字体颜色，换成 38 代表背景颜色用 EXCEL 来根据单元格的颜色来计数和求和 步骤 1 ：打开你的 excel；步骤 2 ：按 Alt+F11 键步骤 3 ：Visual Basic 编辑器菜单栏： 插入模块步骤 4 ：粘贴下面这段函数Function Countcolor(col As Range, countrange As Range)Dim icell As RangeApplication.VolatileFor Each icell In countrangeIf
4、 icell.Interior.ColorIndex = col.Interior.ColorIndex ThenCountcolor = Countcolor + 1End IfNext icellEnd Function步骤 5 ：保存步骤 6 ：粘贴下面这段函数Function Sumcolor(col As Range, sumrange As Range)Dim icell As RangeApplication.VolatileFor Each icell In sumrangeIf icell.Interior.ColorIndex = col.Interior.ColorInd
5、ex ThenSumcolor = Application.Sum(icell) + SumcolorEnd IfNext icellEnd Function步骤 7：保存并关闭 Visual Basic 编辑器。使用函数 countcolor 统计单元格数量，其格式为：countcolor（所要统计的颜色所在单元格，统计的区域） 注：括号内为参数，下同。 使用函数 sumcolor 来求和（所要统计的颜色所在单元格，统计的区域）/若是字体颜色Function Sumfontcolor(col As Range, sumrange As Range)Dim icell As RangeAppl
6、ication.VolatileFor Each icell In sumrangeIf icell.Font.ColorIndex = col.Font.ColorIndex ThenSumfontcolor = Application.Sum(icell) + SumfontcolorEnd IfNext icellEnd Function 1、 建立 Excel 对象 set objExcelApp = CreateObject(Excel.Application) objExcelApp.DisplayAlerts = false 不显示警告 objExcelApp.Applicati
7、on.Visible = false 不显示界面 2、 新建 Excel 文件 objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 3、 读取已有 Excel 文件 strAddr = Server.MapPath(.) objExcelApp.WorkBooks.Open(strAddr & TempletTable.xls)
8、set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 4、 另存 Excel 文件 objExcelBook.SaveAs strAddr & TempTable.xls 5、 保存 Excel 文件 objExcelBook.Save （笔者测试时保存成功，页面报错。 ） 6、 退出 Excel 操作 objExcelApp.Quit 一定要退出 set objExcelApp =
9、 Nothing 三、 操作 Excel 生成数据表 1、 在一个范围内插入数据 objExcelSheet.Range(B3:k3).Value = Array(67, 87, 5, 9, 7, 45, 45, 54, 54, 10) 2、 在一个单元格内插入数据 objExcelSheet.Cells(3,1).Value=Internet Explorer 3、 选中一个范围 4、 单元格左边画粗线条 5、 单元格右边画粗线条 6、 单元格上边画粗线条 7、 单元格下边画粗线条 8、 单元格设定背景色 9、 合并单元格 10、 插入行 11、 插入列 四、 操作 Excel 生成 Cha
10、rt 图 1、 创建 Chart 图 objExcelApp.Charts.Add 2、 设定 Chart 图种类 objExcelApp.ActiveChart.ChartType = 97 注：二维折线图，4；二维饼图，5；二维柱形图，51 3、 设定 Chart 图标题 objExcelApp.ActiveChart.HasTitle = True objExcelApp.ActiveChart.ChartTitle.Text = A test Chart 4、 通过表格数据设定图形 objExcelApp.ActiveChart.SetSourceData objExcelSheet.
11、Range(A1:k5),1 5、 直接设定图形数据（推荐） objExcelApp.ActiveChart.SeriesCollection.NewSeries objExcelApp.ActiveChart.SeriesCollection(1).Name = =333 objExcelApp.ActiveChart.SeriesCollection(1).Values = =1,4,5,6,2 6、 绑定 Chart 图 objExcelApp.ActiveChart.Location 1 7、 显示数据表 objExcelApp.ActiveChart.HasDataTable = True 8、 显示图例 objExcelApp.ActiveChart.DataTable.ShowLegendKey = True我假设你的工作表已经有很多设置好背景颜色的单元格.如你上面讲的红.黄. 蓝 视图,工具栏, 窗体打上勾.在 窗体 工具条上点击按钮在工作表上拉出一个按钮.在弹出来的指定宏 对话框中点新建
