Excel excel VBA怎么调用函数

一、利用单元格公式返回值

Sub t5()

Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函数直接把公式表达式转化为数值

Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")

End Sub

二、借用工作表函数

Sub t6()

Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")

End Sub'

三、利用VBA函数

Sub t7()

Range("C20") = VBA.InStr(Range("a20"), "E")

End Sub