求VBA代码：确保UserForm中至少一个CheckBox被勾选后才可提交

核心实现逻辑 #

• 遍历ReplacedParts窗体上的所有CheckBox控件
• 检查是否存在至少一个被勾选的选项（包含“未更换任何零件”CheckBox）
• 若无勾选项，弹出提示框阻止操作；若有，则隐藏当前窗体并显示原始frmForm

完整代码 #

将以下代码放入ReplacedParts窗体的“Accept Changes”按钮点击事件中：

Private Sub cmdAcceptChanges_Click()
    Dim ctrl As Control
    Dim isChecked As Boolean
    
    ' 初始化标记为未勾选状态
    isChecked = False
    
    ' 遍历窗体所有控件
    For Each ctrl In Me.Controls
        ' 只处理CheckBox类型控件
        If TypeName(ctrl) = "CheckBox" Then
            ' 检测是否有勾选项
            If ctrl.Value = True Then
                isChecked = True
                Exit For ' 找到勾选项后立即退出循环，提升效率
            End If
        End If
    Next ctrl
    
    ' 根据检测结果执行对应操作
    If Not isChecked Then
        MsgBox "请至少勾选一个选项（包括「未更换任何零件」）", vbExclamation, "操作提示"
    Else
        ' 隐藏当前窗体，显示原始窗体
        Me.Hide
        frmForm.Show
    End If
End Sub

关键说明 #

• 通过TypeName(ctrl)精准筛选CheckBox控件，避免误判其他类型控件
• 找到首个勾选项后立即终止遍历，减少不必要的资源消耗
• 使用Me.Hide而非Unload Me，可保留窗体状态以便后续复用；若无需保留状态，可替换为Unload Me
• 提示框搭配vbExclamation图标，强化操作提示的直观性

内容的提问来源于stack exchange，提问作者dev'n