如何用VBA批量显示用户窗体Multipages中的隐藏文本框？

嗨，重复写近200行Me.tbX.Visible = True确实太反人类了！我之前处理类似的多控件场景时，用循环或者控件遍历的方法就能轻松搞定，给你分享两个实用方案：

方案1：利用控件命名规则循环（最推荐） #

如果你的发票编号文本框和金额文本框是按规律命名的（比如tbInvoice1到tbInvoice100、tbAmount1到tbAmount100），直接用For循环遍历指定范围的控件就好，代码简洁又高效：

Sub ShowAllHiddenInvoiceTextBoxes()
    Dim i As Integer
    ' 批量显示第13到100个发票编号文本框
    For i = 13 To 100
        ' 注意：这里的MultiPage2是你的Multipage控件名称，Pages(1)是第二页（索引从0开始）
        Me.MultiPage2.Pages(1).Controls("tbInvoice" & i).Visible = True
    Next i
    
    ' 批量显示第13到100个金额文本框
    For i = 13 To 100
        Me.MultiPage2.Pages(1).Controls("tbAmount" & i).Visible = True
    Next i
End Sub

这个方案的核心是依赖统一的命名规则，只要你的控件命名规范，几行代码就能搞定几百个控件的显示/隐藏。

方案2：遍历页面所有控件（适配无规律命名） #

如果你的控件命名没那么规整，可以直接遍历Multipage第二页的所有控件，筛选出文本框并设置可见性：

Sub ShowAllTextBoxesOnInvoicePage()
    Dim ctrl As Control
    ' 遍历第二页的所有控件
    For Each ctrl In Me.MultiPage2.Pages(1).Controls
        ' 筛选出文本框，并且只处理当前隐藏的控件
        If TypeName(ctrl) = "TextBox" And Not ctrl.Visible Then
            ctrl.Visible = True
        End If
    Next ctrl
End Sub

如果页面上还有其他不需要显示的文本框，可以加个名称前缀判断，避免误操作：

If TypeName(ctrl) = "TextBox" _
    And (Left(ctrl.Name, 8) = "tbInvoice" Or Left(ctrl.Name, 7) = "tbAmount") _
    And Not ctrl.Visible Then
    ctrl.Visible = True
End If

结合复选框触发 #

你可以把上面的代码绑定到复选框的点击事件里，用户勾选时自动显示所有隐藏控件：

Private Sub chkShowExtraInvoices_Click()
    If chkShowExtraInvoices.Value = True Then
        ShowAllHiddenInvoiceTextBoxes ' 调用批量显示的子程序
    Else
        ' 可选：如果需要隐藏回去，执行对应的隐藏逻辑
        HideExtraInvoiceTextBoxes
    End If
End Sub

' 可选：隐藏额外文本框的子程序
Sub HideExtraInvoiceTextBoxes()
    Dim i As Integer
    For i = 13 To 100
        Me.MultiPage2.Pages(1).Controls("tbInvoice" & i).Visible = False
        Me.MultiPage2.Pages(1).Controls("tbAmount" & i).Visible = False
    Next i
End Sub

小提示 #

• 注意Multipage的页面索引：第一页是Pages(0)，第二页是Pages(1)，别写错了！
• 如果你的文本框数量不是刚好200（100个编号+100个金额），调整循环的起止数字就行。

内容的提问来源于stack exchange，提问作者Martin