循环访问用户窗体上的控件以隐藏特定控件

Question

我浏览了很多关于此的帖子并提出了以下解决方案，但我想知道是否有更有效的编码方法。

案例基于用户选择的组合框值 0 到 8，然后标签和文本框将根据组合框中的数字显示。

我想隐藏或显示的所有标签和文本框都以 "b" 开头，然后是数字 1 到 8，如下面的代码所示。我感谢任何提高循环效率的建议运行.

 Select Case LendStart.lsNumBorr.Value
    Case Is = 0
        For Each ctrl In LendStart.Controls
            If Left(ctrl.Name, 1) = "b" Then
                ctrl.Visible = False
            End If
        Next
    Case Is = 1
        For Each ctrl In LendStart.Controls
            If Left(ctrl.Name, 2) = "b1" Then
                ctrl.Visible = True
                    If Left(ctrl.Name, 2) = "b2" Or Left(ctrl.Name, 2) = "b3" Or Left(ctrl.Name, 2) = "b4" Or Left(ctrl.Name, 2) = "b5" Or Left(ctrl.Name, 2) = "b6" Or Left(ctrl.Name, 2) = "b7" Or Left(ctrl.Name, 2) = "b8" Then
                        ctrl.Visible = False
                    End If
            End If
        Next
    Case Is = 2
        For Each ctrl In LendStart.Controls
            If Left(ctrl.Name, 2) = "b1" Or Left(ctrl.Name, 2) = "b2" Then
                ctrl.Visible = True
                    If Left(ctrl.Name, 2) = "b3" Or Left(ctrl.Name, 2) = "b4" Or Left(ctrl.Name, 2) = "b5" Or Left(ctrl.Name, 2) = "b6" Or Left(ctrl.Name, 2) = "b7" Or Left(ctrl.Name, 2) = "b8" Then
                        ctrl.Visible = False
                    End If
            End If
        Next
 End Select

Answer 1

未测试：

Sub Tester()

    Dim i As Long, numBorr, firstTwo

    numBorr = LendStart.lsNumBorr.Value

    For Each ctrl In LendStart.Controls
        If Left(ctrl.Name, 1) = "b" Then

            firstTwo = Left(ctrl.Name, 2)

            For i = 1 To 8
                If firstTwo = "b" & i Then
                    ctrl.Visible = (i <= numBorr)
                End If
            Next i

        End If
    Next

End Sub

请注意，您发布的代码中存在逻辑错误：

If Left(ctrl.Name, 2) = "b1" Then
    ctrl.Visible = True
    If Left(ctrl.Name, 2) = "b2" Or Left(ctrl.Name, 2) = "b3" Or _
       Left(ctrl.Name, 2) = "b4" Or Left(ctrl.Name, 2) = "b5" Or _
       Left(ctrl.Name, 2) = "b6" Or Left(ctrl.Name, 2) = "b7" Or _
       Left(ctrl.Name, 2) = "b8" Then

                    ctrl.Visible = False
    End If
End If

外部 If 检查 "b1" 但在那种情况下内部 If 永远不会通过

循环访问用户窗体上的控件以隐藏特定控件

Loop through Controls on a Userform to hide specific controls

vba

excel-2013