Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako samodejno osvežiti pivot tabelo v Excelu?

Običajno, ko posodobimo izvorne podatke pivotne tabele, vrtilna tabela ne bo posodobljena, dokler ne kliknemo Analizirajte > Osveži ročno. To bo precej dolgočasno, če bo vrtilna miza ostala v drugem delovnem listu in jo lahko pozabite osvežiti. Tukaj bo ta članek predstavil VBA, ki bo samodejno osvežil pivotno tabelo v Excelu.

Samodejno osvežite pivot tabelo z VBA

Preprosto združite več delovnih listov / delovni zvezkov / datotek CSV v en delovni list / delovni zvezek

Morda je dolgočasno združiti več deset listov iz različnih delovnih zvezkov v en list. Ampak s Kutools za Excel Kombinacija (delovni listi in delovne knjige) uporabnost, lahko to storite s samo nekaj kliki! Popolna brezplačna preizkusna različica 60-dan!
oglas združuje liste knjig 1



puščica modra desno mehurčekSamodejno osvežite pivot tabelo z VBA

Sledite spodnjim korakom, da uporabite VBA, da samodejno osvežite določeno vrtilno tabelo v Excelu.

1. V vrstici zavihek Sheet z desno miškino tipko kliknite zavihek stanja, ki vsebuje izvorne podatke, in izberite Ogled kode v kontekstnem meniju. Prikaz slike:

2. V oknu za Microsoft Visual Basic za aplikacije prilepite kodo.

VBA: samodejno osvežite določeno vrtilno tabelo

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Opombe:
(1) V kodeksu delovnih listov ("ime lista"). Življenjepisi ("Ime vrtilne tabele") .PivotCache.Refresh, prosim, zamenjajte ime lista z imenom lista, ki vsebuje določeno vrtilno mizo, in zamenjajte Ime vrtilne tabele z imenom navedene pivotne tabele.
(2) Izberite katero koli celico v določeni pivotni tabeli, boste dobili njegovo ime na Analizirajte tab (ali možnosti tab). Prikaz slike:

3. Shranite kodo.

Od zdaj naprej, ko spremenite podatke v izvornih podatkih, se bo določena vrtilna tabela samodejno osvežila.


puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    César Augusto Betanc · 1 years ago
    If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("M:M")) Is Nothing Then
    Exit Sub
    Else
    'MsgBox "You just changed" & Target.Address
    Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
    End If

    End Sub