Excel VBA数据录入工作表问题：复选框设为False时仍自动录入表单数据的解决需求

咱们先拆解下你代码里的核心问题：你在一开始就无条件把表单数据写入了工作表，这就是为什么哪怕复选框没勾选，数据依然会出现在下一行的原因。另外代码还有一些结构问题，比如With块嵌套错误、逻辑分支混乱，导致复选框的判断完全没起到控制录入的作用。

修复思路 #

1. 先统一计算要插入的目标行号，避免重复计算浪费资源
2. 把表单数据的写入逻辑完全放到复选框的True判断分支里，这样只有当复选框勾选时，才会执行录入操作
3. 清理混乱的嵌套结构，修正If和With的配对错误
4. 每个勾选的复选框对应一行独立的数据，尺寸列写入对应的值

修复后的完整代码 #

Sub SubmitData()
    Dim ws As Worksheet
    Dim LastRow As Long, RowInsert As Long
    Dim formData As Variant ' 把表单数据存到数组里，避免重复写Array
    
    ' 初始化工作表对象
    Set ws = ThisWorkbook.Worksheets("stock")
    
    ' 预存表单数据，后续直接复用
    formData = Array( _
        Me.txtDate.Text, _
        Me.textboxparentsku.Text, _
        Me.textboxsku.Text, _
        Me.comboboxbrand.Text, _
        Me.comboboxclosure.Text, _
        Me.comboboxgender.Text, _
        Me.comboboxmaterial.Text, _
        Me.comboboxmodel.Text _
    )
    
    With ws
        ' 计算当前最后一行，每次插入前重新获取，避免插入后行号失效
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        RowInsert = LastRow + 1
        
        ' 处理0k复选框：勾选时才录入
        If Me.CheckBox0k.Value = True Then
            ' 写入表单数据
            .Cells(RowInsert, "A").Resize(1, 8).Value = formData
            ' 写入尺寸值
            .Cells(RowInsert, "I").Value = "0k"
            ' 行号+1，为下一个可能的勾选项准备
            RowInsert = RowInsert + 1
        End If
        
        ' 处理0.5k复选框：勾选时才录入
        If Me.CheckBox05k.Value = True Then
            .Cells(RowInsert, "A").Resize(1, 8).Value = formData
            .Cells(RowInsert, "I").Value = "0.5k"
            ' 如果需要可以继续+1，支持更多复选框
            ' RowInsert = RowInsert + 1
        End If
    End With
    
    ' 释放对象
    Set ws = Nothing
End Sub

关键改动说明 #

• 把表单数据提前存到formData数组里，避免重复编写Array代码，也方便后续修改
• 所有的录入操作都被包裹在If 复选框.Value = True的分支里，只有勾选才会执行写入
• 每次处理完一个勾选的复选框后，自动把行号+1，确保多个勾选的复选框会依次写入不同行
• 修正了原代码里With块嵌套错误、Exit Sub位置不当等问题，逻辑更清晰

你可以根据需要继续添加更多复选框的判断分支，比如CheckBox1k、CheckBox2k等，只需要复制If Me.CheckBoxXX.Value = True Then...End If这段结构即可。

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