Hogyan lehet felsorolni az összes forgatótáblát egy munkafüzetből?
Ha feltételezzük, hogy van egy nagy munkafüzete, amely több pivot táblázatot tartalmaz, most fel akarja sorolni a munkafüzet összes pivot tábláját, lehetséges? Természetesen a cikkben szereplő következő VBA-kód kedvez. További részletekért olvassa el az alábbi cikket.
Sorolja fel a VBA kóddal ellátott munkafüzet összes pivot tábláját
Sorolja fel a VBA kóddal ellátott munkafüzet összes pivot tábláját
A következő VBA-kód segítségével felsorolhatja az összes kimutatótábla nevét és azok attribútumait, például a forrásadatok tartományát, a munkalap nevét, a frissített dátumot és így tovább.
1. Nyissa meg a munkafüzetet, amelyben fel kívánja sorolni az összes kimutató táblázatot.
2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA-kód: Sorolja fel a munkafüzet összes pivot-tábláját
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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, az összes pivot táblanév, a forrásadat-tartomány, a munkalap neve és az egyéb attribútumok egy új munkalapon szerepelnek, amely az aktív munkalap elé kerül, az alábbi képernyőkép szerint:
Kapcsolódó cikkek:
Hogyan ellenőrizhető, hogy létezik-e forgatótábla egy munkafüzetben?
Hogyan adhatunk több mezőt az elforduló táblához?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!