Использование функциональности GoalSeek в модуле Excel VBA

Может ли кто-нибудь помочь мне понять, почему первый суб работает, а второй дает неверную ссылку?

Sub tester1() Range("Q5").GoalSeek goal:=2000000, changingcell:=Range("P5") End Sub Sub tester3() Dim rngRow As Range For Each rngRow In Range("P5").Rows rngRow.Cells(0, 1).GoalSeek goal:=2000000, changingcell:=rngRow.Cells(0, 0) Next rngRow End Sub 

Заранее спасибо.

Cells(0, 1) и Cells(0, 0) недопустимы – строки и столбцы должны быть больше 0

 Range("A1") = Cells(1, 1) 'Cells(row, col) Range("A2") = Cells(2, 1) Range("B1") = Cells(1, 2) Range("B2") = Cells(2, 2) 

Протестируйте с помощью этого:

 Sub tester3() Dim cel As Range For Each cel In Range("Q5:Q10") cel.GoalSeek Goal:=2000000, ChangingCell:=cel.Offset(0, -1) Next rngRow End Sub 
Interesting Posts

Как создать графический интерфейс для Excel?

Тип данных Несоответствие в критериях Выражение Двоичный к целому VBA

Символы преобразуются в специальные символы

Очистить содержимое ячейки, если значение ячейки равно "" без использования VBA

Не устанавливайте заголовки использования и принимайте первую строку как обычную строку в исходном файле Excel, у которых нет заголовков

VBA игнорировать, когда рабочий лист упоминается, если он не существует

Проблема использования переменной SSIS в потоке данных

Как использовать IF & MAX вместе?

Вектор поиска Excel, основанный на другой формуле

Как получить печатные диапазоны для разных страниц

XSSFWorkbook не загружает небольшой файл Excel

Экспорт текстовых файлов с разделителями-запятыми с помощью Python

Невозможно получить значение, зарегистрированное сервером

Как читать и писать в один файл EXCEL с помощью Ruby?

Excel. Создание текстовых файлов с именами файлов и текстом в двух столбцах.

Давайте будем гением компьютера.