选择/突出显示用户窗体列表框中的每两对

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

您可以通过循环简单地实现此目的

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