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

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

Երբ աշխատանքային թերթում առանցքային աղյուսակ եք ստեղծում, դաշտերը դեպի Արժեքներն ցուցակը PivotTable դաշտային ցուցակ, կարող է նույնը ստանաք Հաշվել գործառույթը, ինչպես ցույց է տրված հետևյալ նկարը Բայց հիմա ուզում ես Գումար գործառույթը փոխարինելու համար Հաշվել գործառույթի միանգամից, ինչպե՞ս կարող եք փոխել Excel- ում միանգամից առանցքային աղյուսակի դաշտերի հաշվարկը:

փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -1

Ձեռքով մեկ առ մեկ փոխեք դաշտի կարգավորումները առանցքային աղյուսակում

VBA կոդով առանցքային աղյուսակում փոխեք դաշտի մի քանի կարգավորումներ

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

նետ կապույտ աջ պղպջակ Ձեռքով մեկ առ մեկ փոխեք դաշտի կարգավորումները առանցքային աղյուսակում

Excel- ում դուք կարող եք փոխել դաշտի պարամետրերի հաշվարկը ՝ գործառույթը մեկ առ մեկ փոխելով համակարգում Արժեքի դաշտի կարգավորումներ երկխոսություն, խնդրում եմ արեք հետևյալ կերպ.

1, Արժեքների տարածքում ընտրեք մի դաշտ, որի համար ցանկանում եք փոխել ամփոփ ֆունկցիան առանցքային աղյուսակում և աջ սեղմել ՝ ընտրելու համար Արժեքի դաշտի կարգավորումներ, տես նկարի նկարը.

փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -1

2. Այնուհետեւ Արժեքի դաշտի կարգավորումներ երկխոսության տուփ, ընտրեք հաշվարկի մեկ տեսակ, որը ցանկանում եք օգտագործել տակ Ամփոփեք արժեքը ներդիր, տես նկարի նկարը.

փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -1

3. Եվ այնուհետեւ կտտացրեք OK այս երկխոսությունը փակելու համար և կտեսնեք, որ ձեր հաշվարկի գործառույթը փոխվել է Sum գործառույթի, տե՛ս նկարը.

փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -1

4, Կրկնեք վերոհիշյալ քայլերը `այլ դաշտերի հաշվարկման կարգաբերումները մեկ առ մեկ փոխելու համար:

Նշում: Դաշտի պարամետրերը կարող եք փոխել նաև մեկ դաշտի բջիջի աջ կտտոցով և ընտրել Ամփոփեք արժեքները ըստ և համատեքստային ընտրացանկերից ընտրեք մեկ անհրաժեշտ հաշվարկ:

փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -1


նետ կապույտ աջ պղպջակ VBA կոդով առանցքային աղյուսակում փոխեք դաշտի մի քանի կարգավորումներ

Վերոնշյալ մեթոդը ժամանակատար և ձանձրալի կլինի, եթե դաշտում կան շատ դաշտային հաշվարկներ, որոնք անհրաժեշտ են փոփոխության ենթարկել, այստեղ ես կարող եմ ձեզ ներկայացնել մի կոդ, որը միաժամանակ փոխում է բազմաթիվ ներկայացված պարամետրերը:

1, Կտտացրեք ձեր առանցքային աղյուսակի ցանկացած բջիջ:

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

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

VBA կոդ. Փոփոխեք դաշտի մի քանի կարգավորումներ առանցքային աղյուսակում

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4, Դրանից հետո սեղմեք F5 այս ծածկագիրը կատարելու բանալին, և ձեր ընտրած առանցքային աղյուսակի դաշտի բոլոր պարամետրերը միանգամից փոխարկվել են ձեր կարիքի հաշվարկի, տե՛ս սքրինշոթեր.

փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -1
-1
փաստաթուղթ-փոփոխություն-դաշտ-սահմանում -6

ՆշումՎերոհիշյալ ծածկագրում կարող եք գումարի ֆունկցիան փոխել ցանկացած այլ հաշվարկի, օրինակ `միջին, առավելագույն, նվազագույն, որքան ուզում եք: Պարզապես անհրաժեշտ է գումար փոխել այս սցենարներում. Public Sub SetDataFieldsToSum () և .Ֆունկցիա = xlSum այլ գործառույթներին:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (28)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, խորհուրդները և VB մակրոները իսկապես օգտակար են: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր, հրաշալի: Դա իսկապես շատ է օգնում: Ձեր Pivot-ի խորհուրդներն այնքան հիանալի են, ես տարիներ շարունակ փնտրում էի և իրական օգնություն ստացա: Ինչպե՞ս կարող ենք ֆունկցիա ավելացնել նաև տասնորդականների համար: Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն լուծման համար։ Պատճառով ես սխալ եմ ստանում .NumberFormat = "#,##0"-ում: Ես փոխվում եմ Sum-ից միջինի, որը լավ է աշխատում, բայց ես նաև ցանկանում եմ փոխել NumberFormat-ը թվի 1 տասնորդականով: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն շատ լավ լուծման համար: Հնարավո՞ր է այն ավտոմատ դարձնել: Այսպիսով, երբ ես նոր դաշտ եմ ավելացնում այն ​​արժեքներին, որոնք պետք է գործարկվեն այս մակրոն: Կանխավ շնորհակալ եմ Ջանի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա այնքան օգտակար է: Այս խնդիրն ինձ անհանգստացրել է տարիներ շարունակ և այժմ այն ​​լուծվել է։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն սրա համար: Sum-ի փոխարեն StdDev-ն օգտագործելու միջոց կա՞: Ես կարողացա փոխել ձեր ծածկագիրը Average & Count-ի համար, բայց ես չեմ կարող գործարկել StdDev-ը: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Քելսի. Հետաքրքիր է, դուք երբևէ պատասխան ստացե՞լ եք սրա վերաբերյալ: Ես փորձում եմ նույն բանն անել։ Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Քելսի- Դուք սրա համար պատասխան ստացե՞լ եք, թե՞ պարզել եք սա: Ես փորձեցի խմբագրել կոդը, բայց դեռ չեմ կարողացել պարզել այն: Ես վստահ չէի, որ կա՞ միջոց այն արագ փոխելու տարբեր գումարման տարբերակների համար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Քելսի, ես պարզապես ստեղծեցի մակրո և փոխեցի մեկը ձեռքով, իսկ հետո ստուգեցի մակրո կոդը VBA-ում: StdDev-ը գործարկելու համար օգտագործեք StDev: Կոդը դառնում է հետևյալը.


