Выберите / выделите каждую вторую пару в списке UserForm

Question

Мне интересно, есть ли какое-нибудь решение для выбора / выделения каждой второй пары в списке с каким-нибудь фрагментом кода?

Я сел в список для MultiSelect:

И я хочу добиться чего-то подобного:

Нажав кнопку на пользовательской форме:

Private Sub CommandButton1_Click()

' Select every second pair

End Sub

Я пытался поиграть с:

Private Sub CommandButton1_Click()

' Select every second pair

sameCustomerComparison.Selected(1) = True
sameCustomerComparison.Selected(2) = True

sameCustomerComparison.Selected(5) = True
sameCustomerComparison.Selected(6) = True

End Sub

, но выдает ошибку ... отладчик указывает на sameCustomerComparison.Selected(1) = True

Answer 1

Этого можно достичь просто с помощью al oop

Private Sub CommandButton1_Click()
    Dim i As Long
    With Me.ListBox1
        .MultiSelect = fmMultiSelectMulti
        For i = 0 To .ListCount - 1 Step 4
            If i <= .ListCount Then .Selected(i) = True
            If i + 1 <= .ListCount Then .Selected(i + 1) = True
        Next i
    End With
End Sub