Excel 如何将SERIESSUM函数转换为VB6？

在已故的弗兰克·卡贝尔（Frank Kabel）撰写的网站上，有一些公式可以替代ATP功能。我不是Excel专家，我正在努力将一个（到目前为止！）转换为VB6。（我这样做的原因可能会在保密协议到期后说明。）

我遇到的问题是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*（行（间接（“1:”&行（系数）））-1））如何计算数组

• 以及该数组可能包含的内容

有Excel专家吗

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的公式栏中查看进度。在公式栏中可以显示的字符数有限制，因此如果系数有很多行，则可能会出现错误“公式太长”

在公式栏中，选择行（间接（“1:”&行（系数））-1并按Ctrl+=。然后选择公式的另一部分，确保匹配开始括号和结束括号，然后按Ctrl+=。您可以重复此操作，直到计算出整个公式。当你完成后，一定要逃离牢房，这样你就不会失去你原来的配方

---

另请参见。

太好了。非凡的我一整天都在登录和注销，等待答复。谢谢,谢谢,谢谢。阿桑特。舒克里亚。谢谢。格雷西亚斯。谢谢。奥比伽德。天久真。丹克。德。