使文本框在条件下可见

问题描述

我是 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 (将#修改为@）