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

删除＆＃34;细胞（i，7）.Value =＆＃34;从下面一行。

目标搜索的返回类型是布尔值。

值是一种变体。

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

Excel目标寻求代码

2 个答案: