Проверьте, что по крайней мере 1 установлен флажок

Question

У меня есть поиск по тому же вопросу, и я видел несколько подобных сообщений, однако мой Userform по-прежнему не может работать. Я новичок в VBA и Userform.

У меня есть в общей сложности 12 флажков (12 месяцев), и я должен проверить, проверен ли хотя бы один из CheckBox.

Dim atLeastOneChecked As Boolean 
atLeastOneChecked = False 
Dim ctrlNCK As Control 
For Each ctrlNCK In Controls 
    If TypeName(ctrlNCK) = "chkMonth" Then 
     If ctrlNCK.Value = True Then atLeastOneChecked = True 
    End If 
Next ctrlNCK 

If Not atLeastOneChecked = True Then 
    MsgBox "Month cannot be empty.", vbExclamation, "Input Data" 
    Exit Sub 
    End If 

Answer 1

Это проверялось, но попробовать:

If Left(ctrlNCK.Name,8) = "chkMonth" Then 

Я бы никогда не ожидал Тип быть "chkMonth". Это предполагает, что каждое релевантное имя CheckBox начинается с «chkMonth».

Если вам нужен только один и только один месяц, я бы подумал об использовании OptionButtons в Frame.