VBAマクロを使用してExcelブックからすべてのチェックボックスをオフにします

Question

100を超えるチェックボックスを備えたブックがあります。

彼らは私が彼らfalseにそれらを設定されていることを一度

すべてを非選択したいフォームコントロールのチェックボックス

です。

Sub clearcheck() 
ActiveSheet.CheckBoxes.Value = False 
End Sub 

これはアクティブなシートで有効です。私はこのコードをブック全体にしたいです

私はコードを探してチェックボックスをクリアすることを試みましたが、賢明ではありません。いくつかのいずれかが私に

を導くことができれば、私は本当に感謝

はあなたに感謝

Answer 1

あなたは、その後のOLEObjectスタイル（のActiveX）のチェックボックスがある場合：

Sub terranian() 
    Dim o As Object 
    For Each o In ActiveSheet.OLEObjects 
     If InStr(1, o.Name, "CheckBox") > 0 Then 
      o.Object.Value = False 
     End If 
    Next 
End Sub 

EDIT1：を

チェックボックスを作成すると、次のように動作します：

Sub clearcheck() 
    Dim sh As Worksheet 
    For Each sh In Sheets 
     On Error Resume Next 
      sh.CheckBoxes.Value = False 
     On Error GoTo 0 
    Next sh 
End Sub