用VBA当然可以实现这个想法,详见附表:
对应代码如下
Sub 按钮1_单击()
Sheets("月报").Select '显示汇总的表格
n = Range("a4").Interior.ColorIndex 'A4格设置为要汇总的颜色代码
For Each a In Sheets("日报").UsedRange
If a.Interior.ColorIndex = n Then s = s + a.Value
Next
Range("b4") = s '显示汇总结果
End Sub
提示:使用VBA的时候要“启用宏”
一般情况下 你这种表格 是不需要VBA的 而直接使用函数来做就可以了……
当然 函数能做到的 VBA 是一定能做到的…………
所以你的问题答案 是 肯定的