使用UserForm删除行

Question

我建立了一个带有组合Combobox的简单UserForm ，用于按名称删除行。

• 我已经使用宏填充了Combobox框行源，以建立一个名为“ Combo_List”的命名范围。 我将其静态插入到rowsource属性中（意味着，我没有使用代码来做到这一点）。
• 同样在UserForm还有一个Checkbox ，我想将其用于确认目的。
• 从列表中选择用户名后，他们需要在“ Checkbox打勾，然后可以单击“删除”按钮。

我不知道如何编写验证Checkbox然后删除所选行的代码。

如果有帮助，下面是构建命名范围然后显示UserForm ：

Sub RecordDelete()

Dim LastRow As Long
ActiveSheet.Select

LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 
Range("B3:B" & LastRow).Name = "Combo_List" 
frmDeleteData.Show

End Sub

该复选框仅被命名为“ checkbox1”。 有什么帮助吗？

Answer 1

一种方法是

1. 在设计模式下，将Delete CommandButton Enabled的默认属性设置为False 。
2. 将代码添加到CheckBox ，使该CommandButton时，该Checkbox被选中
3. 向删除CommandButton添加代码以删除整行

码

Private Sub CheckBox1_Click()
 CommandButton1.Enabled = CheckBox1.Value
End Sub

Private Sub CommandButton1_Click()
    Dim rng1 As Range
    If Me.CheckBox1 Then
        Set rng1 = Range("Combo_List").Find(Me.ComboBox1.Value, , xlValues, xlWhole)
        If Not rng1 Is Nothing Then
            rng1.EntireRow.Delete
        Else
            MsgBox Me.ComboBox1.Value & "not found"
        End If
    Else
    `redundant if button is disabled
        MsgBox "Checkbox not checked!", vbCritical
    End If
End Sub