variable - Hacer que los elementos del cuadro de lista funcionen como botones de opción VBA

msgbox excel variable

Question

Tengo un formulario de usuario de VBA con un cuadro de lista que contiene 8 elementos. Se define como un cuadro de lista de selección múltiple. El ítem 2 y el ítem 3 dependen uno del otro, por lo que no se pueden seleccionar juntos. Para hacer eso escribí:

If ListBox1.Selected(3) = True Then
    ListBox1.Selected(2) = False
ElseIf ListBox1.Selected(2) = True Then
    ListBox1.Selected(3) = False
End If

Funciona pero no muy bien. Si elijo el elemento 2 y el artículo 3 está bien. pero si intento elegir el elemento 2 después de lo necesario, primero debo deseleccionar el ítem 3 y luego elegir el ítem 2. ¿Hay una mejor manera de hacerlo para que funcione como botones de opción sin la necesidad de cancelar el ítem seleccionado antes de seleccionar otro?

Answer 1

Buena pregunta: ¡esto no es trivial con el cuadro de lista ya que el evento de cambio no le dice qué elemento realmente ha cambiado!

Lo siguiente funciona alrededor de esto almacenando cual de los dos fue seleccionado al final.

''Member fields
Private fListBoxItem2PreviouslySelected As Boolean

Private Sub ListBox1_Change()
    With ListBox1
        If fListBoxItem2PreviouslySelected Then
            If .Selected(3) Then
                .Selected(2) = False
                fListBoxItem2PreviouslySelected = False
            End If
        Else
            If .Selected(2) Then
                .Selected(3) = False
                fListBoxItem2PreviouslySelected = True
            End If
        End If
    End With
End Sub

''Just used for testing purposes
Private Sub UserForm_Initialize()
    Dim i As Long: For i = 0 To 10: ListBox1.AddItem i: Next
End Sub