El control del ComboBox se usa para añadir elementos al cuadro de combinaciones y para que el usuario pueda elegir entre ellas. Dependiendo del valor (si está activo o no) se realiza una acción u otra.
Ejemplo: Un ejemplo que involucre la adición y eliminación de elementos seria en una situación en la que un cine tiene que poner en su cartelera las películas de la semana. Los títulos de las películas van cambiando cada semana por ello creamos el siguiente procedimiento en un formulario:
Private Sub UserForm_Activate()
ult = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ult
ComboBox1.AddItem (Cells(i, 1))
Next
End Sub
Private Sub CommandButton1_Click()
TextBox1.Text = ComboBox1.Value
End Sub
Este código permite que cuando se agregan o se quitan películas en la hoja excel, inmediatamente se añade o se elimina del cuadro de combinaciones. Como se muestra:
ANTES:
DESPUÉS: (Se ha eliminado una película y se ha puesto otra)
Elaborado por: Juan Carlos Castillo
4 comentarios
Escriba un comentario →