Preskoči na glavno vsebino

Kako preveriti, ali v delovnem zvezku obstaja vrtilna tabela?

Avtor: Xiaoyang Zadnja sprememba: 2014-11-19

Če je v vašem delovnem zvezku več vrtilnih tabel in zdaj, boste hitro želeli vedeti, ali v tem delovnem zvezku obstaja določena vrtilna tabela. Običajno lahko odprete pogovorno okno Možnosti vrtilne tabele, da eno za drugim preverite ime vrtilne tabele, vendar je to zamudno in dolgočasno, če je vrtilnih tabel na ducate ali stotine. Tu lahko govorim o triku, s katerim boste rešili to nalogo.

Preverite, ali v delovnem zvezku s funkcijo, ki jo določi uporabnik, obstaja vrtilna tabela


puščica modri desni mehurček Preverite, ali v delovnem zvezku s funkcijo, ki jo določi uporabnik, obstaja vrtilna tabela

Če želite hitro vedeti, ali v trenutnem delovnem zvezku obstaja vrtilna tabela, lahko ustvarite uporabniško določeno funkcijo, da jo rešite.

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

2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: preverite, ali v delovnem zvezku obstaja vrtilna tabela

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, se vrnite na svoj delovni list, vnesite to formulo = pivotexist ("poročilo o prodaji") v prazno celico si oglejte posnetek zaslona:

doc-check-vrtilna tabela-obstaja-1

Opombe: (1.) V zgornji formuli „poročilo o prodaji"Je ime vrtilne tabele, ki jo želite preveriti.

(2.) Ime vrtilne tabele morate vnesti v dvojne narekovaje, ime pa mora biti občutljivo na velike in male črke.

5. Po vnosu formule pritisnite tipko Enter, če ste jo dobili TRUE v vaši celici obstaja vrtilna tabela, če jo dobite FALSE, vrtilna tabela ne obstaja.


Sorodni članki:

Kako našteti vse vrtilne tabele iz delovnega zvezka?

Kako v vrtilno tabelo dodati več polj?

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
PivotExist = True
Exit Function '--> this is better so no extra loop needed
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations