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

2024-04-26 • 问答

我有一个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

qq66631177 回答：如何通过输入框设置目标搜索值？

确定...只需添加一个变量：

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

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

如果您有一个循环，请在循环开始之前获取输入：

Dim iGoal As Integer
iGoal = InputBox("Enter Goal")

' code to start loop goes here

ActiveCell.GoalSeek Goal:=iGoal,-1).Range( "A1")

' also the rest of the code you want to loop goes here

' code to end loop goes here

excel vba

本文链接：https://www.f2er.com/3168851.html

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

qq66631177 回答：如何通过输入框设置目标搜索值？

大家都在问