VBA用户窗体多个复选框执行首个IF语句后无法写入工作表

问题根源 #

• 现有Checkboxes过程逻辑存在缺陷：当两个复选框同时选中时，对应的判断分支为空无执行逻辑；且使用ElseIf+Exit Sub的结构，只要第一个符合条件的分支执行完就会直接退出，自然只能插入第一条数据
• 重复代码过多：两个尺寸的写入逻辑几乎完全一致，后续扩展到67个复选框如果还按这个模式编写，维护成本极高，很容易出bug

优化后可直接扩展的代码 #

不需要给每个复选框单独写执行过程，只需要统一做一次表单校验，再循环遍历所有选中的复选框执行插入即可：

Private Sub CommandButtonApply_Click()
    Dim ws As Worksheet
    Dim lastRow As Long, rowInsert As Long
    Dim ctrl As Object
    
    ' 第一步：统一做表单校验，仅执行一次
    If Me.comboboxbrand.Value = "" Then
        MsgBox "please enter a brand", vbInformation
        Exit Sub
    End If
    If Me.comboboxgender.Value = "" Then
        MsgBox "please enter an item gender", vbInformation
        Exit Sub
    End If
    If Me.comboboxclosure.Value = "" Then
        MsgBox "please enter a closure type", vbInformation
        Exit Sub
    End If
    If Me.comboboxmaterial.Value = "" Then
        MsgBox "please enter an upper material type", vbInformation
        Exit Sub
    End If
    If Me.comboboxmodel.Value = "" Then
        MsgBox "please enter a model type", vbInformation
        Exit Sub
    End If
    
    ' 第二步：初始化工作表
    Set ws = ThisWorkbook.Worksheets("stock")
    
    ' 第三步：遍历表单所有控件，筛选选中的复选框执行插入
    For Each ctrl In Me.Controls
        ' 筛选符合命名规则的尺码复选框，可根据你的实际命名调整前缀匹配规则
        If TypeName(ctrl) = "CheckBox" And ctrl.Value = True And Left(ctrl.Name, 8) = "CheckBox" Then
            ' 计算每次插入的最新行
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            rowInsert = lastRow + 1
            
            ' 写入公共字段数据
            ws.Cells(rowInsert, "A").Resize(1, 8).Value = Array( _
                Me.txtDate.Text, _
                Me.textboxparentsku.Text, _
                Me.comboboxbrand.Text, _
                Me.comboboxclosure.Text, _
                Me.comboboxgender.Text, _
                Me.comboboxmaterial.Text, _
                Me.comboboxmodel.Text, _
                Me.ComboBoxcolour.Text _
            )
            ' 写入当前复选框对应的尺码
            ws.Range("I" & rowInsert).Value = ctrl.Caption
        End If
    Next ctrl
    
    ' 释放对象
    Set ws = Nothing
    MsgBox "数据插入完成", vbInformation
End Sub

扩展说明 #

后续新增67个复选框不需要额外修改核心逻辑，只要保证复选框的命名符合你设定的统一规则即可，代码会自动识别所有选中的复选框，逐一插入对应数据行。

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