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

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

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 gydag Office 2007-2021 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth 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>

doc-add-multip-fields-1

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:

doc-add-multip-fields-1

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?


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 Office / Excel 2007-2021 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 (23)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Macro neis a defnyddiol iawn. Fodd bynnag, roeddwn eisoes wedi ychwanegu hanner fy meysydd i'r Gwerthoedd a phan redais y macro hwn, fe ychwanegodd yr un meysydd i gyd eto. Unrhyw syniad pam?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw. Mae'n gweithio'n dda iawn. Diolch yn fawr! Serch hynny, rwy'n rhyfeddu braidd nad oedd gan Microsoft nodwedd adeiledig ar gyfer tasg eithaf syml ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn ffantastig. A ellir addasu'r macro i ychwanegu'r cyfan at Labeli Rhes yn lle Gwerthoedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i redeg hwn ar gyfer meysydd eithriedig yn unig, fel nad oes gennyf feysydd dyblyg pan fyddaf yn ei redeg? h.y. "Maes" a "Maes_2"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]A oes ffordd i redeg hwn ar gyfer meysydd sydd wedi'u heithrio yn unig, fel nad oes gennyf feysydd dyblyg pan fyddaf yn ei redeg? h.y. "Maes" a "Maes_2"Gan Shaun[/quote] Oes- dwy enghraifft Defnyddiwch hwn i ychwanegu'r holl eitemau sy'n weddill heb eu gwirio i ROWS Is AddAllFieldsRow() Dim pt Fel PivotTable Dim iCol Cyn Hir Dim iColEnd Fel Set Hir pt = ActiveSheet.PivotTables(1) Gyda pt iCol = 1 iColEnd = .PivotFields.Count Ar Gyfer iCol = 1 I iColEnd Gyda .PivotFields(iCol) Os .Orientation = 0 Yna .Orientation = xlRowField Diwedd Os Diwedd Gyda Nesaf iCol Diwedd Gyda Diwedd Is Defnyddiwch hwn i ychwanegu gweddill eitemau heb eu gwirio i WERTHOEDD Is-Ychwanegiadau(Fields)Valu Dim pt Fel PivotTable Dim iCol Cyn Hir Dim iColEnd Fel Set Hir pt = ActiveSheet.PivotTables(1) Gyda pt iCol = 1 iColEnd = .PivotFields.Count Ar gyfer iCol = 1 I iColEnd Gyda .PivotFields(iCol) If . .Orientation = xlDataField Diwedd Os Diwedd Gyda Nesaf iCol Diwedd Gyda Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ychwanegu rhai meysydd ekstra yn unig, nid y gweddill neu bob un ohonynt, ond dim ond pâr o'r rhai nad ydynt wedi'u gwirio eisoes? :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ie, i adleisio markus, a oes ffordd i olygu'r cod i ychwanegu dim ond meysydd heb eu gwirio sydd â labeli maes yn sicr (fel gyda swyddogaeth os yn cynnwys)? Er enghraifft, mae gen i gwestiwn sydd mewn gwirionedd yn 50 o werthoedd ie/na fesul pwnc a hoffwn symud pob un o'r rhain i'r maes gwerthoedd. Maen nhw i gyd yn dechrau gyda'r un label cwestiwn q9_[pwnc cwestiwn penodol].
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw beth os ydym am ychwanegu rhai colofnau dethol o'r ffeil sylfaen yn lle pob un.?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae ei werth cymryd fel cyfrif. sut alla i drosi pob cyfrif fel Swm
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch glicio ar eich maes (yn yr ardal lle rydych chi'n llusgo'ch meysydd i mewn i : labeli colofn, labeli rhes ac ati) yna clicio ar "Gosodiad maes gwerth" yna fe gewch chi restr gwympo o ble gallwch chi ddewis "Swm" !
A     El
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych! Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Onid yw "xlDataField" yn gweithio gyda PowerPivot? Mae gen i'r cod isod, sy'n cael ei ddefnyddio i ychwanegu pob mesur i'r tabl colyn. Mae'n gweithio gyda "xlColumnField" a "xlRowField". Unrhyw syniadau sut i wneud i hyn weithio?

Gwerthoedd is-AddMaes()
Dim pt Fel PivotTable
Dim iCol Cyhyd
Dim iColEnd Cyhyd

Gosod pt = ActiveSheet.PivotTables(1)

Gyda pt

iCol = 1
iColEnd = .CubeFields.Count

Am iCol = 1 I iColEnd
Gyda .CubeFields(iCol)
If .Orientation = xlHidden Yna
.Orientation = xlDataField
Gorffennwch Os
Diwedd Gyda
iCol nesaf

Diwedd Gyda

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi.

Mae'n rhoi gwall llunio i mi pan fyddaf yn clicio ar Run

Os gwelwch yn dda helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio fel swyn. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, wedi fy helpu yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH YN FAWR IAWN!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nodyn: Neges gwall Che:




Gwerthoedd is-AddMaes()




'Diweddariad 20141112



Dim
pt Fel PivotTable





Dim I As
Hir





Ar gyfer Pob Un
pt Yn ActiveSheet.PivotTables





Am
I = 1 I pt.PivotFields.Count





Diwedd Gyda







Digwyddiadau



Digwyddiadau




Is-End










Nodyn: Mae Che yn ceisio ychwanegu'r canlynol
field/ciplun- "Swm Gwahaniaeth ARALL, Swm o 4096
Gwahaniaeth" dros 80 maes i fod
Ychwanegodd







Gwahaniaeth ARALL



4096 Gwahaniaeth



4016 Gwahaniaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os yw "Gwerthoedd
"0" neu "Null" sut i atal Gwerthoedd Rhes rhag Arddangos

(ex. Swm o 2743 Gwahaniaeth)





Colyn "Rhesi"
Colyn "Gwerthoedd"





Labeli Row





NP9 - Cyfanswm Heb ei Wario
Dynodiadau





Swm Gwahaniaeth ARALL 1,045,355,165.31




Swm o 3200 o Wahaniaeth
0.00




Swm o 0108 o Wahaniaeth
12,873,630.29



Swm o 4586 o Wahaniaeth
(33,024,706.93)



Swm o 0148 o Wahaniaeth
(72,046,783.14)



Swm o 0129 o Wahaniaeth
(5,583,891.98)



Swm o 4598 o Wahaniaeth
(929,574.56)



Swm o 2743 o Wahaniaeth



Swm o 4041 o Wahaniaeth
0.00



Swm o 2799 o Wahaniaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i olygu'r macro a fyddai'n anfon y meysydd i'r label rhesi yn lle'r gwerthoedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц илины илинь или или или или. Можете реализовать?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i ychwanegu dim ond y colofnau rhai anseledig? diolch. 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n rhedeg y cod hwn. Faint o amser mae'n ei gymryd i'w gwblhau? Mae bellach yn 45 munud mae'n dal i redeg. Helpwch fi os gwelwch yn dda. Gyda llaw, cyfanswm fy ngholofnau maes yw 3600.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL