VBA用户窗体复选框取消勾选时删除对应行数据实现问题

问题原因 #

你当前的代码存在两个核心错误：

• 定位逻辑错误：取消勾选时你计算的RowInsert永远是工作表最后一行的下一行，根本找不到之前勾选时写入数据的对应行，自然无法清空原有内容
• 赋值语法错误： .Cells(RowInsert, "A").Resize(1, 8).Value = ws.Range("I" & RowInsert).Value = "" 这句在VBA中会被识别为逻辑判断：先判断后两个值是否相等，再把布尔结果赋值给前面的单元格，完全不符合清空需求

修正方案 #

你需要先通过复选框的Caption（即尺码值）定位到历史写入的对应行，再执行对应操作，修正后代码如下：

Private Sub CheckBox0k_Click()
    Dim ws As Worksheet
    Dim LastRow As Long, TargetRow As Long
    Dim FindRng As Range
    
    Set ws = ThisWorkbook.Worksheets("stock")
    With ws
        LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        ' 先查找当前复选框对应尺码是否已经存在写入记录
        Set FindRng = .Range("I1:I" & LastRow).Find(What:=CheckBox0k.Caption, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Me.CheckBox0k.Value = True Then
            ' 勾选逻辑：不存在记录则新增，存在记录可按需覆盖或跳过
            If FindRng Is Nothing Then
                TargetRow = LastRow + 1
                ' 写入基础数据
                .Cells(TargetRow, "A").Resize(1, 8).Value = 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 _
                )
                ' 写入尺码
                .Range("I" & TargetRow).Value = CheckBox0k.Caption
            Else
                ' 已存在记录时可按需补充覆盖逻辑，比如更新基础数据
                ' .Cells(FindRng.Row, "A").Resize(1, 8).Value = 数组内容
            End If
        Else
            ' 取消勾选逻辑：找到对应记录直接清空
            If Not FindRng Is Nothing Then
                .Range("A" & FindRng.Row & ":I" & FindRng.Row).ClearContents
                ' 如果需要整行删除可以替换为：.Rows(FindRng.Row).Delete
            End If
        End If
    End With
    Set ws = Nothing
End Sub

扩展提示 #

如果你有多个尺码复选框需要实现相同逻辑，可以把上述代码封装为通用函数，传入复选框对象调用即可，无需每个复选框都编写重复代码。

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