¿Cómo rellenar un cuadro combinado de un formulario de usuario con los nombres de todas las hojas en Excel?
Este artículo explica cómo rellenar automáticamente todos los nombres de las hojas del libro de trabajo actual en un cuadro combinado de un formulario de usuario en Excel.
Rellene un cuadro combinado de un formulario de usuario con todos los nombres de hojas mediante código VBA
El siguiente código VBA le permite insertar automáticamente los nombres de todas las hojas del libro de trabajo actual en un cuadro combinado de un formulario de usuario. Siga estos pasos:
1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, inserte un formulario de usuario haciendo clic en Insertar > Formulario de usuario, tal como se muestra en la siguiente captura de pantalla.
3. A continuación, dibuje e inserte un control de cuadro combinado en el formulario de usuario. Consulte la captura de pantalla:
4. Haga clic con el botón derecho en el cuadro combinado insertado y seleccione Ver código en el menú contextual. Vea la captura de pantalla:
5. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA para reemplazar el original en la ventana de código.
Código VBA: Rellenar un cuadro combinado de un formulario de usuario con todos los nombres de hojas de Libro de trabajo actual
Private Sub UserForm_Initialize()
Dim I As Long
Me.ComboBox1.Clear
For I = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
Me.ComboBox1.Value = ActiveSheet.Name
End SubNota: En el código, ComboBox1 es el nombre del cuadro combinado insertado. Reemplácelo por el suyo propio.
6. Pulse la tecla F5 para ejecutar el código. En el formulario de usuario que se abre, verá que todos los nombres de las hojas del libro de trabajo actual aparecen en el cuadro combinado, tal como se muestra en la siguiente captura de pantalla:
Enumere fácilmente todos los nombres de hojas en Excel
La utilidad Crear tabla de enlace de Kutools para Excel le permite enumerar fácilmente todos los nombres de las hojas del libro de trabajo actual en una nueva hoja de cálculo en Excel. Además, puede cambiar directamente a la hoja correspondiente haciendo clic en su nombre, tal como se muestra en la siguiente captura de pantalla.
¡Descárguela y pruébela ahora!
Artículos relacionados:
- ¿Cómo copiar el valor seleccionado en un cuadro combinado a la celda activa en Excel?
- ¿Cómo mostrar el formato de fecha en la salida del cuadro combinado en Excel?
- ¿Cómo abrir una hoja de cálculo específica en Excel según el valor seleccionado en un cuadro combinado?
- ¿Cómo impedir o deshabilitar la escritura en un cuadro combinado de Excel?
- ¿Cómo usar la tecla Tab para salir de un cuadro combinado y seleccionar una celda específica en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos