使用第五多项式从给定 X 值返回 Y 值的 UDF

Question

我在同一个工作簿的多个工作表上有一个范围，一列中有 35 个“X”值，需要返回与名为“DB”的固定工作表上的自定义第五多项式曲线/函数相对应的“Y”值对于上述曲线，支持 C37:C76 上的“x”值和 D37:D76 上的“y”值。

本质上是一个图形化的 VLOOKUP 函数，而不是一个包含 1000 行的表。

作为一次性计算，常规计算方法 100% 有效，但如果您需要为多个工作表上的多个 X 值计算 Y，这将成为一个问题。我认为UDF会起作用，但我不知道如何实际做到这一点。我尝试了一些代码变体并将其清理为这篇文章的起点。

任何帮助使这个 UDF 工作将不胜感激。

Function ADJ(X As Single) As Single

'X = FUNCTION INPUT VALUE
'Y = RESULT = ADJ = C5*X^5 + C4*X^4 + C3*X^3 + C2*X^2 + C1*X^1 + A
        
        C1 = Sheets(11).Evaluate("=INDEX(LINEST(R37C3:R76C3, R37C4:R76C4^{1,2,3,4,5}), 1, 5)")
        C2 = Sheets(11).Evaluate("=INDEX(LINEST(R37C3:R76C3, R37C4:R76C4^{1,2,3,4,5}), 1, 4)")
        C3 = Sheets(11).Evaluate("=INDEX(LINEST(R37C3:R76C3, R37C4:R76C4^{1,2,3,4,5}), 1, 3)")
        C4 = Sheets(11).Evaluate("=INDEX(LINEST(R37C3:R76C3, R37C4:R76C4^{1,2,3,4,5}), 1, 2)")
        C5 = Sheets(11).Evaluate("=INDEX(LINEST(R37C3:R76C3, R37C4:R76C4^{1,2,3,4,5}), 1, 1)")
         A = Sheets(11).Evaluate("=INDEX(LINEST(R37C3:R76C3, R37C4:R76C4^{1,2,3,4,5}), 1, 6)")
       ADJ = C5 * X ^ 5 + C4 * X ^ 4 + C3 * X ^ 3 + C2 * X ^ 2 + C1 * X ^ 1 + A
         
End Function

作为一个子运行它：

Option Explicit

Sub ADJ1()

Dim ADJ As Variant
Dim X As Variant
Dim A As Variant
Dim C1 As Variant
Dim C2 As Variant
Dim C3 As Variant
Dim C4 As Variant
Dim C5 As Variant

X = 3

         C1 = Sheets(11).Evaluate("=INDEX(LINEST(D37:D76, C37:C76^{1,2,3,4,5}), 1, 5)")
         C2 = Sheets(11).Evaluate("=INDEX(LINEST(D37:D76, C37:C76^{1,2,3,4,5}), 1, 4)")
         C3 = Sheets(11).Evaluate("=INDEX(LINEST(D37:D76, C37:C76^{1,2,3,4,5}), 1, 3)")
         C4 = Sheets(11).Evaluate("=INDEX(LINEST(D37:D76, C37:C76^{1,2,3,4,5}), 1, 2)")
         C5 = Sheets(11).Evaluate("=INDEX(LINEST(D37:D76, C37:C76^{1,2,3,4,5}), 1, 1)")
          A = Sheets(11).Evaluate("=INDEX(LINEST(D37:D76, C37:C76^{1,2,3,4,5}), 1, 6)")
       
       'ADJ = C5 * X ^ 5 + C4 * X ^ 4 + C3 * X ^ 3 + C2 * X ^ 2 + C1 * X ^ 1 + A
       
       ADJ = X ^ 5 + X ^ 4 + X ^ 3 + X ^ 2 + X ^ 1
       MsgBox ADJ
       
       
End Sub

Answer 1

我有一个解决方案和意见。我仍然不确定这个意见是否完全正确。 意见：我永远不会参考范围使用 UDF。您正在使用的 Range 必须是函数的参数。 请参阅此解决方案：

Public Function ADJ(X As Range, Y As Range, xvalue As Double) As Double
    Dim pol As Variant
    Dim arrPolNth As Variant
    Dim n As Integer
    n = 5
    arrPolNth = Array(1, 2, 3, 4, 5)
    pol = Application.LinEst(Y, Application.Power(X, arrPolNth))
    Dim i As Integer
    For i = LBound(pol) To UBound(pol)
        ADJ = ADJ + Application.Power(xvalue, n - i + 1) * pol(i)
    Next i
End Function

这不是最好的，因为多项式的阶也应该是一个参数。