macros删除某个单元格的checkbox

我将checkbox拉入电子表格中，用于select某些订单项以获得最终成本。 有一些不需要的checkbox被拉进来，大概有5个左右。 我可以使用macros来获取这些不需要的checkbox的特定单元格。 这些不必要的checkbox不会总是在同一个地方由于我的数据更改，所以我将不得不删除他们一个一个应该不是一个问题，除非我不知道代码删除checkbox从活动的细胞。 我需要一个代码来删除活动单元格或选定单元格中的checkbox。 我已经包含了我在下面尝试过的一些编码。 第一部分是让我到正确的单元格删除checkbox。 第二部分是两个不同的代码，我试图删除checkbox，但都没有工作。 我感谢你的意见。

'To delete unwanted checkboxes Sheets("Quote Sheet").Select Range("B9").Select Selection.End(xlDown).Select ActiveCell.Offset(0, -1).Select ActiveSheet.Shapes.Range(Array("Check Box 456")).Select Selection.Delete Selection.Cut ActiveCell.CheckBoxes.Delete Selection.FormatConditions.Delete 

Answer 1

此代码将删除位于活动单元格的任何Excelcheckbox。

 Sub DeleteCheckbox() Dim cb As CheckBox For Each cb In ActiveSheet.CheckBoxes If cb.TopLeftCell.Address = ActiveCell.Address Then cb.Delete Next End Sub 

如果你使用的ActiveXcheckbox，这个代码将完成这项工作：

 Sub DeleteActiveXCheckbox() Dim obj As OLEObject Dim cb As MSForms.CheckBox For Each obj In ActiveSheet.OLEObjects If TypeOf obj.Object Is MSForms.CheckBox Then Set cb = obj.Object If cb.ShapeRange.Item(1).TopLeftCell.Address = _ ActiveCell.Address Then obj.Delete End If Next End Sub