Note: The other languages of the website are Google-translated. Back to English

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

Gan dybio bod gennych lyfr gwaith mawr sy'n cynnwys tablau colyn lluosog, nawr, rydych chi am restru'r holl dablau colyn yn y llyfr gwaith hwn, a yw'n bosibl? Wrth gwrs, bydd y cod VBA canlynol yn yr erthygl hon yn ffafrio chi. I wybod mwy o fanylion, darllenwch yr erthygl isod.

Rhestrwch yr holl dablau colyn o lyfr gwaith gyda chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Rhestrwch yr holl dablau colyn o lyfr gwaith gyda chod VBA


Gall y cod VBA canlynol eich helpu i restru'r holl enwau tabl colyn ynghyd â'u priodoleddau, megis ystod data ffynhonnell, enw'r daflen waith, dyddiad wedi'i adnewyddu ac ati.

1. Agorwch eich llyfr gwaith eich bod am restru'r holl dablau colyn.

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: Rhestrwch yr holl dablau colyn o lyfr gwaith

Sub ListPivotsInfor()
'Update 20141112
    Dim St As Worksheet
    Dim NewSt As Worksheet
    Dim pt As PivotTable
    Dim I, K As Long
    Application.ScreenUpdating = False
    Set NewSt = Worksheets.Add
    I = 1: K = 2
    With NewSt
        .Cells(I, 1) = "Name"
        .Cells(I, 2) = "Source"
        .Cells(I, 3) = "Refreshed by"
        .Cells(I, 4) = "Refreshed"
        .Cells(I, 5) = "Sheet"
        .Cells(I, 6) = "Location"
        For Each St In ActiveWorkbook.Worksheets
            For Each pt In St.PivotTables
                I = I + 1
                .Cells(I, 1).Value = pt.Name
                .Cells(I, 2).Value = pt.SourceData
                .Cells(I, 3).Value = pt.RefreshName
                .Cells(I, 4).Value = pt.RefreshDate
                .Cells(I, 5).Value = St.Name
                .Cells(I, 6).Value = pt.TableRange1.Address
            Next
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
End Sub

4. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r holl enwau tabl colyn, ystod data ffynhonnell, enw'r daflen waith a phriodoleddau eraill wedi'u rhestru mewn taflen waith newydd a osodwyd o flaen eich taflen waith weithredol fel y dangosir y llun a ganlyn:

doc-list-all-pivottable-1


Erthyglau cysylltiedig:

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

Sut i ychwanegu sawl maes yn y tabl colyn?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (19)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Stwff da. Gellid cynnwys y pyt hwn i wneud enw'r tabl colyn yn hyperddolen. .Cells(I, 1).Parent.Hyperlinks.Add Anchor:=.Cells(I, 1) _ , Cyfeiriad:="" _ , SubAddress:="'" + St.Name + "'!" + Hollti(pt.TableRange1.Address, ":")(0) _ , TextToDisplay:=pt.Name Gyda .Cells(I, 7).Font .ColorIndex = xlAutomatic .Underline = xlUnderlineStyleNone Diwedd Gyda .Cells(I,, 7).Caracters(Start:=1, Length:=Len(pt.Name)).Font .Underline = xlUnderlineStyleSingle .Color = -4165632 Diwedd Gyda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
rhagorol. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hwn yn ddarganfyddiad enfawr i mi! Hoffwn pe bawn wedi chwilio am yr ateb hwn dridiau yn ôl. Byddai wedi arbed oriau i mi!! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd angen i mi drwsio ffeil oedd â dros 60 o fyrddau colyn ynddi. I ddechrau clicio pob un ar y tro i'w trwsio (fel sy'n wir am adegau pan fydd rhywun yn eu 'dadgysylltu' ond ni allwn ddod o hyd i'r rhai anghywir i gyd. Daeth o hyd i'r un olaf ar ychydig o golofnau oedd wedi'u cuddio ar y gwreiddiol). Darn neis o god!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi ceisio rhedeg hyn yn excel 2013 ac rwy'n cael y gwall Run-time '1004': Gwall wedi'i ddiffinio gan y cais neu wedi'i ddiffinio gan wrthrych. Os gwnewch sylwadau ar y llinell .Cells(I, 2).Value = pt.SourceData bydd yn rhedeg yn iawn, a allwch chi fy hysbysu beth fydd angen i mi ei wneud i gael y rhan SourceData i weithio? Diolch Ross
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Rwyf wedi ceisio rhedeg hwn yn excel 2013 ac rwy'n cael y gwall Run-time '1004': Gwall wedi'i ddiffinio gan gymhwysiad neu wall wedi'i ddiffinio gan wrthrych. Os gwnewch sylwadau ar y llinell .Cells(I, 2).Value = pt.SourceData bydd yn rhedeg yn iawn, a allwch chi fy hysbysu beth fydd angen i mi ei wneud i gael y rhan SourceData i weithio? Diolch RossGan Ross[/quote] Cefais yr un gwall. Rwy'n meddwl ei fod yn fomio pan mai'r ffynhonnell ar gyfer tabl colyn yw'r Model Data Excel a ddefnyddir gan PowerPivot.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn. Mae'n ddarn gwych o god, yn ddefnyddiol iawn. Fel y mae eraill wedi'i bostio, rwy'n meddwl nad yw'n gweithio ar gyfer tablau colyn y mae eu ffynhonnell ddata sylfaenol yn seiliedig ar ymholiad data Cysylltiad yn Unig. Mae gen i lyfr gwaith gydag un tabl data. Wedi hynny rwy'n creu ymholiadau data gweithlyfr mwy mireinio yn seiliedig ar ddata'r un tabl hwn. Cysylltiad yn unig yw'r ymholiadau (gan osgoi cynnydd diangen ym maint y llyfr gwaith). Yna creais dablau colyn sy'n dibynnu ar y data yn yr ymholiadau yn y llyfr gwaith. Pan fyddaf yn rhedeg y cod, mae'n gweithio'n iawn ar gyfer tablau colyn o ffynonellau traddodiadol, ond mae'n taro gwall amser rhedeg pan fydd yn cyrraedd y tablau colyn yn seiliedig ar ddata yn Workbook Queries. Yn benodol; mae'n rhoi gwall Amser Rhedeg " 1004 ": Gwall wedi'i ddiffinio gan gymhwysiad neu wrthrych wedi'i ddiffinio. Y llinell cod lle mae'r gwall yn digwydd yw: .cells(I, 2).value = pt.SourceData Diolch am ddarparu'r cod a gobeithio bod yr uchod yn eich helpu i'w fireinio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pwerus iawn. Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar gyfer Cysylltiad yn Unig, mae'r wybodaeth cysylltiad Data yn eiddo i'r PivotCache
Mae gen i lyfr gwaith sydd â dros 40 o dablau colyn gyda chymysgedd o Dablau Excel a Chysylltiadau Data gweinydd SQL. Rwy'n defnyddio'r cod canlynol i gadw golwg arnynt


