如何将 SERIESSUM 函数转换为 VB6？

Question

关于每日剂量Excel网站，由已故的Frank Kabel编写，有一些可以代替ATP函数的公式。 作为一名 Excel 专家，我正在努力将 Excel 转换为 VB6（到目前为止！）。 （一旦 NDA 用完，我可能会想到为什么我要这样做。）

我遇到的问题是代表 SERIESSUM 的代码，即，

=SUMPRODUCT(coefficients,x^(n+m*(ROW(INDIRECT("1:"&ROWS(coefficients)))-1)))

现在我已经能够相当简单地渲染 SUMPRODUCT 和 ROWS 函数

Public Function SUMPRODUCT(a1 As Variant, a2 As Variant) As Double
    Dim dRes As Double
    Dim dVal As Double
    Dim i As Long
    If LBound(a1) = LBound(a2) And UBound(a1) = UBound(a2) Then
        For i = LBound(a1) To UBound(a1)
            dVal = a1(i) * a2(i)
            dRes = dRes + dVal
        Next
    End If
    SUMPRODUCT = dRes
End Function

Public Function ROWS(a1 As Variant)
    ROWS = UBound(a1) - LBound(a1) + 1
End Function

我还没有“明白”的是

• x^(n+m*(ROW(INDIRECT("1:"&ROWS(coefficients)))-1)) 如何计算为数组
• 该数组可能包含

什么 有 Excel 专家吗？

Answer 1

ROW(INDIRECT("1:"&ROWS(coefficients)))-1

如果系数有 5 行，则将返回数组 {1,2,3,4,5}。 其余的进展是

{1m, 2m, 3m, 4m, 5m)

{n+1m, n+2m, n+3m, n+4m, n+5m)

{x^n+1m, x^n+2m, x^n+3m, x^n+4m, x^n+5m)

结果数组根据系数进行“级数求和”。

您可以通过在公式的突出显示部分上使用 Ctrl+= 来查看 Excel 公式栏中的进度。 公式栏中可以显示的字符数有限制，因此如果系数有很多行，您可能会收到错误“公式太长”

在公式栏中，选择 ROW(INDIRECT("1:"& ;ROWS(系数)))-1 并按 Ctrl+=。 然后选择公式的另一部分，确保匹配左括号和右括号，然后按 Ctrl+=。 您可以迭代此过程，直到计算出整个公式。 完成后，请务必退出单元格，以免丢失原始公式。

另请参阅此处的第 474 集。