Public Sub SetDataFieldsToStDev()
«Թարմացնել 20141127
Dim xPF-ը որպես առանցքային դաշտ
Dim WorkRng որպես տիրույթ
Սահմանել WorkRng = Application.Selection
WorkRng.PivotTable-ի հետ
.ManualUpdate = Ճիշտ է
Յուրաքանչյուր xPF-ի համար .DataFields-ում
xPF-ով
.Ֆունկցիա = xlStDev
.NumberFormat = "#,##0"
Վերջ
հաջորդ
.ManualUpdate = Սխալ
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, սա շատ օգտակար է, շնորհակալություն դրա համար: Ինձ ուղղակի հետաքրքրում է, թե հնարավո՞ր է սահմանել ընդամենը մի քանի կամ որոշակի սյունակների արժեքային դաշտի կարգավորումներ: Ես նկատի ունեմ, օրինակ, ես արժեքներ ունեմ առաջին 20 սյունակներում, և ես ուզում եմ տեսնել տվյալները SUM-ում, բայց 21-րդ սյունակներից գալիս է մեկ այլ տեսակի տվյալ (օրինակ բաշխում) և այդ սյունակից ես կցանկանայի տեսնել տվյալները MAX արժեքով: Այսպիսով, հնարավո՞ր է ինչ-որ կերպ գտնել, օրինակ, վերնագրի անունը, և եթե կա «բաշխում», փոխեք բոլոր «բաշխման» սյունակները MAX արժեքի: իմաստ ունի՞ ուրախություն Զոլտան
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբևէ սրա պատասխան ստացե՞լ եք: Ես նույն հարցն ունեմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարզապես այն, ինչ ես փնտրում էի !! Անմիջապես .NumberFormat տողից հետո ես անվանափոխություն ավելացրի առանցքում վերնագրված սյունակի համար, ուստի բոլորի մեջ չունեի «Sum of»: .Caption = " " & xPF.SourceName Կրկին շնորհակալություն !!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փոխեք դաշտի մի քանի կարգավորումները առանցքային աղյուսակում VBA կոդով


Զարմանալի! Շատ շնորհակալություն. Այնքան օգտակար է իմ աշխատանքին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա անհավանական է: Ես տարիներ շարունակ հիասթափված եմ այս խնդրից, 50+ դաշտերով որոշ փաստաթղթերից: Սա ժամանակի խնայողություն է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Զարմանալի է. ես VBA-ի հետ ոչ մի թեժ հարված չեմ զգում և ինձ չեմպիոն եմ զգում. սա ինձ երկար ժամանակ խենթացնում էր: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
SuperB... Ես հիասթափվել եմ այս խնդրից
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փայլուն!!!! Շատ շնորհակալ եմ, սա զարմանալի էր!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ կասեք միջին, Stddev, Max և Min յուրաքանչյուր դաշտի համար հաջորդաբար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նախկինում մեծ հաջողությամբ օգտագործել եմ VBA լուծումը, բայց այն չի աշխատում տվյալների մոդելի հետ: Գիտե՞ք դրա լուծումը կա՞։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն. Կոդը հիանալի աշխատեց և խնայեց ինձ շատ անիմաստ ժամանակ և էներգիա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ VBA կոդի համար, ես սիրում եմ այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն!!! Դա շատ օգտակար և փայլուն է: Ինձ շատ ժամանակ խնայեց
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստացել եմ այս սխալը՝ «Չի հաջողվում ստանալ Range դասի առանցքային աղյուսակի հատկությունը»։ Գիտե՞ք ինչպես կարող եմ դա շտկել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստացա «Անհնար է ստանալ միջակայքի դասի PivotTable հատկությունը» սխալը: Գիտե՞ք, թե ինչպես կարող եմ դա շտկել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ, այս VBA կոդը հիանալի է աշխատում: 
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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