根据所选单元格删除多个复选框

Question

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

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

Answer 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

根据所选单元格删除多个复选框

Deleting Multiple Checkboxes Based on Selected Cell

excel

vba