UserForm ListBox의 다음 이전 리스트 선택 - Heeyoung-Ahn/Excel_VBA GitHub Wiki

Private Sub cmd_pre_Click()
    Dim total_list As Integer
    Dim current_list As Integer
    
    If Me.lst1.ListCount <> 0 Then
        total_list = Me.lst1.ListCount
        current_list = Me.lst1.ListIndex + 1
        If current_list > 1 Then
            Me.lst1.Selected(Me.lst1.ListIndex - 1) = True
        Else
            Me.lst1.Selected(Me.lst1.ListCount - 1) = True
        End If
    End If
End Sub

Private Sub cmd_next_Click()
    Dim total_list As Integer
    Dim current_list As Integer
    
    If Me.lst1.ListCount <> 0 Then
        total_list = Me.lst1.ListCount
        current_list = Me.lst1.ListIndex + 1
        If current_list < total_list Then
            Me.lst1.Selected(Me.lst1.ListIndex + 1) = True
        Else
            Me.lst1.Selected(0) = True
        End If
    End If
End Sub