1. 打開Excel,按Alt+F11進(jìn)VBA編輯器,在左側(cè)隨便點(diǎn)右鍵,選插入-模塊,然后在右邊粘貼下面的代碼,之后關(guān)掉VBA窗口。
2. 接著輸入公式:=SUMRED(你要求和的區(qū)域)
代碼如下:
Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(*.usedrange, rng)
For Each rg In rng
If rg.*.color = RGB(255, 0, 0) And IsNumeric(*.value) Then sumred = sumred + *.value
Next
End Function
2. 接著輸入公式:=SUMRED(你要求和的區(qū)域)
代碼如下:
Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(*.usedrange, rng)
For Each rg In rng
If rg.*.color = RGB(255, 0, 0) And IsNumeric(*.value) Then sumred = sumred + *.value
Next
End Function