Listas de textos

Listas de textos:

En el evento Initialize del formulario, escriba el siguiente código. El cuadro de lista recogerá los valores almacenados en un rango de celdas de la hoja de cálculo de Excel.

Private Sub UserForm_Initialize()
  Dim rng As Range
  For Each rng In Range("A1:A20")
        Me.lEstados.AddItem rng.Value
  Next rng
End Sub

Cuando ejecutamos el formulario, el cuadro de lista se mostrará como se demuestra en la imagen siguiente:

Seleccionar valores del cuadro de lista

Por defecto, se puede seleccionar un solo valor en un cuadro de lista en un formulario de usuario. Sin embargo, esto se puede modificar cambiando la propiedad Multi-Select del cuadro de lista. Haga clic en el cuadro de lista para seleccionarlo y, a continuación, en la ventana de propiedades, cambie la propiedad Multi-Select de 0-frmMultiSelectSingle a 1-frmMultiSelectMulti.

Ahora, cuando ejecutamos el formulario, podemos seleccionar más de una opción en el cuadro de lista.

Si cambiamos la opción a 2-frmMultiSelectExtended, significa que podemos seleccionar uno de los valores, y luego, manteniendo pulsada la tecla SHIFT, seleccionar otro valor más abajo en la lista, y todos los elementos entre los 2 valores seleccionados también serán seleccionados.