Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подбор значений для диапазона с ссылками на листы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подбор значений для диапазона с ссылками на листы (Макросы/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)
 
Ответить
СообщениеЗдравствуйте знатоки!!! Очень нужна помощь, не работает следующий код:
[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. В чем моя ошибка ??? Подскажите пожалуйста

Автор - Pchelenok
Дата добавления - 23.08.2022 в 14:03
NikitaDvorets Дата: Вторник, 23.08.2022, 15:27 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 364
Репутация: 65 ±
Замечаний: 0% ±

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

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


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

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

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


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

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

Автор - NikitaDvorets
Дата добавления - 23.08.2022 в 15:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подбор значений для диапазона с ссылками на листы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!