Программно не получается использовать функцию GROWTH().

Пользователь

Сообщений: 3 Регистрация: 27.09.2020

27.09.2020 21:49:47

Прошу помочь разобраться с использованием статистических функций в программе.
Использование прогноза функцией 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

Изменено: Anatoly Govorukha - 27.09.2020 22:01:09

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

27.09.2020 22:22:07

Доброе время суток

Цитата
Anatoly Govorukha написал: xnv as double

GROWTH function

Цитата

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

Anatoly Govorukha Пользователь Сообщений: 3 Регистрация: 27.09.2020	#3 27.09.2020 23:01:01 Спасибо! Заработало. Программу модернизировал под свои задачи. Теперь ошибку не выдает, правда считает не понятно что. C теми же условиями в Excel другой результат чем в VBA. Тем не менее еще раз спасибо. Сдвинулся с "мертвой точки".