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

Ինչպե՞ս մի քանի դաշտ ավելացնել առանցքային աղյուսակում:

Երբ մենք ստեղծում ենք առանցքային աղյուսակ, մենք պետք է ձեռքերը մեկ առ մեկ քաշենք տողի պիտակների կամ արժեքների մեջ: Եթե ​​մենք դաշտերի երկար ցուցակ ունենք, կարող ենք արագ ավելացնել մի քանի շարքի պիտակներ, բայց մնացած դաշտերը պետք է ավելացվեն Արժեքի տարածքում: Կա՞ն արագ մեթոդներ, որպեսզի առանցքային աղյուսակում մեկ կտտոցով ավելացնեն մնացած բոլոր դաշտերը Արժեքի գոտի:

VBA կոդով առանցքային աղյուսակի արժեքային տարածքում ավելացրեք բազմաթիվ դաշտեր

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ VBA կոդով առանցքային աղյուսակի արժեքային տարածքում ավելացրեք բազմաթիվ դաշտեր

Unfortunatelyավոք, մեզ համար չկա վանդակը, որը կարող է արագ սեղմել առանցքային աղյուսակի դաշտերի ցուցակի բոլոր դաշտերը մեկ կտտոցով, բայց հետևյալ VBA կոդով այն կարող է օգնել մնացած դաշտերը միանգամից ավելացնել Արժեքների գոտուն: Խնդրում ենք անել հետևյալը.

1. Առանցքային աղյուսակ ստեղծելուց հետո, առաջին հերթին, դուք պետք է ավելացնեք տողի պիտակի դաշտերը ՝ ըստ ձեր կարիքի, և արժեքի դաշտերը թողնելով Ընտրեք դաշտեր ՝ զեկուցելու համար ցուցակ, տես նկարի նկարը. </ p>

doc-add-multiple-areas-1

2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Ակտիվ աշխատանքային թերթում առանցքային աղյուսակների արժեքի տարածքում ավելացրեք բազմաթիվ դաշտեր

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, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, մնացած բոլոր դաշտերը միաժամանակ ավելացվել են Արժեքների տարածքում, տես նկարի նկարը.

doc-add-multiple-areas-1

ՆշումԱյս VBA կոդը կիրառվում է ակտիվ աշխատաթերթի բոլոր առանցքային աղյուսակների վրա:


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս թվարկել բոլոր առանցքային աղյուսակները, որոնք կազմում են աշխատանքային գրքույկ:

Ինչպե՞ս ստուգել, ​​թե առանցքային աղյուսակ կա աշխատանքային գրքում:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում

 

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (23)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկապես գեղեցիկ և օգտակար մակրո: Այնուամենայնիվ, ես արդեն ավելացրել էի իմ դաշտերի կեսը արժեքների մեջ, և երբ ես գործարկեցի այս մակրոն, այն նորից ավելացրեց բոլոր նույն դաշտերը: Որևէ գաղափար, թե ինչու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վայ։ Այն աշխատում է շատ շատ լավ։ Շատ շնորհակալություն! Այնուամենայնիվ, ես մի տեսակ զարմացած եմ, որ Microsoft-ը չուներ ներկառուցված գործառույթ բավականին պարզ առաջադրանքի համար...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ֆանտաստիկ է: Կարո՞ղ է արդյոք մակրոն փոփոխվել՝ արժեքների փոխարեն բոլորը տողերի պիտակներում ավելացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ տարբերակ սա գործարկելու միայն բացառված դաշտերի համար, որպեսզի երբ գործարկեմ, չհայտնվեմ կրկնվող դաշտերով: այսինքն. «Field» և «Field_2»
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Կա՞ տարբերակ սա գործարկելու միայն բացառված դաշտերի համար, որպեսզի այն գործարկելիս չհայտնվեմ կրկնվող դաշտերով: այսինքն. «Field» և «Field_2»Շոնի կողմից[/quote] Այո- երկու օրինակ Օգտագործեք սա՝ ROWS-ում մնացած բոլոր չստուգված տարրերը ավելացնելու համար Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iColnd = 1 iCol .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(iCol) If .Orientation = 0 Այնուհետեւ .Orientation = xlRowField Ավարտ, եթե վերջ, եթե ավարտվի հաջորդով iCol End With End Sub Օգտագործեք սա, որպեսզի ավելացնեք մնացած չստուգված տարրերը VALUES Subal AddAllF-ում: Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd With .Pivotolentrid=0(i): .Կողմնորոշում = xlDataField End If End With Next iCol End With End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք կա մի քանի ekstra դաշտեր ավելացնելու միջոց, ոչ թե մնացածը կամ բոլորը, այլ ընդամենը մի զույգ, որոնք արդեն ստուգված չեն: :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այո, ի պատասխան նշանի, կա՞ կոդը խմբագրելու տարբերակ, որպեսզի ավելացնեք միայն չստուգված դաշտեր, որոնք, անշուշտ, ունեն դաշտերի պիտակներ (օրինակ, եթե պարունակում է ֆունկցիա): Օրինակ, ես ունեմ հարց, որն իրականում 50 այո/ոչ արժեքներ է ըստ թեմայի, և ես կցանկանայի բոլորը տեղափոխել արժեքների դաշտ: Նրանք բոլորը սկսվում են նույն հարցի պիտակով q9_[հատուկ հարցի թեմա]:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այդուհանդերձ, կա՞, եթե մենք ցանկանում ենք ավելացնել որոշ ընտրված սյունակներ բազային ֆայլից բոլորի փոխարեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դրա արժեքը որպես հաշվարկ: ինչպես կարող եմ փոխարկել բոլոր հաշվարկները որպես գումար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք կարող եք սեղմել ձեր դաշտի վրա (այն տարածքում, որտեղ քաշում եք ձեր դաշտերը. սյունակների պիտակներ, տողերի պիտակներ և այլն), այնուհետև սեղմեք «Արժեք դաշտի կարգավորումը», այնուհետև դուք կստանաք բացվող ցուցակ, որտեղից կարող եք ընտրել «Գումարը»:
A     El
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդ. Փոփոխեք դաշտի մի քանի կարգավորումներ առանցքային աղյուսակում
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա շատ լավ է! Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«xlDataField»-ը չի՞ աշխատում PowerPivot-ի հետ: Ես ստացել եմ ստորև բերված կոդը, որն օգտագործվում է առանցքային աղյուսակում բոլոր չափումները ավելացնելու համար: Այն աշխատում է «xlColumnField» և «xlRowField» հետ: Կա՞ն գաղափարներ, թե ինչպես դա անել:

