Odznacz wszystkie pola wyboru z skoroszytu programu Excel z makrem VBA

Question

Mam skoroszyt z ponad 100 pól wyboru.

Są checkboxes kontroli forma

chciałbym je wszystkie un-wybrać co raz

który jest ustawiony im fałszywe.

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

Działa dla aktywnego arkusza. Chciałbym, aby ten kod był dla całego skoroszytu

Próbowałem poszukać kodu i rozmawiając o wyczyszczeniu pól wyboru, ale nie jestem mądrzejszy.

będę naprawdę wdzięczny jeśli ktoś mógłby poprowadzić mnie

dziękuję

Answer 1

Jeśli masz OLEObject stylu (ActiveX) wyboru, a następnie:

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:

Jeśli są to tworzy pola wyboru, następnie następujące czynności będą działać:

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