如何通过输入框设置目标搜索值？

Question

我有一个excel文件，我必须在其中运行目标寻求vba以达到一定数量。但是，每次在其他单元格中运行时，我都需要手动更改目标搜索编号。有没有办法弹出输入框，我可以在其中输入所需的数字，然后宏将运行以完成操作？

在下面的代码中，目标搜索设置为40。但是当我需要目标时，我必须手动更改数字。我期望每次我运行宏时都需要一个寻求编号的扩展。有什么想法吗？

'
' Run_DIO Macro
'
' Keyboard Shortcut: Ctrl+q
'

    ActiveCell.GoalSeek Goal:=40, ChangingCell:=ActiveCell.Offset(-4, -1).Range( _
        "A1")
    ActiveCell.Offset(-3, -1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(4, 2).Range("A1").Select
End Sub

Answer 1

当然...只需添加一个变量：

Dim iGoal As Integer
iGoal = InputBox("Enter Goal")
ActiveCell.GoalSeek Goal:=iGoal, ChangingCell:=ActiveCell.Offset(-4, -1).Range( _
    "A1")

仅希望他们输入一个数字，否则您会收到错误消息。