Combobox

Pedro Pablo
25 de Enero del 2006
Hola como están?

Yo estoy recuén aprendiendo Visual, igual he hecho algunas macros pero muy simples.

El problema es que ahora necesito aprender a usar los Combobox pero nose como se programan, como se le ponen cosas adentro, me lei el help del visual y ahí ví que eso se hacía con el "additem", pero nose si se agraga en el mismo combobox().
en verda como que no entiendo

Alguien me puede explicar muyyyy basicamente como se hace un combobox

Rosa
25 de Enero del 2006
Si quieres agregar elementos a un combobox lo haces con el método AddItem, algo así:

Combo1.AddItem "Primero"
Combo1.AddItem "Segundo"
Combo1.AddItem "Tercero"
Combo1.AddItem "Cuarto"

Si quieres llenarlo de una tabla pues haces el bucle para usar el AddItem

También lo puedes hacer en tiempo de diseño agregando los elementos en la propiedad List y pasas al siguiente con CTRL+ENTER

Otras propiedades que te pueden servir son:

ListCount: Te devuelve la cantidad de elementos del combo
ListIndex: El índice del elemento seleccionado (comienza en cero). Si no quieres que aparezca seleccionado un elemento en el combo, le das a esta propiedad el valor -1

Si quieres eliminar un elemento del combobox usas el método RemoveItem seguido del índice del elemento, así:

combo1.RemoveItem 3
Eso borra el elemento "Cuarto" del ejemplo anterior (el índice comienza en cero)

combo1.clear
Eso elimina todo el contenido del combo

Si quieres recorrer el combo, puede ser así:

for i = 0 to combo1.listcount - 1
MsgBox Combo1.List(i)next
next

Si quieres saber cuál es el elemento seleccionado, sería así:

Combo1.List(Combo1.ListIndex)

Espero que eso te ayude.

Pedro Pablo
25 de Enero del 2006
ya gracias te pasaste..

Te voy a contar mi duda específica:
yo tengo una lista de aviones "B737, B767, A320, A340"
esos 4 , estoy haciendo una macro en un User form ()
y yo tenia esta flota de aviones pero en Option Button.
cuando tu selecionabas una se te plasmaba en una celda de una planilla exel.

Ya ... ahora para ahorrar espacio se me ocurrio que podía meter esa misma lista de aviones en un Combobox... pero no se como hacerlo.

Mi pregunta es: Como lo puedo hacer para que al hacer clic sobre el boton del combobox se me despliege la lista de esos 4 aviones y que al selecciónar un avoón se me plasme en una celda de una hoja exel...

si me puedes ayudar sería buenísimo...

Gracias

Rosa
25 de Enero del 2006
Private Sub UserForm_Activate()

ComboBox1.AddItem "B737"
ComboBox1.AddItem "B767"
ComboBox1.AddItem "A320"
ComboBox1.AddItem "A340"

End Sub


Private Sub ComboBox1_Click()

Worksheets("Hoja1").Cells(1, 1) = ComboBox1.List(ComboBox1.ListIndex)

End Sub

Pedro Pablo
25 de Enero del 2006
Gracias !!!!!!

eso era todo