使用从一个子过程到另一个子过程的输入框数据

Question

需要一点帮助来解决问题，我希望这一切都有意义。

我有一个子过程，对表单进行排序，然后有一个输入框显示，询问用户名。

我有以下执行此操作的代码，然后将其添加到表单上的特定单元格中：

Dim UserName as string

UserName = Application.InputBox(Prompt:="Please Enter your Name", Title:="Name Of User", Type:=2)

Range("A" & LastRow).Select

ActiveCell.FormulaR1C1 = "Name      " & UserName

这工作正常，但我还打开了另一本工作簿，该工作簿中有其他数据是在子过程之后从子过程中排序的，这也可以正常工作，但我希望将UserName变量传递给该其他子过程，所以我不不必让输入框再次显示。

我试过将变量声明为public，并将其放置在子过程内和所有子过程外，但没有运气。 我尝试将子过程内的UserName变量分配给所有其他子过程外的公共变量UserName2，然后尝试再次使用UserName2变量，但没有运气。

因此，任何帮助将不胜感激

谢谢加雷斯

Answer 1

将以下内容放入标准模块中 ：

Dim UserName As String

Sub MAIN()
    Call FirstSub
    Call SecondSub
End Sub

Sub FirstSub()
    Dim LastRow As Long
    LastRow = 3
    UserName = Application.InputBox(Prompt:="Please Enter your Name", Title:="Name Of User", Type:=2)
    Range("A" & LastRow).Select
    ActiveCell.FormulaR1C1 = "Name      " & UserName
End Sub

Sub SecondSub()
    MsgBox UserName
End Sub

然后运行主