У мене визначена користувачем функція робочого листа Excell(Лінійний), що інтерполює з масиву X та масиву значень Y при визначеному значенні X1, що працює чудово. Я намагався використовувати це в іншій функції (NPL у наведеному нижче прикладі коду), встановивши її приватну статичну функцію в модулі VBA, а потім викликавши функцію за допомогою масивів даних, створених у межах функції. Коли я використовую це в електронній таблиці, я отримую помилку # VALUE. Будь-які ідеї, що я роблю неправильно?
Приклад коду:
Function NPL(Length, Beam)
A = Array(1, 2, 3, 4)
B = Array(2, 4, 6, 8)
C = Linear(A, B, 1.5)
NPL = C
End Function
Private Static Function Linear(X, Y, X1)
N = 0
I = 1
Do
N = I
I = I + 1
Loop Until X(I) < X(I - 1) Or N = X.Count
A = 0
I = 0
Do
I = I + 1
Loop Until X(I) > X1 Or I > N - 1
If X1 < X(N) And X1 > X(1) Then
Linear = Y(I - 1) + (X1 - X(I - 1)) * (Y(I) - Y(I - 1)) / (X(I) - X(I - 1))
ElseIf X1 > X(N) Or X1 = X(N) Then
Linear = Y(N)
Else
Linear = Y(1)
End If
End Function
Відповіді:
2 для відповіді № 1Замініть свій
Do
N = I
I = I + 1
Loop Until X(I) < X(I - 1) Or N = X.Count
з
Do
N = I
I = I + 1
Loop Until X(I) < X(I - 1) Or N = UBound(X) - LBound(X) + 1
Це має працювати для будь-якого 1D масиву.