VBA Userform未关闭命令按钮单击

时间:2018-06-09 23:54:01

标签: excel vba excel-vba userform

我在Excel VBA中运行Userform并且它似乎有效,但是它似乎并没有关闭。基本上,一旦将数据输入到表单中并且提交了一个"提交"单击按钮,我希望数据存储在某些单元格中并关闭表单以及运行另一个子代码。

以下是我的VBA代码:

Private Sub CommandButton1_Click()
HaulerRatesForm.Label1.Caption = Worksheets("Dashboard").Range("A47").Value
HaulerRatesForm.Label2.Caption = Worksheets("Dashboard").Range("A48").Value
HaulerRatesForm.Label3.Caption = Worksheets("Dashboard").Range("A49").Value
HaulerRatesForm.Label4.Caption = Worksheets("Dashboard").Range("A50").Value

HaulerRatesForm.Show

End Sub

Private Sub UserForm_Initialize()

End Sub

Private Sub CommandButton2_Click()
Worksheets("Dashboard").Cells(47, "H").Value = HaulerRatesForm.TextBox1.Value
Worksheets("Dashboard").Cells(48, "H").Value = HaulerRatesForm.TextBox2.Value
Worksheets("Dashboard").Cells(49, "H").Value = HaulerRatesForm.TextBox3.Value
Worksheets("Dashboard").Cells(50, "H").Value = HaulerRatesForm.TextBox4.Value

Unload Me

Call Dashboardcodes2

End Sub

我似乎无法弄清楚为什么Unload Me似乎无法关闭窗口。关于我在这里做错了什么的想法?

1 个答案:

答案 0 :(得分:1)

感谢urdearboy,this以前的回答似乎回答了我的问题。

我通过双击导航直接导航到用户窗体的按钮,使用了以下代码:

Private Sub CommandButton2_Click()
Worksheets("Dashboard").Cells(47, "H").Value = HaulerRatesForm.TextBox1.Value
Worksheets("Dashboard").Cells(48, "H").Value = HaulerRatesForm.TextBox2.Value
Worksheets("Dashboard").Cells(49, "H").Value = HaulerRatesForm.TextBox3.Value
Worksheets("Dashboard").Cells(50, "H").Value = HaulerRatesForm.TextBox4.Value

Unload Me

End Sub

我将代码放在Dashboardcodes2的Unload Me下,现在一切正常。