基于选定的单元格删除多个checkbox

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

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