excel - 整个应用程序消失(在后台运行)而不是在 VBA 中打开工作表“Sheet1”
问题描述
我有 2 个用户表单。在 userform1 中,选择要打开的工作表和一些文本框。在 Userform2 中,有额外的选项框和一个命令按钮来卸载 Userform2 和激活工作表 1,但它不会加载...我曾经能够运行它,直到我添加了一个代码来提示用户完成字段..不是确定我的代码有什么问题,它将不再继续打开工作表
用户表单1代码:
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "Pls. enter data"
Cancel = True
Exit Sub
End If
If Sheet1.Value = True Then
Unload UserForm1
UserForm2.Show
用户表单2代码:
*'to prompt user to complete fields*
Private Sub CommandButton1_Click()
If OptionBox1.Value = False And OptionBox2.Value = False Then
MsgBox "Pls. select option"
Cancel = True
Exit Sub
End If
*'to open worksheet "Sheet1"*
If UserForm1.Sheet1.Value = True Then
Worksheets("Sheet1").Activate
Application.Visible = True
Unload UserForm2
End If
End Sub
解决方案
卸载 UseForm1 后,将无法再从 UserForm2 访问它 - 您应该改为Hide
UserForm1 直到您完成它,然后才使用Unload
它。
推荐阅读
- python - 使用请求登录站点时出现问题
- checkbox - Xamarin.FormsCustom 渲染器(复选框)大小
- python - Seaborn 导入错误
- node.js - 调用回调的 Lambda 调用错误:指标显示没有错误
- mysql - 如何使用 mysql 作为 jupyterhub 的数据库?
- python - 在python中使用列表理解获取列表的所有可能排列?
- wordpress - 删除过滤器项目 isotop Jupiter 主题
- java - 从终端运行 jar 时启动哪个 tomcat 服务
- php - 无法在 phpmailer 中发送空复选框值
- spring-boot - 无法写入 JSON:没有为类 net.i2p.crypto.eddsa.math.ed25519.Ed25519LittleEndianEncoding 找到序列化程序