Excel目标搜寻代码

Question

我试图在excel中使用循环进行目标搜索，但无法正常工作，请您更正以下代码

Private Sub CommandButton1_Click()

   On Error Resume Next
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   Dim i As Integer
   i = 5
   Do While Cells(i, 9) <> ""
   Cells(i, 7).Value = Range("H5").GoalSeek Goal:=Range("I5").Value,       ChangingCell:=Range("A5")
   i = i + 1
   Loop
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
End Sub

Answer 1

从以下行中删除“ Cells（i，7）.Value =“。

目标搜寻的返回类型为布尔值。

值是一个变体。

Range("H5").GoalSeek Goal:=Range("I5").Value, ChangingCell:=Range("A5")

Answer 2

最后，我得到了该问题的解决方案，只是为了从中受益，请参阅以下答案。

Private Sub GoalSeek()


Dim i As Long
For i = 4 To 6
    Range("H" & i).GoalSeek Goal:=Range("I" & i).Value, ChangingCell:=Range("A" & i)
Next
End Sub