Bỏ chọn tất cả các hộp kiểm từ sổ làm việc Excel với VBA Macro

Question

Tôi có sổ làm việc với hơn 100 hộp kiểm.

Họ là điều khiển biểu mẫu hộp kiểm

Tôi muốn bỏ chọn tất cả cùng một lúc

đó là đặt chúng vào sai.

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

Làm việc cho trang tính hiện hoạt. Tôi muốn mã này dành cho toàn bộ sổ làm việc

Tôi đã thử tìm mã và làm rối tung bằng cách xóa các hộp kiểm nhưng không có gì khôn ngoan hơn.

Tôi thực sự sẽ đánh giá cao nếu một số ai có thể hướng dẫn cho tôi

cảm ơn bạn

Answer 1

Nếu bạn có OLEObject kiểu (ActiveX) hộp kiểm tra, sau đó:

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:

Nếu chúng là biểu mẫu hộp kiểm, sau đó các công việc sau sẽ hoạt động:

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