VBA如何在用户窗体通用检查中排除指定文本框？

下面提供三种实用的实现方式，你可以根据自己的场景选择：

方法1：通过控件名称过滤 #

直接在循环中判断控件名称，将结果文本框排除在检查逻辑外。如果有多个结果框，只需添加到排除数组即可。

修改后的完整代码：

Private Sub Valider_Click()
Dim Ctrl As Control, x1 As Long, x2 As Long
' 定义需要排除的结果文本框名称数组
Dim excludedTextBoxes As Variant
excludedTextBoxes = Array("MoitieZoneNuX") ' 可添加更多，比如"ResultTextBox2"

    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then
            ' 检查当前控件是否不在排除列表中
            If IsError(Application.Match(Ctrl.Name, excludedTextBoxes, 0)) Then
                ' 仅对非结果框执行必填检查
                x1 = x1 + 1
                If Ctrl.Text <> "" Then x2 = x2 + 1
            End If
        End If
    Next Ctrl

    If x1 <> x2 Then
        MsgBox "Veuillez remplir tous les champs", vbInformation, ""
    Else
        ' 原有写入工作表逻辑保持不变
        Sheets("Calculs").Range("C5").Value = NuCoaposX_texte.Value
        Sheets("Calculs").Range("D5").Value = NuCoaposY_texte.Value
        Sheets("Calculs").Range("C6").Value = NuCoasizeX_texte.Value
        Sheets("Calculs").Range("D6").Value = NuCoasizeY_texte.Value
        Sheets("Calculs").Range("C7").Value = NuCoadefX_texte.Value
        Sheets("Calculs").Range("D7").Value = NuCoadefY_texte.Value
        Sheets("Calculs").Range("C11").Value = NuSLIA0Y_texte.Value
        Sheets("Calculs").Range("D11").Value = NuSLIA0Y_texte.Value
        Sheets("Calculs").Range("C12").Value = NuSLIA1X_texte.Value
        Sheets("Calculs").Range("D12").Value = NuSLIA1Y_texte.Value
        Sheets("Calculs").Range("C13").Value = NuSLdefX_texte.Value
        Sheets("Calculs").Range("D13").Value = NuSLdefY_texte.Value
    End If

    MoitieZoneNuX.Value = Sheets("Calculs").Range("F6").Value
    Unload Me
End Sub

优点：实现简单，无需修改窗体设计；缺点：新增/删除结果框时需要修改代码中的数组。

方法2：利用Tag属性标记必填控件 #

在窗体设计阶段给所有需要检查的必填文本框设置Tag属性为Required，结果文本框不设置该属性。代码中仅检查带有标记的控件。

操作步骤： #

1. 打开用户窗体设计器，选中每个必填的TextBox
2. 在右侧属性窗口找到Tag项，输入Required

修改后的代码：

Private Sub Valider_Click()
Dim Ctrl As Control, x1 As Long, x2 As Long

    For Each Ctrl In Me.Controls
        ' 仅检查类型为TextBox且Tag为Required的控件
        If TypeName(Ctrl) = "TextBox" And Ctrl.Tag = "Required" Then
            x1 = x1 + 1
            If Ctrl.Text <> "" Then x2 = x2 + 1
        End If
    Next Ctrl

    If x1 <> x2 Then
        MsgBox "Veuillez remplir tous les champs", vbInformation, ""
    Else
        ' 原有写入工作表逻辑保持不变
        Sheets("Calculs").Range("C5").Value = NuCoaposX_texte.Value
        ' ... 其他写入代码省略
    End If

    MoitieZoneNuX.Value = Sheets("Calculs").Range("F6").Value
    Unload Me
End Sub

优点：扩展性强，新增控件时只需设置Tag属性，无需修改代码逻辑；缺点：需要逐个设置控件属性，适合控件数量适中的场景。

方法3：用Frame控件分组必填项 #

在窗体中添加一个Frame控件，将所有必填的TextBox拖入该Frame中，结果文本框放在Frame外。代码中仅循环Frame内的控件进行检查。

修改后的代码：

Private Sub Valider_Click()
Dim Ctrl As Control, x1 As Long, x2 As Long
' 假设存放必填控件的Frame名称为Frame_Required
    For Each Ctrl In Me.Frame_Required.Controls
        If TypeName(Ctrl) = "TextBox" Then
            x1 = x1 + 1
            If Ctrl.Text <> "" Then x2 = x2 + 1
        End If
    Next Ctrl

    If x1 <> x2 Then
        MsgBox "Veuillez remplir tous les champs", vbInformation, ""
    Else
        ' 原有写入工作表逻辑保持不变
    End If

    MoitieZoneNuX.Value = Sheets("Calculs").Range("F6").Value
    Unload Me
End Sub

优点：界面可视化区分必填项和结果项，逻辑清晰；缺点：需要调整窗体布局。

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