在VBA中实现Excel公式

Sub CalculateFormula()
    Dim result As Variant
    
    ' 计算SUM函数的结果
    result = WorksheetFunction.Sum(Range("A1:A10"))
    MsgBox "SUM函数的结果为：" & result
    
    ' 计算AVERAGE函数的结果
    result = WorksheetFunction.Average(Range("A1:A10"))
    MsgBox "AVERAGE函数的结果为：" & result
    
    ' 计算IF函数的结果
    result = WorksheetFunction.If(Range("A1") > 10, "大于10", "小于等于10")
    MsgBox "IF函数的结果为：" & result
End Sub