¿Cómo enumerar todos los libros abiertos y cambiar entre ellos de forma sencilla en Excel?
Microsoft Excel le permite abrir varios libros al mismo tiempo, pero no es fácil cambiar entre todos los libros abiertos. Por ello, puede que desee mostrar todos los libros abiertos en una lista para poder alternar entre ellos con facilidad en Excel. En este artículo le mostraremos cómo enumerar todos los libros abiertos para facilitar la navegación en Excel.
Enumerar únicamente todos los libros abiertos con VBA
Enumerar todos los libros abiertos y cambiar fácilmente a un libro con VBA
Enumerar todos los libros abiertos y cambiar fácilmente a un libro con una herramienta increíble
Enumerar únicamente todos los libros abiertos con VBA
En esta sección aprenderá a utilizar código VBA para enumerar todos los libros abiertos en Excel.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo.
2. A continuación, copie y pegue el siguiente código VBA en el Editor de código.
VBA: enumerar todos los Nombre del libro de trabajo abiertos en Excel
Sub ListWorkbooks()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Range("A1")
xNum1 = Application.Workbooks.Count
For i = 1 To xNum1
xNum2 = Application.Workbooks(i).Sheets.Count
WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
For j = 1 To xNum2
WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
Next
Next
End Sub3. Ejecute el código VBA pulsando la tecla F5. En el cuadro de diálogo KutoolsforExcel, especifique una celda para colocar la lista de libros y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:
A continuación, se muestran todos los libros abiertos junto con sus hojas de cálculo correspondientes.
¿Le resulta complicado manejar el código VBA? ¡Puede lograrlo con el tercer método en solo unos clics!
Enumerar todos los libros abiertos y cambiar fácilmente a un libro con VBA
Si desea enumerar todos los libros para poder alternar fácilmente entre ellos, pruebe a utilizar el siguiente código VBA:
1. Pulse las teclas Alt+F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar>Módulo.
2. Copie y pegue el siguiente código VBA en la ventana del módulo que acaba de abrir.
Código VBA: enumerar todos los libros abiertos y cambiar a un libro
Sub SelectWB()
Dim xWBName As String
Dim xWb As Workbook
Dim xSelect As String
For Each xWb In Application.Workbooks
xWBName = xWBName & xWb.Name & vbCrLf
Next
xTitleId = "KutoolsforExcel"
xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
Application.Workbooks(xSelect).Activate
End Sub3. Pulse la tecla F5 para ejecutar el código. A continuación, aparecerá un cuadro de diálogo de KutoolsforExcel con una lista de todos los libros abiertos. Si desea cambiar a un libro específico, introduzca su nombre en el cuadro y haga clic en el botón Aceptar. Vea la captura de pantalla:
Enumerar todos los libros abiertos y cambiar fácilmente a un libro con una herramienta increíble
Con la Navegación de Kutools para Excel, todos los libros abiertos se muestran automáticamente en un panel para que puedas navegar entre ellos con facilidad. ¡Simplemente haz clic en cualquiera de los libros abiertos y accederás a él al instante!
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
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