¿Cómo enumerar todas las tablas dinámicas de un libro de trabajo?
Supongamos que tiene un libro de trabajo grande con varias tablas dinámicas y desea enumerarlas todas. ¿Es posible? ¡Por supuesto! El siguiente código VBA de este artículo le ayudará. Para obtener más detalles, lea el artículo siguiente.
Enumerar todas las Tabla Dinámica de un libro de trabajo con código VBA
Enumerar todas las Tabla Dinámica de un libro de trabajo con código VBA
El siguiente código VBA puede ayudarle a enumerar todos los nombres de las Tabla Dinámica junto con sus atributos, como el rango de Datos de origen, Nombre de la hoja de cálculo, la fecha de actualización y otros.
1. Abra el libro de trabajo del que desea enumerar todas las tablas dinámicas.
2. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Enumerar todas las Tabla Dinámica de un libro de trabajo
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. A continuación, pulse la tecla F5 para ejecutar este código. Todos los nombres de las tablas dinámicas, el rango de datos de origen, el nombre de la hoja de cálculo y otros atributos se muestran en una nueva hoja situada delante de su hoja activa, tal como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
¿Cómo puedo comprobar si hay una Tabla Dinámica en un libro de trabajo?
¿Cómo agregar varios campos a una tabla dinámica?
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