Un cuadro combinado es una lista desplegable en la que el usuario puede seleccionar un elemento o rellenar su propia elección. Para crear un combo box en Excel VBA , ejecute los siguientes pasos.
1. En la pestaña Desarrollador, haga clic en Insertar.
2. En el grupo Controles ActiveX, haga clic en Cuadro combinado.
3. Arrastra un cuadro combinado en tu hoja de trabajo.
Nota: puede cambiar el nombre de un control haciendo clic con el botón derecho del ratón en el control (asegúrese de que el modo de diseño esté seleccionado) y luego haciendo clic en Propiedades. Por ahora, dejaremos ComboBox1 como el nombre del cuadro combinado.
Crear un evento de apertura de libro de trabajo. El código agregado al Evento de Apertura de Libro de Trabajo será ejecutado por Excel VBA cuando abra el libro de trabajo.
4. Abra el Editor de Visual Basic.
5. Haga doble clic en este libro de trabajo en el Explorador del Proyecto.
6. 6. Elija Libro de trabajo en la lista desplegable de la izquierda y elija Abrir en la lista desplegable de la derecha.
7. Para agregar elementos al cuadro combinado, agregue las siguientes líneas de código al Evento de Apertura de Cuaderno de Trabajo:
Con Sheet1.ComboBox1 …AddItem «Paris»… …AddItem «New York» …AddItem «Londres»… Termina con
Nota: utilice la Hoja 2 si su cuadro combinado se encuentra en la segunda hoja de cálculo, la Hoja 3 si su cuadro combinado se encuentra en la tercera hoja de cálculo, etc. Si utiliza estas líneas de código fuera del evento de Apertura del libro de trabajo, es posible que desee agregar las líneas de código que aparecen a continuación antes de estas líneas de código. La primera línea de código borra el cuadro combinado. De esta manera, sus elementos no se agregarán varias veces si ejecuta su código más de una vez. La segunda línea de código borra su propia elección.
ComboBox1. Despejado ComboBox1.Valor = «»
8. Para vincular este cuadro combinado a una celda, haga clic con el botón derecho del ratón en el cuadro combinado (asegúrese de que el modo de diseño esté seleccionado) y haga clic en Propiedades. Rellena D2 para LinkedCell.
Nota: ver también la propiedad ListFillRange para llenar un cuadro combinado con un rango de celdas.
9. Guarda, cierra y vuelve a abrir el archivo de Excel.
Resultado:
Aunque en algunas situaciones puede ser útil colocar directamente un cuadro combinado en la hoja de cálculo, un cuadro combinado es especialmente útil cuando se coloca en un formulario de usuario.