Sut i ychwanegu sawl maes yn y tabl colyn?
Pan fyddwn yn creu tabl colyn, mae angen i ni lusgo'r caeau i'r Row Labels neu'r Gwerthoedd â llaw fesul un. Os oes gennym restr hir o feysydd, gallwn ychwanegu ychydig o labeli rhes yn gyflym, ond dylid ychwanegu'r meysydd sy'n weddill at yr ardal Werth. A oes unrhyw ddulliau cyflym inni ychwanegu'r holl feysydd eraill i'r maes Gwerth gydag un clic yn y tabl colyn?
Ychwanegwch feysydd lluosog i mewn i faes Gwerth y tabl colyn gyda chod VBA
Ychwanegwch feysydd lluosog i mewn i faes Gwerth y tabl colyn gyda chod VBA
Yn anffodus, nid oes blwch gwirio i ni wirio'r holl feysydd yn Rhestr Maes Tabl Pivot yn gyflym gydag un clic, ond, gyda'r cod VBA canlynol, gall eich helpu i ychwanegu'r meysydd sy'n weddill i'r ardal Gwerthoedd ar unwaith. Gwnewch fel a ganlyn:
1. Ar ôl creu'r tabl colyn, yn gyntaf, dylech ychwanegu'r meysydd label rhes fel eich angen, a gadael y meysydd gwerth yn y Dewiswch feysydd i'w hychwanegu at yr adroddiad rhestr, gweler y screenshot: </ p>
2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Ychwanegu sawl maes i faes Gwerth tablau colyn mewn taflen waith weithredol
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r holl feysydd sy'n weddill wedi'u hychwanegu at yr ardal Gwerthoedd ar yr un pryd, gweler y screenshot:
Nodyn: Mae'r cod VBA hwn yn cael ei gymhwyso i bob tabl colyn o daflen waith weithredol.
Erthyglau cysylltiedig:
Sut i restru'r holl dablau colyn o lyfr gwaith?
Sut i wirio a oes tabl colyn yn bodoli mewn llyfr gwaith?
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!