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

Ինչպե՞ս ավտոմատ կերպով թարմացնել առանցքային աղյուսակը Excel- ում:

Սովորաբար, երբ առանցքային աղյուսակի աղբյուրի տվյալները թարմացնում ենք, առանցքային աղյուսակը չի թարմացվի, քանի դեռ չենք սեղմել Վերլուծել > Թարմացնել ձեռքով Սա բավականին ձանձրալի կլինի, եթե առանցքային աղյուսակը մնա մեկ այլ աշխատաթերթում, և դուք կարող եք մոռանալ այն թարմացնել: Այստեղ այս հոդվածը կներկայացնի VBA ՝ Excel- ում առանցքային աղյուսակը ավտոմատ կերպով թարմացնելու համար:

Ավտոմատ թարմացրեք VBA- ի առանցքային աղյուսակը


Ավտոմատ թարմացրեք VBA- ի առանցքային աղյուսակը

Excel- ում նշված առանցքային աղյուսակն ավտոմատ կերպով թարմացնելու համար VBA կիրառելու համար հետևեք ստորև նշված քայլերին:

1, Թերթի ներդիրի շարքում աջ սեղմեք թերթիկի ներդիրին, որը պարունակում է աղբյուրի տվյալները, և ընտրեք Դիտել կոդը համատեքստային ընտրացանկում: Տեսեք,

2, Microsoft Visual Basic հավելվածների համար նախատեսված պատուհանում խնդրում ենք տեղադրել կոդը:

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

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Նշումներ:
(1) Worksheets- ի ծածկագրում ("թերթի անունը"). Առանց աղյուսակներ ("Առանցքային աղյուսակի անուն") .PivotCache. Թարմացնել, խնդրում եմ փոխարինել թերթի անունը նշված առանցքային աղյուսակը պարունակող թերթիկի անվամբ և փոխարինել այն Առանցքային աղյուսակի անուն նշված առանցքային աղյուսակի անվամբ:
(2) Նշված առանցքային աղյուսակում ընտրեք ցանկացած բջիջ, դրա անունը կստանաք վրա Վերլուծել ներդիր (կամ Ընտրանքներ էջանիշ) Տեսեք,

3, Պահպանեք կոդը:

Այսուհետ, երբ աղբյուրը տվյալների մեջ փոխում եք տվյալները, նշված առանցքային աղյուսակը ավտոմատ կերպով կթարմացվի:

Հեշտությամբ միացրեք բազմաթիվ աշխատանքային թերթեր / աշխատանքային գրքեր / CSV ֆայլեր մեկ աշխատանքային թերթի / աշխատանքային գրքի մեջ

Գուցե ձանձրալի է տարբեր աշխատանքային գրքույկներից տասնյակ թերթերը մեկ թերթի մեջ միավորելը: Բայց Excel- ի համար նախատեսված Kutools- ի հետ Միավորել (աշխատանքային թերթեր և աշխատանքային գրքեր) օգտակար, դուք կարող եք դա անել միայն մի քանի կտտոցով:


գովազդային թերթերի գրքեր 1

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

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

🤖 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations