Как я могу посчитать "флажки" только в Page1 в UserForm1? - PullRequest
0 голосов
/ 30 мая 2018

Как я могу считать «Флажки» только в Page1 в UserForm1 с VBA?Мой здесь ниже подсчитывает все в Page2 и Page3.Спасибо.

Private Sub CommandButton1_Click()
    Dim cnt As Integer
    cnt = Count.CheckBox()
    If Me.MultiPage1.Enabled = True Then
        Dim ctrl As msforms.Control, cnt As Long    
        cnt = 0
        For Each ctrl In UserForm1.Controls
            If TypeOf ctrl Is msforms.CheckBox Then
                cnt = cnt + 1
            End If
        Next
        MsgBox cnt
     End If

1 Ответ

0 голосов
/ 30 мая 2018

Вы найдете их здесь:

Me.MultiPage1.Pages(0).Controls

Если вам просто нужно число:

MsgBox Me.MultiPage1.Pages(0).Controls.Count

ОБНОВЛЕНИЕ
Теперь фактически подсчитываем флажки

For Each ctrl In Me.MultiPage1.Pages(0).Controls
    If TypeOf ctrl Is msforms.CheckBox Then
        cnt = cnt + 1
    End If
Next
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...