Excel一键实现所选区域相同颜色单元格求和技巧
经由过程VBA实现对所选区域内，填充了不异颜色的单位格进行乞降，然后设置经由过程按钮来实现代码的运行。
工具/原料
- Excel（教程以Excel2007为例）
方式/步骤
- 1
本教材以下图数据为例，求黄色填充单位格的数值之和。
- 2
绘制计较按钮，经由过程插入一张图片或者一个外形实现，本教材以插入一个矩形外形为例。
- 3
编纂外形文字，最好是设置当作那种比力轻易理解。本教材编纂文字为：黄色填充单位格之和。
- 4
设置外形的轮廓以及外形外形结果。
- 5
从Excel界面进入VBA界面，不清晰操作流程的可以参考以下链接：
- 6
插入一个模块，在模块中输入如下代码：
Sub qiuhe()
Dim rng As Range
Dim s As Long
s = 0
For Each rng In Selection
If rng.Interior.Color = 65535 Then '单位格填充色为黄色就执行下一步
s = s + rng.Value
End If
Next
MsgBox "所选区域黄色填充单位格的数值之和为 " & s
End Sub
- 7
返回Excel窗口，设置按钮指定宏为以上代码。
- 8
选择需要乞降的区域，点击按钮即可求得黄色填充单位格之和。
注重事项
- 此法同样合用于乞降单位格中字体(字体颜色)不异，只需要改动一点代码即可，若是您感乐趣的话，不妨本身脱手尝尝。
- 若是对您有点帮忙，请帮手撑持一下，感谢！
- 发表于 2018-03-29 00:00
- 阅读 ( 433 )
- 分类：其他类型
