Ребят, помогите, пожалуйста скорректировать макрос, чтобы он начал корректно работать. Есть таблица, в которой есть формулы, для побора заданного значения сделал макрос: Sub primer() Range("N2").Select Range("N2").GoalSeek Goal:=0, ChangingCell:=Range("G2") End Sub
Но мне нужно, чтобы он выполнялся поочередно во всех строках. Пример, во вложении. Видел подобную тему, но там таблица не построчна сделана, а вертикально, не смог адаптировать.
Ребят, помогите, пожалуйста скорректировать макрос, чтобы он начал корректно работать. Есть таблица, в которой есть формулы, для побора заданного значения сделал макрос: Sub primer() Range("N2").Select Range("N2").GoalSeek Goal:=0, ChangingCell:=Range("G2") End Sub
Но мне нужно, чтобы он выполнялся поочередно во всех строках. Пример, во вложении. Видел подобную тему, но там таблица не построчна сделана, а вертикально, не смог адаптировать.forestsimf
Sub primer() Dim Sh As Worksheet, rng As Range, cel As Range Set Sh = ThisWorkbook.Worksheets(1) LastRow = Sh.Cells(Sh.Rows.Count, "G").End(xlUp).Row Set rng = Sh.Range("G2:G" & LastRow) For Each cel In rng cel.Offset(0, 7).GoalSeek Goal:=0, ChangingCell:=cel Next End Sub
[/vba]
держите[vba]
Код
Sub primer() Dim Sh As Worksheet, rng As Range, cel As Range Set Sh = ThisWorkbook.Worksheets(1) LastRow = Sh.Cells(Sh.Rows.Count, "G").End(xlUp).Row Set rng = Sh.Range("G2:G" & LastRow) For Each cel In rng cel.Offset(0, 7).GoalSeek Goal:=0, ChangingCell:=cel Next End Sub
Низкий Вам поклон! Спасибо за помощь! Подскажите, пожалуйста, в продолжение темы. Возникла потребность еще пересчитать %. По аналогии исправил макрос, но при запуске зависает. Хотя путем подбора по одной строке все работает. Возможно увидите ошибку (файл тот же):
Sub primer() Dim Sh As Worksheet, rng As Range, cel As Range Set Sh = ThisWorkbook.Worksheets(1) LastRow = Sh.Cells(Sh.Rows.Count, "I").End(xlUp).Row Set rng = Sh.Range("I2:I" & LastRow) For Each cel In rng cel.Offset(0, 6).GoalSeek Goal:=0, ChangingCell:=cel Next End Sub
Низкий Вам поклон! Спасибо за помощь! Подскажите, пожалуйста, в продолжение темы. Возникла потребность еще пересчитать %. По аналогии исправил макрос, но при запуске зависает. Хотя путем подбора по одной строке все работает. Возможно увидите ошибку (файл тот же):
Sub primer() Dim Sh As Worksheet, rng As Range, cel As Range Set Sh = ThisWorkbook.Worksheets(1) LastRow = Sh.Cells(Sh.Rows.Count, "I").End(xlUp).Row Set rng = Sh.Range("I2:I" & LastRow) For Each cel In rng cel.Offset(0, 6).GoalSeek Goal:=0, ChangingCell:=cel Next End Subforestsimf
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
