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

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

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

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

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

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

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

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

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

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

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

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

---

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...