在函数vba中使用创建的函数

Question

Im使用梯形规则制作VBA函数来计算积分 但是如何应用我在VBA中创建的函数以在另一个函数中使用...继承我的代码（工作表。函数不起作用）

Option Explicit

Function funcion(x As Double) As Double
    funcion = 3 * (x ^ 3) + 5 * (x ^ 2) - 10 * x + 20
End Function

Function Sumatoria(a As Double, n As Double, h As Double) As Double
    Dim i As Integer
    Dim sum As Double

    i = 0
    sum = 0

    Do While (i <= n - 1)
        sum = sum + WorksheetFunction.funcion(a + i * h)
         i = i + 1
    Loop

    Sumatoria = sum

 End Function

Answer 1

这有效：

Function Sumatoria(a As Double, n As Double, h As Double) As Double

    Dim i As Integer
    Dim sum As Double
    Dim temp As Double

    i = 0
    sum = 0

    Do While (i <= n - 1)
        temp = a + i * h
        sum = sum + funcion(temp)
         i = i + 1
    Loop

    Sumatoria = sum

 End Function