Прошу помочь разобраться с использованием статистических функций в программе. Использование прогноза функцией Forecast_ETS без проблем, а вот с функциями GROWTH() и TREND() проблемы. Выдает ошибку: "Run-time error '1004' с комментарием "Невозможно получить свойство GROWTH класса WorkshenFunction" Фрагмент программы представлен ниже. Буду признателен за помощь.
dim y_prog as variant, yv() as double, xv() as double, xnv as double ....... With Application y_prog = .WorksheetFunction.Growth(yv(), xv(), xnv, True) ....................... ....................... End With
New_x's Optional. Are new x-values for which you want GROWTH to return corresponding y-values. New_x's must include a column (or row) for each independent variable, just as known_x's does. So, if known_y's is in a single column, known_x's and new_x's must have the same number of columns. If known_y's is in a single row, known_x's and new_x's must have the same number of rows. If new_x's is omitted, it is assumed to be the same as known_x's. If both known_x's and new_x's are omitted, they are assumed to be the array {1,2,3,...} that is the same size as known_y's.
Код
Public Sub test()
Dim x(1 To 10) As Double, y(1 To 10) As Double, n(1 To 10) As Double, r
Dim i As Long
For i = 1 To 10
x(i) = Rnd: y(i) = Rnd
Next
r = Application.WorksheetFunction.Growth(x, y, n, True)
Debug.Print r(1)
End Sub
Спасибо! Заработало. Программу модернизировал под свои задачи. Теперь ошибку не выдает, правда считает не понятно что. C теми же условиями в Excel другой результат чем в VBA. Тем не менее еще раз спасибо. Сдвинулся с "мертвой точки".