Sub AddAllFieldsValues()
Dim pt Որպես առանցքային աղյուսակ
Dim iCol այնքան երկար
Dim iColEnd այնքան երկար

Սահմանել pt = ActiveSheet.PivotTables(1)

հետ pt

iCol = 1
iColEnd = .CubeFields.Count

iCol-ի համար = 1 Դեպի iColEnd
CubeFields (iCol) հետ
Եթե ​​.կողմնորոշում = xlԹաքնված Ապա
.Կողմնորոշում = xlDataField
Վերջ: Եթե
Վերջ
Հաջորդ iCol

Վերջ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն.

Այն ինձ կոմպիլյացիայի սխալ է տալիս, երբ ես սեղմում եմ Run-ը

Խնդրում ենք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատում է հմայքի պես: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, ինձ շատ օգնեց
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՇԱՏ ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նշում. Չեի սխալի հաղորդագրությունը.




Sub AddAllFieldsValues()




«Թարմացնել 20141112



Dim
pt Որպես առանցքային աղյուսակ





Dim I As
Long





Յուրաքանչյուրի համար
pt ActiveSheet.PivotTables-ում





համար
I = 1 Դեպի pt.PivotFields.Count





Վերջ







հաջորդ



հաջորդ




Վերջ Sub










Նշում. Չեն փորձում է ավելացնել հետևյալը
fields/snapshot- «ԱՅԼ տարբերության գումարը, 4096-ի գումարը
Տարբերություն» ավելի քան 80 դաշտ
ավելացվել է







ԱՅԼ Տարբերություն



4096 Տարբերություն



4016 Տարբերություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​«Արժեքներն են
«0» կամ «Null», ինչպես ճնշել տողերի արժեքները ցուցադրումից

(օրինակ՝ 2743 տարբերության գումարը)





առանցքային «Տողեր»
առանցքային «Արժեքներ»





Տողի պիտակներ





NP9 - Ընդհանուր չծախսված
Հատկացումներ





ԱՅԼ տարբերության գումարը 1,045,355,165.31




3200 տարբերության գումարը
0.00




0108 տարբերության գումարը
12,873,630.29



4586 տարբերության գումարը
(33,024,706.93)



0148 տարբերության գումարը
(72,046,783.14)



0129 տարբերության գումարը
(5,583,891.98)



4598 տարբերության գումարը
(929,574.56)



2743 տարբերության գումարը



4041 տարբերության գումարը
0.00



2799 տարբերության գումարը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ մակրո խմբագրելու միջոց, որը արժեքների փոխարեն դաշտերը կուղարկի տողերի պիտակի մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Задача же не всегдат в получении списка, хочется допустим պատրաստում է названия таблиц или источников данных. գիտակցում ես?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, կա՞ տարբերակ ավելացնել միայն չընտրված սյունակները: շնորհակալություն։ 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գործարկում եմ այս կոդը: Որքա՞ն ժամանակ է պահանջվում ավարտելու համար: Արդեն 45 րոպե է, այն դեռ աշխատում է: Խնդրում եմ օգնիր ինձ. Ի դեպ, իմ ընդհանուր դաշտի սյունակները 3600 են։
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից