![如何快速学习：[1]Swift编程语言](https://exp-picture.cdn.bcebos.com/fb738d9c2cf7dfb2f57a949fd01b1edef5dc13fa.jpg)
如何快速学习：[1]Swift编程语言,Swift，苹果于2014年WWDC（苹果开发者大会）发布的新开发语言，可与Ojective-C*共同运行于MacOS和iOS平台，用于搭建基于苹果平台的应用程......
2023-03-17 350 编程语言
Excel表格上面使用VBA程序统计某一着色单元格数
来源：互联网
2023-03-17 00:16:30 版权归原作者所有，如有侵权，请联系我们
在Excel表格里面，一些单元格常被我们填充一些颜色来进行突出显示。对于这些已经填充颜色的单元格，我们要统计某一种颜色的单元格数量时，可以使用到VBA程序来对它进行计数，然后将结果显示出来。
工具/原料
- Excel 2010
方法/步骤
打开Excel表格，点击【开发工具】，【Bisual Basic】。（如果Excel表格上面没有显示出【开发工具】，可以按照第二、三步进行操作）
点击【文件】，【选项】。
点击【自定义功能区】，在右侧将“开发工具”勾上。
在“Excel 选项”对话框里面点击【信任中心】，【信任中心设置】。（主要是查看Excel表格上面是否已经启用了宏）
点击【宏设置】，【启用所有宏】，之后点击【确定】，保存Excel表格后将它关闭、重新打开。（如果Excel表格上面已经启用宏功能，可以忽略第四、五步）
在VBA工程资源管理器里面的“VBAProject（使用VBA统计带颜色单元格数量.xlsx）”上面单击右键，选择【插入】，【模块】。（"使用VBA统计带颜色单元格数量.xlsx"是当前工作薄的名称）
双击打开“模块1”，之后在代码窗口里面输入以下代码：
Sub Count()
Dim a, b, c, d, i, j As Long '定义数据类型
a = Worksheets("Sheet1").Range("A3").Interior.Color '将A3单元格的颜色值赋给a
b = Worksheets("Sheet1").Range("D4").Interior.Color '将D4单元格的颜色值赋给b
c = 0 '对c进行初始化赋值
d = 0 '对d进行初始化赋值
For i = 2 To 100 '从第2行到100行进行循环执行
For j = 1 To 9 '从第1列到第9列进行循环执行
'查找的范围相当于A2:I100
If Worksheets("Sheet1").Cells(i, j).Interior.Color = a Then
c = c 1 '如果找到的单元格颜色与A3单元格相同，则加1
Worksheets("Sheet1").Range("J3") = c '将结果输出到Sheet1表格的J3单元格
End If
If Worksheets("Sheet1").Cells(i, j).Interior.Color = b Then
d = d 1 '如果找到的单元格颜色与D4单元格相同，则加1
Worksheets("Sheet1").Range("J5") = d '将结果输出到Sheet1表格的J3单元格
End If
Next
Next
End Sub
点击“运行”图标或按下【F5】键，即可计算出带有填充颜色的单元格的数量。
如果Excel表格想要继续保留VBA程序的功能，则将它另存为”启用宏的工作薄“，即：点击【文件】，【另存为】，保存类型里面选择”Excel 启用宏的工作薄“。
注意事项
- Excel表格里面需要启用宏功能，之后才能使用VBA程序进行计算。
- 上面的程序里面可以修改指定的单元格颜色、范围进行变通使用。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：JavaScript语言简介五 下一篇：JavaScript语言简介三
相关文章
- 详细阅读
-
web图表开发工具FineReport：[11]连续分组详细阅读
![web图表开发工具FineReport：[11]连续分组](https://exp-picture.cdn.bcebos.com/6002c9d4483104eb360a59bb092b74ee1d324e01.jpg)
web图表开发工具FineReport：[11]连续分组,数据库表数据是按照时间先后录入的，查询的时候希望按照时间先后，某个字段连续相同的话就合并起来显示，这样的报表可以通过相邻连续分组来实现。......
2023-03-17 574 编程语言
- 详细阅读
