如何在VBA中创建满足条件时对Sumproduct进行运算的循环

Sub CalculateSumproduct()
    Dim i As Integer
    Dim result As Double
    
    result = 0
    
    For i = 1 To 10 '假设需要循环10次
        '判断条件，满足条件时进行Sumproduct运算
        If Cells(i, 1).Value > 0 Then
            result = result + WorksheetFunction.SumProduct(Range("A" & i & ":C" & i))
        End If
    Next i
    
    '输出结果
    MsgBox "Sumproduct结果为：" & result
End Sub