在Excel VBA模塊中使用GoalSeek功能

Question

任何人都可以幫助我理解爲什麼第一個子作品可以工作，但第二個作品卻提供了無效的參考？

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 

在此先感謝。

Answer 1

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