UC知道如何实现在VBA窗体一键切换
来源：百度知道 编辑：UC知道 时间：2024/06/30 13:07:50
如何实现在窗体一键切换
要求：下面的代码是在UserForm2窗体里一按钮执行的，如何执行完后返回UserForm1窗体？
Private Sub CommandButton2_Click()
Range("B14").Value = TextBox1.Value
Range("B15").Value = TextBox2.Value
Range("B16").Value = TextBox3.Value
End
End Sub
我的程序：
Private Sub CommandButton2_Click()
Range("B14").Value = TextBox1.Value
Range("B15").Value = TextBox2.Value
Range("B16").Value = TextBox3.Value
unload me '加入程序
UserForm1.show
End
End Sub
但是出现错误：
运行错误400
窗体已经打开，不能显示为有模式的
怎么回事，各位知道么，能写个完整的程序给我参考下么？？感觉VBA和VB编程还是有很大差别。
急求各位解答，谢谢
要求：下面的代码是在UserForm2窗体里一按钮执行的，如何执行完后返回UserForm1窗体？
Private Sub CommandButton2_Click()
Range("B14").Value = TextBox1.Value
Range("B15").Value = TextBox2.Value
Range("B16").Value = TextBox3.Value
End
End Sub
我的程序：
Private Sub CommandButton2_Click()
Range("B14").Value = TextBox1.Value
Range("B15").Value = TextBox2.Value
Range("B16").Value = TextBox3.Value
unload me '加入程序
UserForm1.show
End
End Sub
但是出现错误：
运行错误400
窗体已经打开，不能显示为有模式的
怎么回事，各位知道么，能写个完整的程序给我参考下么？？感觉VBA和VB编程还是有很大差别。
急求各位解答，谢谢
在窗体2的按钮中置入这些代码
Private Sub CommandButton2_Click()
[B14] = TextBox1 '单元格B14 = 文本框1
[B15] = TextBox2 '单元格B15 = 文本框2
[B16] = TextBox3 '单元格B16 = 文本框3
Unload Me '从内存中卸载窗体
UserForm1.Show '窗体1显示
End Sub
很显然，你的userform1还是打开状态，所以.show出现错误。
加一个unload userform1应该可以了。
这样解决：在UserForm1.show之前，加一句Unload useform1，就是先卸载userform1，再显示。