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 preveriti, ali obstaja vrtilna tabela v delovnem zvezku?

Če v delovni zvezki obstaja več pivotovnih tabel, zdaj pa si želite izvedeti, ali obstaja posebna pivotna tabela v tem delovnem zvezku. Običajno lahko odprete pogovorno okno Možnosti vrtilne tabele, da preverite ime pivotne tabele ena za drugo, vendar je to zelo časovno in dolgočasno, ko je na voljo več deset ali sto vrtilnih tabel. Tukaj lahko govorim o triki, ki vam bo pomagal rešiti to nalogo.

Preverite, ali obstaja vrtilna tabela v delovnem zvezku s funkcijo, ki je definirana uporabnikom


puščica modra desno mehurček Preverite, ali obstaja vrtilna tabela v delovnem zvezku s funkcijo, ki je definirana uporabnikom


Če želite hitro vedeti, ali obstaja vrtilna tabela v trenutni delovni zvezki, lahko za rešitev tega določite funkcijo, ki jo določa uporabnik.

1. Odprite delovni zvezek, ki ga želite preveriti, če obstaja vrtilna tabela.

2. Drži dol ALT + F11 tipke in odpre Okno Microsoft Visual Basic za aplikacije.

3. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Preverite, ali obstaja vrtilna tabela v delovnem zvezku

Function PivotExist(Name As String) As Boolean
'Update 20141112
    Dim sh As Worksheet
    Dim pt As PivotTable
    PivotExist = False
    For Each sh In ActiveWorkbook.Worksheets
        For Each pt In sh.PivotTables
            If pt.Name = Name Then
                PivotExist = True
                Exit For
            End If
        Next
    Next
End Function

4. Nato shranite in zaprite to kodo, pojdite nazaj na svoj delovni list, vnesite to formulo = pivotekist ("salereport") v prazno celico, si oglejte posnetek zaslona:

doc-preverjanje-pivottable-obstaja-1

Opombe: (1.) V zgornji formuli, "salereport"Je ime pivotne tabele, ki jo želite preveriti.

(2.) Vnesti morate ime vrtilne tabele v dvojnih citatih in ime mora biti občutljivo na velike ali male črke.

5. Ko vnesete formulo, pritisnite Enter, če ga dobite TRUE v svoji celici obstaja vrtilna tabela, če jo dobite FALSE, vrtilna tabela ne obstaja.


Sorodni članki:

Kako v seznam vseh vrtilnih tabel izdelati delovni zvezek?

Kako dodati več polj v pivot tabelo?


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.
    Dan Phung · 1 months ago
    PivotExist = True
    Exit Function '--> this is better so no extra loop needed