请教一个问题，关于 vba 里面自定义函数的区域计算

arr=Range("C4:G5")
For Each Rng In arr
result = result + Rng
Next
这样吧

VBA也能调用现成的工作表函数，完全没必要自己构造新函数。

Sub test()
For Each Rng In Range("A1:C3")
Debug.Print Rng.Interior.ColorIndex
If Rng.Interior.ColorIndex = 3 Then
result = result + Rng.Value
End If
Next
Debug.Print result
End Sub

Private Function colorsum(area As Range) As Integer
Application.Volatile
Dim a As Integer
a = 0
For Each Rng In area
If Rng.Interior.ColorIndex = 6 Then
a = a + Rng
End If
Next
colorsum = a
End Function
PS：唯一美中不足的地方就是，这个函数即便加了“Application.Volatile”这段话进去，还是不能实现自动重算。改变黄色底纹单元格内容可以自动重算，但是如果我直接改变的是某个单元格的底纹颜色为黄色，不能自动重算。只能在选项那里选择"手动重算"并且勾选上"保存工作簿前重新计算"，再通过保存excel文件来触发它重算....