VB - Непроверка флажков в коробке Группа: Ответ не работает

Question

я нашел возможный ответ на мой вопрос о том, как это сделать here

Однако код из этого вопроса:

Sub UnCheckBoxes() 
Dim ChkBox As CheckBox = Nothing 
    ' to unchecked all 
    For Each ChkBox As Object In Worksheets("Check sheet").Report_Checks.Controls 
     If TypeOf xObject Is CheckBox Then 
      ChkBox = xObject 
      ChkBox.Checked = False 
     End If 
    Next 
End Sub 

Производит ошибку «Ошибка компиляции: синтаксическая ошибка». Любая помощь оценивается

Answer 1

Согласно моему комментарию. Переключите код:

Sub UnCheckBoxes() 
    Dim ChkBox As CheckBox = Nothing 
    ' to unchecked all 
    For Each xObject As Object In Worksheets("Check sheet").Report_Checks.Controls 
     If TypeOf xObject Is CheckBox Then 
      ChkBox = xObject 
      ChkBox.Checked = False 
     End If 
    Next 
End Sub 

Объект XObject используется в качестве универсального класса к проходным всех элементов управления в Report_Checks. Затем оператор If проверяет, имеет ли xObject тип CheckBox. ChkBox затем устанавливаются на XObject, так что вы можете получить доступ к его свойствам CheckBox и назначить .Checked = False

Answer 2

Вот решение, которое использует OfType удалить необходимость проверки типа объекта каждый раз, когда

For Each ChkBox As CheckBox In Worksheets("Check sheet").Report_Checks.Controls.OfType(Of CheckBox) 
    ChkBox.Checked = False 
Next