Is GetPivotTableInfo()

Dim wb Fel Llyfr Gwaith
Dim pvt Fel PivotTable
Dim wsheet Fel Taflen Waith
Dim pc Fel PivotCache

Gosod wb = ActiveWorkbook
Ar gyfer Pob wsheet Yn wb.Taflenni Gwaith
Ar gyfer Pob Pvt Yn wsheet.PivotTables
Debug.Print wsheet.Name & " : " &pvt.Name
Gosod pc = wb.PivotCaches(pvt.CacheIndex)
Os pc.SourceType = xlDatabase Yna
Debug.Print pc.SourceData
arall
Os pc.QueryType = xlOLEDBQuery Yna
Dadfygio.Print pc.Connection
Debug.Print pc.SourceConnectionFile
Debug.Print pc.WorkbookConnection.Name
Debug.Print pc.CommandText
Gorffennwch Os
Gorffennwch Os


Pvt nesaf
wsheet nesaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi fy arbed rhag cur pen mawr!
Methu canfod pa dabl colyn oedd yn achosi "Gwall Adnewyddu Pob Un"
Boom Wedi'i restru gyda lleoliadau, Diolch yn fawr iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel!!! thksss!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn arbennig! Rwyf wedi bod yn chwilio am god fel yr un hwn, ond gyda'r ychwanegiad o ddangos yr holl feysydd gweithredol fesul bwrdd. Mae angen i mi lanhau'r tablau ffynhonnell o gaeau diangen (rhy drwm) ac maen nhw'n bwydo llyfr o dros 300 o golyn. Byddai'n well gen i beidio â mynd un bwrdd colyn ar y tro i ddarganfod pa feysydd y gallaf eu dileu... Pe baech yn gallu dangos i mi sut, byddai'n anhygoel... Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y post, fe wnes i lanhau'r cod ychydig trwy ddiffinio I a Long a dileu'r cyfeirnod i K gan na chafodd ei ddefnyddio. Yn olaf, ychwanegais linell ychydig o dan eich .Activate i ddangos .Columns.AutoFit
Lleihawyd y sylw hwn gan y safonwr ar y wefan
handi IAWN i'w gael mewn pinsied! Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hynny'n Awesome.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Help enfawr, wedi arbed tunnell o amser i mi olrhain un o nifer o dablau colyn a enwir yn union yr un fath mewn Llyfr Gwaith!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gwall amser rhedeg 1004
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ffit perffaith!! Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yn anffodus rwy'n cael gwallau lluosog, byddai hyn wedi bod yn hollol wych ar gyfer fy llyfrau gwaith aml-dab, aml-golyn
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir