基于选定单元格删除多个复选框答案

【问题标题】：Deleting Multiple Checkboxes Based on Selected Cell基于选定单元格删除多个复选框
【发布时间】：2015-05-11 02:50:45
【问题描述】：

我有一些 Excel 工作表使用 ActiveX 复选框来控制某些活动。我正在寻找一种方法来删除所选单元格列的内容（文本和复选框）。到目前为止，我一直在使用下面的代码，但它只删除了活动单元格下方单元格中的复选框。任何帮助将不胜感激！

Sub DeleteJob1_Click()

If MsgBox("This will erase this job! Are you sure?", vbYesNo) = vbNo Then Exit Sub
Columns(ActiveCell.Column).Delete

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.TopLeftCell.Address = ActiveCell.Address Then cb.Delete
Next

End Sub

【问题讨论】：

标签： vba excel

【解决方案1】：

尝试：

Sub DeleteJob1_Click()
    Dim cb As CheckBox
    If MsgBox("This will erase this job! Are you sure?", vbYesNo) = vbNo Then Exit Sub
    For Each cb In ActiveSheet.CheckBoxes
        If cb.TopLeftCell.Column = ActiveCell.Column Then cb.Delete
    Next
    Columns(ActiveCell.Column).Delete
End Sub

【讨论】：