VBA 매크로가 포함 된 Excel 통합 문서의 모든 확인란 선택 취소

Question

100 개가 넘는 확인란이있는 통합 문서가 있습니다.

그들은 폼 컨트롤 체크 박스

내가 허위로 설정하면

에서 모두 해제를 선택하고자합니다.

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

이것은 활성 시트에 적용됩니다. 이 코드를 전체 통합 문서로 사용하고 싶습니다.

코드를 찾고 시도를 해봤지만 확인란을 지우지는 않았지만 현명하지 않았습니다. 어떤 사람이 나에게

을 안내 할 수 있다면 정말 감사하겠습니다

당신을 감사

Answer 1

당신은 OLEObject입니다 스타일 (액티브) 체크 박스가있는 경우 :

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