¿Cómo enumerar todas las tablas dinámicas de un libro de trabajo?
Suponiendo que tiene un libro de trabajo grande que contiene varias tablas dinámicas, ahora desea enumerar todas las tablas dinámicas en este libro, ¿es posible? Por supuesto, el siguiente código VBA en este artículo le hará un favor. Para conocer más detalles, lea el artículo a continuación.
Enumere todas las tablas dinámicas de un libro de trabajo con código VBA
Enumere todas las tablas dinámicas de un libro de trabajo con código VBA
El siguiente código de VBA puede ayudarlo a enumerar todos los nombres de la tabla dinámica junto con sus atributos, como el rango de datos de origen, el nombre de la hoja de trabajo, la fecha de actualización, etc.
1. Abra su libro de trabajo en el que desea enumerar todas las tablas dinámicas.
2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: enumere todas las tablas dinámicas 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. Entonces presione F5 clave para ejecutar este código, todos los nombres de la tabla dinámica, el rango de datos de origen, el nombre de la hoja de trabajo y otros atributos se enumeran en una nueva hoja de trabajo que se coloca al frente de su hoja de trabajo activa como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
¿Cómo comprobar si existe una tabla dinámica en un libro de trabajo?
¿Cómo agregar varios campos a la tabla dinámica?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!