de-vraag
  • Otázky
  • Značky
  • Používatelia
Oznámenia
Odmeny
Registrácia
Po registrácii budete informovaní o odpovediach a komentároch na vaše otázky.
Prihlásiť sa
Ak už máte konto, prihláste sa a skontrolujte nové oznámenia.
Za pridané otázky, odpovede a komentáre budú udelené odmeny.
Viac na
Zdroj
Upraviť
 Lipis
Lipis
Question

Obnovenie všetkých otočných tabuliek v mojom zošite programu Excel pomocou makra

Mám zošit s 20 rôznymi otočnými tabuľkami. Existuje nejaký jednoduchý spôsob, ako nájsť všetky pivotné tabuľky a obnoviť ich vo VBA?

78 2008-09-16T10:14:20+00:00 3
 Lipis
Lipis
Edited question 24 júl 2019 в 4:50
Programovanie
vba
excel
excel-vba
refresh
This question has 1 odpoveď in English, to read them log in to your account.
Solution / Answer
 GSerg
GSerg
16 september 2008 в 10:18
2008-09-16T10:18:52+00:00
Viac na
Zdroj
Upraviť
#8462303

Áno.

ThisWorkbook.RefreshAll

Alebo, ak je vaša verzia programu Excel dostatočne stará,

Dim Sheet as WorkSheet, Pivot as PivotTable
For Each Sheet in ThisWorkbook.WorkSheets
    For Each Pivot in Sheet.PivotTables
        Pivot.RefreshTable
        Pivot.Update
    Next
Next
Andy Terra
Andy Terra
Edited answer 19 február 2014 в 7:12
162
0
Robert Mearns
Robert Mearns
16 september 2008 в 10:37
2008-09-16T10:37:07+00:00
Viac na
Zdroj
Upraviť
#8462306

Tento kód VBA obnoví všetky otočné tabuľky/grafy v zošite.

Sub RefreshAllPivotTables()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub

Ďalšou neprogramovou možnosťou je:

  • Kliknite pravým tlačidlom myši na každú otočnú tabuľku
  • Vyberte položku Možnosti tabuľky
  • Začiarknite možnosť 'Obnoviť pri otvorení'.
  • Kliknite na tlačidlo OK

Tým sa pivotná tabuľka obnoví pri každom otvorení zošita.

26
0
 LohanJ
LohanJ
16 september 2008 в 10:22
2008-09-16T10:22:35+00:00
Viac na
Zdroj
Upraviť
#8462305

Máte kolekciu PivotTables na objekte VB Worksheet. Takže bude fungovať takáto rýchla slučka:

Sub RefreshPivotTables()
    Dim pivotTable As PivotTable
    For Each pivotTable In ActiveSheet.PivotTables
        pivotTable.RefreshTable
    Next
End Sub

Poznámky zo zákopov:

  1. Pred aktualizáciou PivotTable nezabudnite zrušiť ochranu všetkých chránených hárkov.
  2. Často ukladajte.
  3. Vymyslím viac a včas aktualizujem... :)

Veľa šťastia!

1
0
Pridať otázku
Kategórie
Všetky
Technológia
Kultúra / Rekreácia
Život / Umenie
Veda
Profesionálne
Obchod
Používatelia
Všetky
New
Popular
1
Jasur Fozilov
Registered pred 8 hodinami
2
Zuxriddin Muydinov
Registered pred 23 hodinami
3
Денис Анненский
Registered pred 3 dňami
4
365
Registered pred týždňom
5
True Image
Registered pred týždňom
DE
EL
ES
FR
ID
IT
JA
LV
NL
PT
RU
SK
SL
TR
ZH
© de-vraag 2022
Zdroj
stackoverflow.com
na základe licencie cc by-sa 3.0 s uvedením autora