在另一个子引用InputBox值

在下面的代码中，我让用户select一个单元格，并将该值放入用户表单中的文本框中，并将“准备好返回”input到13列的单元格中。

每次select一个单元格时，不要每次inputstring，只要按下一个命令button就可以inputstring。 基本上，我想放置UserInput1.Offset(0, 13) = "Request Cancelled"下的用户窗体中的命令button子。 反正有参考另一个子input框的范围？ 谢谢！

 Private Sub TextBox1_DropButtonClick() Application.DisplayAlerts = False Worksheets("Sample Transfer Log").Activate Set UserInput1 = Application.InputBox(prompt:="Please select a sample transfer request # for return", Title:="Select Request #", Type:=8) If UserInput1 = False Then Exit Sub Else TextBox1.Text = UserInput1 UserInput1.Offset(0, 13) = "Ready for Return" Application.DisplayAlerts = True End If End Sub 

Answer 1

正如Sorceri在评论中指出的那样：

您将需要保持在一个全局variables的值访问另一个子