Excel一键实现所选区域相同颜色单元格求和技巧

      经由过程VBA实现对所选区域内，填充了不异颜色的单位格进行乞降，然后设置经由过程按钮来实现代码的运行。

东西/原料

• Excel（教程以Excel2007为例）

方式/步调

1. 1

   本教材以下图数据为例，求黄色填充单位格的数值之和。

   
2. 2

   绘制计较按钮，经由过程插入一张图片或者一个外形实现，本教材以插入一个矩形外形为例。

   
3. 3

   编纂外形文字，最好是设置当作那种比力轻易理解。本教材编纂文字为：黄色填充单位格之和。

   
4. 4

   设置外形的轮廓以及外形外形结果。

   
5. 5

   从Excel界面进入VBA界面，不清晰操作流程的可以参考以下链接：

   11打开的三种方式

   
6. 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. 7

   返回Excel窗口，设置按钮指心猿意马宏为以上代码。

   
8. 8

   选择需要乞降的区域，点击按钮即可求得黄色填充单位格之和。

   

注重事项

• 此法同样合用于乞降单位格中字体(字体颜色)不异，只需要改动一点代码即可，若是您感乐趣的话，不妨本身脱手尝尝。
• 若是对您有点帮忙，请帮手撑持一下，感谢！