我有一张包含ListBox的工作表。工作表代码有一个ListBox_DblClick子,用于启动UserForm1。 UserForm1.CommandButton1启动UserForm2。用户可以在UserForm2中输入数据,然后按UserForm2.CommandButton1,它启动模块中的子(尚未写入)并关闭UserForm2。
使用下面的代码,UserForm2和UserForm1都关闭。我只想在点击UserForm2.CommandButton1时关闭UserForm2。
对我做错的任何想法都表示赞赏。
UserForm2代码
Private Sub CommandButton1_Click()
Call UpdateBids(TextBox1.Object.Value, TextBox2.Object.Value, ComboBox1.Object.Value)
Unload Me
End Sub
答案 0 :(得分:0)
经过再次研究,我偶然发现了这篇文章: Why, after launching a userform from a userform, does unloading the 2nd userform close both?
简而言之,它建议关闭Excel,然后在UserForm2.Show之后添加DoEvents。有效。现在只有我的UserForm2关闭。我从那以后就没有问题了。