Oшибка Run-time 1004: Unable Var_S prorerty

[Alla_s]

Доброго времени суток!

Выпадает ошибка при тестировании, которую я не знаю как устранить. В прикрепленном файле строку, которая выдает ошибку, я закомментировала. Запуская программу, в листе "to get to 10m" виделите диапазон "А1:Б151", "step" введите 10, и если ви раскомментировали строку будет ошибка.

Мне нужно просчитать функцию Var_S в ячейке I10 нового созданного листа. В Excel эта функция будет выглядеть так: I10=VAR.S(I5, C12)(Sheet 1, новый создающийся лист). Мне кажется ошибка выпадает из-за .Cells(12, 3).

Может кто-нибудь помочь?

[Shkoda]

Добрый день.

Сообщение от Alla_s

Мне кажется ошибка выпадает из-за .Cells(12, 3).

Может кто-нибудь помочь?

Вы правы, у Вас идет ссылка, новый лист, в котором эта ячейка пуста.

[Alla_s]

Kak ispravit oshibky i po4emy ona pystaya? Ved nizhe dlya SQRT stolbca s4itaet normalno s teh zhe samih danih novogo lista:
.Cells(k, 14) = Sqr((.Cells(k, 2) - .Cells(5, 8)) ^ 2 / (.Cells(k, 6) ^ 2))

[Shkoda]

Сообщение от Alla_s

Kak ispravit oshibky i po4emy ona pystaya? Ved nizhe dlya SQRT stolbca s4itaet normalno s teh zhe samih danih novogo lista:
.Cells(k, 14) = Sqr((.Cells(k, 2) - .Cells(5, 8)) ^ 2 / (.Cells(k, 6) ^ 2))

У Вас до выполнения этой строки, все ячейки заполняются!

.Cells(k, 2) - .Cells(k, 2) = WorksheetFunction.Average(rRange(i, 1).Offset(, 1).Resize(n, 1))

.Cells(5, 8) - .Cells(5, 8) = WorksheetFunction.Round(WorksheetFu nction.Average(sRange()) + (0.01 / 0.1), 3)

.Cells(k, 6)- .Cells(k, 6) = WorksheetFunction.StDev_P(rRange(i, 1).Offset(, 1).Resize(n, 1))

Вы сами писали этот код?


И если честно я не пойму зачем Вам в цикле строка без переменных? Она просчитывает каждый раз одни и те же данные.

[Alla_s]

Ya tolko izychau programmirovanie, i tolko na4ala znakomitsa s VBA. Mne nyzhno sei4as provesti eti vi4isleniya kotorie ya delau. V na4ale mne pomogli, a dalshe ya pitaus sama.
Ety stroky pisala ne ya
.Cells(k, 2) - .Cells(k, 2) = WorksheetFunction.Average(rRange(i, 1).Offset(, 1).Resize(n, 1))
Ety stroky yzhe pisala ya:
.Cells(5, 8) - .Cells(5, 8) = WorksheetFunction.Round(WorksheetFu nction.Average(sRange()) + (0.01 / 0.1), 3)
I v pervom sly4ae mozno skazat 4to danie s odnogo lista kopiryutsa na drygoi bez dopolnitelnih zna4enii, to est otsortirovanie, kazhdii 10 shag.
A v novom liste s temi danimi kotorie otsortirovani mne nyzhno sdelat opredelinie vi4isleniya.
Mozhet 4to-to ne tak v cikle, ya ne znau, dlya menya vazhno to 4to s4itaetsa.
Y vas kakie-to drygie predlozheniya est?
Sei4as zagvozdka s Var_S - ДИСП.В v rysskom Excel
Eto stroka vidaet oshibky:
.Cells(10, 9) = WorksheetFunction.Var_S(.Cells(5, 9), .Cells(12, 3))
Eto to zhe samoe 4to I10=Var.s(ДИСП.В)(I5, C12)

[Shkoda]

Добрый день.


Алла, проверьте правильность вычисления .Cells(10, 9)\
Файл во вложении.

[Alla_s]

Спасибо Shkoda! Считает правильно. Оказывается нужно было просто делать это вне цикла!

У меня еще такой вопрос. У меня есть файл где все просчитано просто через функции в Excel. С помощью этого файла я сравниваю вычисления просчитанные через VBA. Иногда значения полностью совпадают. Но бывает, что данные имеют погрешность и иногда это довольна большая разница.

Может мне нужно изменить типы переменных? На какой тип?

[Alla_s]

Доброго времени суток!

У меня с циклами совсем плохо. Вы мне помогли с функцией Var_S и так как она создалась вне цикла, теперь нужно создать новый цикл который просчитает значения в столбце О2:О16.
Подскажите пожалуйста, как задать новый цикл?

For i = 1 To rRange.Rows.Count Step n
k = k + 1
.Cells(k, 15) = Sqr((.Cells(k, 3) - .Cells(5, 9)) ^ 2 / .Cells(10, 9))
Next i

В этом случае числа одинаковые, и считает с О17:О31.

Для запуска прогаммы в листе "to get to 10m" виделите диапазон "А1:B151", "step" введите 10

[Alla_s]

Прикрепленный файл