Подбор значений для диапазона с ссылками на листы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подбор значений для диапазона с ссылками на листы (Макросы/Sub)

Pchelenok

Дата: Вторник, 23.08.2022, 14:03 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте знатоки!!! Очень нужна помощь, не работает следующий код:
[vba]

Код

Sub bla()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
Worksheets("Критерий3").Range("C3:AM" & LastRow).GoalSeek Goal:=0, ChangingCell:=Worksheets("Qmin").Range("C3:AM" & LastRow)
Next
End Sub

[/vba]
Не могу понять в чем ошибка. Требуется чтобы подбиралось значение в листе Qmin таким образом чтобы значения критерия 3 были равны 0. В чем моя ошибка ??? Подскажите пожалуйста

К сообщению приложен файл: 0160697.xlsm (171.2 Kb)

Ответить

NikitaDvorets

Дата: Вторник, 23.08.2022, 15:27 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 610

Репутация: 142 ±

Замечаний: 0% ±

Excel 2019

Pchelenok, добрый день.

Цитата

В чем моя ошибка ???

Возможно, в применении диапазонов в методе GoalSeek.

Вариант решения проблемы: применен индивидуальный подход к к расчету каждой ячейки диапазона.
При расчете ошибки деления игнорируются, вычисления переносятся на следующую ячейку.
Индексом (0) обозначены соответствующие листы с исходными данными.

К сообщению приложен файл: GoalSeek_Qmin_2.xlsm (217.4 Kb)

Ответить

Подбор значений для диапазона с ссылками на листы (Макросы/Sub)

Страница 1 из 1
1