如何解决使文本框在条件下可见
我是 VBA 新手,正在尝试一些代码,但找不到解决方案或我做错的地方。
我想要的是:两个不同文本框的组合使另一个文本框可见(因此它以不可见的使用形式开始)。在一个条件下,我可以使用 select case(LLL) 来完成,但是当我尝试使用另一种变体时,它不起作用 (XXX)。没有错误信息,代码运行但不显示文本框。
Sub Visible()
If userform.TextBox5.Value = "XXX" And userform.TextBox10.Value = "245" Then
userform.TextBox1.Visible = True
userform.T_1.Visible = True
Else
GoTo LLL
End If
LLL:
Select Case True
Case userform.TextBox5.Value = "LLL",userform.TextBox10.Value >= "145"
If userform.Option000.Value = True Then
userform.TextBox1.Visible = True
userform.T_1.Visible = True
Else
userform.TextBox1.Visible = False
userform.T_1.Visible = False
End If
End Select
我理解你的一些问题我必须说我的代码很大,因为它链接到 SAP 以便从那里获取一些值,并且由于它的大小,完整的代码被分成模块,我只是分享我遇到问题的模块。
select case 语句有一种情况,因为它是满足我需要的唯一方法。我有很多字段 TextBox5 和 TextBox10 的变量,这些文本框的值来自 SAP,当我组合它们时,其他文本框应根据给定的变量可见。问题是,对于一个组合(这是我应用 select case 语句的组合),我需要另一个变量(option000),以便 TextBox1 和 T_1 可见。当我尝试仅使用 if 语句时,它不起作用。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。