如何將用戶表單中的值傳遞給VBA sub

Question

我有一個簡單的用戶表單，只有一個文本框和一個按鈕。隨着按鈕的消息框應顯示的內容是在

Private Sub CommandButton1_Click() 
Call test 
End Sub 

Sub test() 
MsgBox TextBox1.Text 
End Sub 

類型的用戶點擊，我有兩個問題：當我打開Excel不會自動顯示

1）窗體。

2）消息框不顯示

Answer 1

你只是缺少一些小東西。

你需要讓用戶窗體可見「userform1.show」所以這添加到您的常規模塊：

Sub auto_open() 
    UserForm1.Show 
End Sub 

文件被打開時，這將打開窗體。 （你可以運行該子與代碼視圖窗口F5，太。）

，改變你的常規代碼模塊中現有的代碼來引用文本框的表單是這樣的：

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

你「 CommandButton1_Click（）「代碼在窗體看起來很好。