Question

excel VBA编写高手帮忙。

用VBA编写一个公式，可以求出红色单元格中数字的和

Answer 1

Sub sumColor()
Dim mycell As Range
n = 0
For Each mycell In Range("A1:B10")
If mycell.Interior.Color = vbRed Then
n = n + mycell.Value
End If
Next mycell
MsgBox (n)
End Sub

上面最后得出的n，就是红色单元格的和。