Բաց թողնել հիմնական բովանդակությունը

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

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

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

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

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


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

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 այլ գործառույթներին:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Brilliant, thanks, this worked perfectly and save much time
This comment was minimized by the moderator on the site
Muchas gracias por el aporte
This comment was minimized by the moderator on the site
Hi!

I'm wondering how to use the code for Count Numbers instead of count, I've tried changing the code to Count Numbers and CountNumbers but netiher works..

Help is appreciated :)
This comment was minimized by the moderator on the site
Hello, Sara,
Sorry for that your Count Numbers field can't be changed in the code, so, you need to change the field one by one with the first method in this article.
Thank you!
This comment was minimized by the moderator on the site
Thank you so much, this VBA code works amazing. 
This comment was minimized by the moderator on the site
I got the error" Unable to get the PivotTable property of the range class". Do you know hoe can I fix this?
This comment was minimized by the moderator on the site
I got this error, "Unable to get the Pivot Table property of the Range class". Do you know how I can fix this?
This comment was minimized by the moderator on the site
Thank you so much!!! That is sooo helpful and brilliant! Saved me soooo much time
This comment was minimized by the moderator on the site
Thank you so much for the VBA code, I LOVE it!
This comment was minimized by the moderator on the site
Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
This comment was minimized by the moderator on the site
I've used the VBA solution with great success in the past, but it doesn't work with the data model. Do you know if there is a solution for that?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations