Использование функциональности 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