清除所有checkbox

我创build一个macros来清除表单中的单元格和所有checkbox，但是它只会清除第一个checkbox中的checkbox（并勾选所有其他checkbox）。 我的代码：

Sub clearcheck() ActiveSheet.CheckBoxes.Value = False Range("D4:E4").Select Selection.ClearContents ActiveSheet.Shapes.Range(Array("Label 61")).Select Range("H4:I4").Select Selection.ClearContents Range("M4:N4").Select Selection.ClearContents End Sub 

截图

任何人都可以帮我用我的代码？

Answer 1

您可能正面临将FormControls与ActiveX控件混合的典型问题。 试试这个代码，让我知道它是否工作：

 Public Sub UncheckAll() On Error Resume Next For Each x In Worksheets("Sheet2").Shapes Select Case x.Type Case 8 Debug.Print x.Name & " is a FormControl" x.OLEFormat.Object.Value = False Case 12 Debug.Print x.Name & " is an ActiveX Control" Worksheets("Sheet2").OLEObjects(x.Name).Object.Value = False Case Else Debug.Print x.Name & " is neither" End Select Next x On Error GoTo 0 End Sub