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
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:
Erthyglau cysylltiedig:
Sut i wirio a oes tabl colyn yn bodoli mewn llyfr gwaith?
Sut i ychwanegu sawl maes yn y tabl colyn?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!