Skip i'r prif gynnwys

Sut i wirio a oes tabl colyn yn bodoli mewn llyfr gwaith?

Os oes tablau colyn lluosog yn eich llyfr gwaith, ac yn awr, rydych chi eisiau gwybod yn gyflym a oes tabl colyn penodol yn bodoli yn y llyfr gwaith hwn. Fel rheol, gallwch fynd i'r blwch deialog Opsiynau PivotTable i wirio enw'r tabl colyn fesul un, ond mae hyn yn cymryd llawer o amser ac yn ddiflas pan fydd dwsinau neu gannoedd o dablau colyn. Yma, gallaf siarad am dric i chi ddatrys y dasg hon.

Gwiriwch a oes tabl colyn yn bodoli mewn llyfr gwaith sydd â swyddogaeth Diffiniedig Defnyddiwr


swigen dde glas saeth Gwiriwch a oes tabl colyn yn bodoli mewn llyfr gwaith sydd â swyddogaeth Diffiniedig Defnyddiwr

I wybod yn gyflym a oes tabl colyn yn bodoli yn y llyfr gwaith cyfredol, gallwch greu Swyddogaeth Diffiniedig Defnyddiwr i'w ddatrys.

1. Agorwch y llyfr gwaith rydych chi am ei wirio a yw'r tabl colyn yn bodoli.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Gwiriwch a oes tabl colyn yn bodoli mewn llyfr gwaith

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. Yna arbed a chau'r cod hwn, ewch yn ôl i'ch taflen waith, nodwch y fformiwla hon = pivotexist ("salereport") i mewn i gell wag, gweler y screenshot:

doc-check-pivottable-bodoli-1

Nodiadau: (1.) Yn y fformiwla uchod, “adroddiad gwerthu”Yw enw'r tabl colyn yr ydych am ei wirio.

(2.) Rhaid i chi nodi enw'r tabl colyn o fewn dyfynbrisiau dwbl, ac mae angen i'r enw fod yn sensitif i achosion.

5. Ar ôl nodi'r fformiwla, yna pwyswch Enter key, os cewch chi hynny TRUE yn eich cell, mae'r bwrdd colyn yn bodoli, os cewch chi Anghywir, nid yw'r tabl colyn yn bodoli.


Erthyglau cysylltiedig:

Sut i restru'r holl dablau colyn o lyfr gwaith?

Sut i ychwanegu sawl maes yn y tabl colyn?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations