如何将值从用户表单传递给VBA sub

Question

我有一个简单的用户表单，只有一个文本框和一个按钮。当用户点击按钮时，消息框应显示

中输入的内容

Private Sub CommandButton1_Click()
Call test
End Sub

Sub test()
MsgBox TextBox1.Text
End Sub 

我有两个问题：

1）打开excel时，不会自动显示userform。

2）消息框未显示

Answer 1

你只是错过了一些小事。

您需要使用“userform1.show”显示用户窗体，因此请将其添加到常规模块中：

Sub auto_open()
  UserForm1.Show
End Sub

这将在打开文件时打开表单。 （您也可以在代码视图窗口中使用F5运行此子站。）

并更改常规代码模块中的现有代码，以便在表单上引用文本框，如下所示：

Sub test()
 MsgBox UserForm1.TextBox1.Text
End Sub

表单中的“CommandButton1_Click（）”代码看起来很好。