Ինչպե՞ս մի քանի դաշտ ավելացնել առանցքային աղյուսակում:
Երբ մենք ստեղծում ենք առանցքային աղյուսակ, մենք պետք է ձեռքերը մեկ առ մեկ քաշենք տողի պիտակների կամ արժեքների մեջ: Եթե մենք դաշտերի երկար ցուցակ ունենք, կարող ենք արագ ավելացնել մի քանի շարքի պիտակներ, բայց մնացած դաշտերը պետք է ավելացվեն Արժեքի տարածքում: Կա՞ն արագ մեթոդներ, որպեսզի առանցքային աղյուսակում մեկ կտտոցով ավելացնեն մնացած բոլոր դաշտերը Արժեքի գոտի:
VBA կոդով առանցքային աղյուսակի արժեքային տարածքում ավելացրեք բազմաթիվ դաշտեր
VBA կոդով առանցքային աղյուսակի արժեքային տարածքում ավելացրեք բազմաթիվ դաշտեր
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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: