Ինչպե՞ս զտել առանցքի աղյուսակը ՝ հիմնված Excel- ում բջջի որոշակի արժեքի վրա:

Սովորաբար, մենք զտում ենք տվյալները առանցքային աղյուսակում՝ ընտրելով տարրեր բացվող ցանկում, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում: Փաստորեն, դուք կարող եք զտել առանցքային աղյուսակը՝ հիմնվելով որոշակի բջիջի արժեքի վրա: Այս հոդվածում VBA մեթոդը կօգնի ձեզ լուծել խնդիրը:

Terտեք առանցքային աղյուսակը `հիմնվելով VBA կոդով հատուկ բջջային արժեքի վրա

Terտեք առանցքային աղյուսակը `հիմնվելով VBA կոդով հատուկ բջջային արժեքի վրա

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

1. Խնդրում ենք մուտքագրել մի արժեք, որի վրա դուք զտեք առանցքային աղյուսակը ՝ հիմնվելով վանդակի վրա (այստեղ ես ընտրում եմ H6 բջիջ):

2. Բացեք աշխատանքային թերթը պարունակում է առանցքային աղյուսակ, որը դուք կզտեք ըստ բջջային արժեքի: Դրանից հետո աջ կտտացրեք թերթիկի ներդիրին և համատեքստի ընտրացանկից ընտրեք Դիտել կոդը: Տեսեք,

3. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:

VBA կոդ. Filտել առանցքային աղյուսակը `հիմնված բջջային արժեքի վրա

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

NotesԿոդում,

1) "Sheet1”- աշխատանքային էջի անվանումն է:

2) "Առանցքային աղյուսակ 2”- առանցքային աղյուսակի անվանումն է:

3) առանցքային աղյուսակում զտիչ դաշտը կոչվում է. "կատեգորիա".

4) Արժեքը, որը ցանկանում եք զտել առանցքային աղյուսակը, տեղադրվում է վանդակում H6.

Վերը նշված փոփոխական արժեքները կարող եք փոխել ըստ անհրաժեշտության:

4. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այնուհետև առանցքային աղյուսակը զտվում է ՝ հիմնվելով H6 բջիջի արժեքի վրա, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

Բջջի արժեքը կարող եք փոխել ուրիշի ՝ ըստ ձեզ անհրաժեշտի:

Նշում. H6 բջիջում ձեր մուտքագրած արժեքները պետք է ճշգրտորեն համապատասխանեն առանցքային աղյուսակի Կատեգորիայի բացվող ցուցակի արժեքներին:

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

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

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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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

մեկնաբանություններ (23)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

daniel

մոտ 4 տարի առաջ

#25756

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Օգտագործելով այս կոդը (իհարկե, թարմացվել է իմ փոփոխականների համար), դաշտը փոխելիս ֆիլտրը մի պահ փոխվում է ճիշտի, այնուհետև գրեթե անմիջապես մաքրվում է: Փորձում ենք պարզել, թե ինչու է դա անում (հետաքրքիր է, արդյոք դա ինչ-որ կապ ունի ենթագրի վերջում գտնվող ClearAllFilters-ի հետ):

պատասխանել

Justin

մոտ 4 տարի առաջ

#26177

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս դա կանեիք հիերարխիա ունեցող հաշվետվության զտիչով:

պատասխանել

Իգնացիա

մոտ 3 տարի առաջ

#30976

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Հեյ Շնորհակալություն ձեր մակրոյի համար:

Ես փորձում էի այն օգտագործել նույն էջի մեկից ավելի առանցքային աղյուսակի համար, բայց այն չի աշխատում: Ես գրել եմ այսպես.

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xPTable1-ը որպես առանցքային աղյուսակ
Խոնավեցրեք xPFile1-ը որպես առանցքային դաշտ
Dim xStr1 որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկը (Target, Range ("D7")) ոչինչ է, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable1 = Worksheets («BUSCADOR»). PivotTables («PV_ETAPA1»)
Սահմանել xPFile1 = xPTable1. PivotFields («ETAPA1»)
xStr1 = Target.Text
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Դիմում. ScreenUpdating = ueիշտ է

Dim xPTable2-ը որպես առանցքային աղյուսակ
Խոնավեցրեք xPFile2-ը որպես առանցքային դաշտ
Dim xStr2 որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկը (Target, Range ("G7")) ոչինչ է, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable2 = Worksheets («BUSCADOR»). PivotTables («PV_ETAPA2»)
Սահմանել xPFile2 = xPTable2. PivotFields («ETAPA2»)
xStr2 = Target.Text
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub

Գուցե դուք կարող եք օգնել ինձ դուրս!

Thanks in advance!

պատասխանել

michael Իգնացիա

մոտ 2 տարի առաջ

#30977

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Hi

շնորհակալություն մակրոյի համար

Ես փորձում եմ նույն բանը, բայց չեմ կարողանում այն աշխատել 2 սեղանի վրա: նրանք երկուսն էլ նայում են նույն բջիջին, ընդամենը 2 տարբեր առանցքային աղյուսակներ

շնորհակալություն

պատասխանել

Oksana michael

մոտ 1 տարի առաջ

#30978

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Դուք պետք է փոխեք Pivot Table անունը: Յուրաքանչյուր առանցքային աղյուսակ ունի տարբեր անվանում: Դա ստանալու համար սեղմեք առանցքի վրա աջ և ընտրեք առանցքային աղյուսակի կարգավորումները, անունը կլինի վերևում

պատասխանել

Ambrose Oksana

մոտ 1 ամիս առաջ

#42326

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ,

Je ne comprends pas comment ajouter le nom du second TCD dans la macro pour que cela fonctionne sur les deux.
Pourriez-vous m'aider?

Շնորհակալություն

պատասխանել

Առավոտ

մոտ 2 տարի առաջ

#32775

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն, չգիտես ինչու, այս մակրոն, տեսողական հիմնական էջ մտնելուց հետո, ընդհանրապես չի երևում: Ես չեմ կարող միացնել/գործարկել այս մակրոն, ես ստուգել եմ վստահության կենտրոնի բոլոր կարգավորումները, բայց ոչինչ չի պատահում, խնդրում եմ օգնեք ինձ

պատասխանել

Ցախի

մոտ 2 տարի առաջ

#33165

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն, ես կարծես թե չեմ կարողանում դա գործի դնել: Բջիջը, որին ես ուզում եմ անդրադառնալ, ներս է քաշվում բանաձևից. սա է պատճառը, որ ֆիլտրը չի գտնում այն, քանի որ նա նայում է բանաձևին, այլ ոչ թե այն արժեքին, որը վերադարձնում է բանաձևը: Նախապես շնորհակալություն Հիզեր ՄակԴոնահ

պատասխանել

Sabrina Ցախի

մոտ 1 տարի առաջ

#33166

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն Հիզեր, լուծում գտա՞ք: Ես նույն խնդիրն ունեմ:

պատասխանել

AKTaylor

մոտ 2 տարի առաջ

#33770

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես կարողացա փոփոխել/զտել 3 տարբեր առանցքներ, որոնք գտնվում են նույն ներդիրում: Ես նաև տող եմ ավելացրել իմ տվյալների հավաքածուում՝ «Տվյալներ չկան», հակառակ դեպքում այն թողել է ֆիլտրը «ALL»-ին, որը ես չէի ուզում։ Վերոնշյալը մեծ օգնեց ինձ փառք վաստակելու ղեկավարության հետ, ուստի ես ցանկացա կիսվել: Նկատի ունեցեք, որ (Բոլորը) մեծատառերի զգայունությունը ինձ մի քիչ պահանջեց դա պարզելու համար:
Private Sub Worksheet_Change (ByVal Target as Range)
'փորձարկում
Dim xPTable Որպես PivotTable
Խոնավեցրեք xPFile-ը որպես առանցքային դաշտ
Dim xStr Որպես տող

Dim x2PTable Որպես PivotTable
Խոնավեցրեք x2PFile-ը որպես առանցքային դաշտ
Dim x2Str As String

Dim x3PTable Որպես PivotTable
Խոնավեցրեք x3PFile-ը որպես առանցքային դաշտ
Dim x3Str As String

Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկ (Target, Range ("a2:e2")) ոչինչ է, ապա դուրս եկեք ենթակետից

Դիմում. ScreenUpdating = Սուտ է

'tbl-1
Սահմանել xPTable = Worksheets ("Graphical"). PivotTables ("PivotTable1")
Սահմանել xPFile = xPTable.PivotFields («MR բաժին - բաժին»)
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Եթե xPFile.CurrentPage = «(Բոլոր)» Ապա xPFile.CurrentPage = «Տվյալներ չեն գտնվել»

'tbl-2
Սահմանել x2PTable = Worksheets («Գրաֆիկական»). PivotTables («PivotTable2»)
Սահմանել x2PFile = x2PTable.PivotFields («MR բաժին - բաժին»)
x2Str = Target.Text
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str
Եթե x2PFile.CurrentPage = «(Բոլոր)» Ապա x2PFile.CurrentPage = «Տվյալներ չեն գտնվել»

'tbl-3
Սահմանել x3PTable = Worksheets («Գրաֆիկական»). PivotTables («PivotTable3»)
Սահմանել x3PFile = x3PTable.PivotFields («MR բաժին - բաժին»)
x3Str = Target.Text
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str
Եթե x3PFile.CurrentPage = «(Բոլոր)» Ապա x3PFile.CurrentPage = «Տվյալներ չեն գտնվել»

Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub

պատասխանել

Drew

մոտ 2 տարի առաջ

#34435

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Սա հնարավո՞ր է google sheets-ի միջոցով: Եթե այո, ապա ինչպե՞ս:

պատասխանել

Վիբհոր Drew

մոտ 1 տարի առաջ

#34436

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Google Sheets-ը չի պահանջի որևէ առանցքային աղյուսակ: դուք կարող եք ուղղակիորեն կատարել զտիչ գործառույթի միջոցով

պատասխանել

sdas34

մոտ 2 տարի առաջ

#34609

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես կցանկանայի օգտագործել մի քանի աշխատանքային թերթիկի փոփոխման կոդը նույն աշխատաթերթում: Ինչպե՞ս դա անել: Իմ կոդը հետևյալն է.
Private Sub Worksheet_Change (ByVal Target as Range)
«Առանցքային աղյուսակի զտիչ՝ հիմնված բջջի արժեքի վրա
Dim xPTable Որպես PivotTable
Խոնավեցրեք xPFile-ը որպես առանցքային դաշտ
Dim xStr Որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե հատվում է (Target, Range("D20:D21")) ոչինչ է, ապա դուրս եկեք ենթակետից
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable = Worksheets ("Sheet1"). PivotTables ("PivotTable2")
Սահմանել xPFile = xPTable.PivotFields («Նշանակում»)
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Մասնավոր ենթաթերթ_Change2 (ByVal-ի թիրախը որպես միջակայք)
«Առանցքային աղյուսակի զտիչ՝ հիմնված 2-րդ բջիջի արժեքի վրա
Dim xPTable Որպես PivotTable
Խոնավեցրեք xPFile-ը որպես առանցքային դաշտ
Dim xStr Որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե հատվում է (Target, Range ("H20:H21")) ոչինչ է, ապա դուրս եկեք ենթակետից
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable = Worksheets ("Sheet1"). PivotTables ("PivotTable2")
Սահմանել xPFile = xPTable.PivotFields («Առաջարկ»)
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

պատասխանել

հաշվետվություն

Fernando

մոտ 1 տարի առաջ

#35024

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Olá, gostaria de saber se quisesse filtrar mais de uma categoria como poderia ser?

պատասխանել

Oksana

մոտ 1 տարի առաջ

#35785

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Իսկ եթե ես ուզում եմ ընտրության բջիջը կապել այլ ներդիրի: Սա իմ կոդը մինչ այժմ
Private Sub Worksheet_Change (ByVal Target as Range)
Dim xPTable1-ը որպես առանցքային աղյուսակ
Խոնավեցրեք xPFile1-ը որպես առանցքային դաշտ
Dim xStr1 որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկը (Target, Range ("B1")) ոչինչ չէ, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable1 = Worksheets («SM_SKU PIVOTS»). PivotTables («PivotTable1»)
Սահմանել xPFile1 = xPTable1. PivotFields («Աշխարհագրություն»)
xStr1 = Target.Text
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Դիմում. ScreenUpdating = ueիշտ է

Dim xPTable2-ը որպես առանցքային աղյուսակ
Խոնավեցրեք xPFile2-ը որպես առանցքային դաշտ
Dim xStr2 որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկը (Target, Range ("B1")) ոչինչ չէ, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable2 = Worksheets («SM_SKU PIVOTS»). PivotTables («PivotTable4»)
Սահմանել xPFile2 = xPTable2. PivotFields («Աշխարհագրություն»)
xStr2 = Target.Text
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Դիմում. ScreenUpdating = ueիշտ է

Dim xPTable3-ը որպես առանցքային աղյուսակ
Խոնավեցրեք xPFile3-ը որպես առանցքային դաշտ
Dim xStr3 որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկը (Target, Range ("B1")) ոչինչ չէ, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable3 = Worksheets («SM_SKU PIVOTS»). PivotTables («PivotTable8»)
Սահմանել xPFile3 = xPTable3. PivotFields («Աշխարհագրություն»)
xStr3 = Target.Text
xPFile3.ClearAllFilters
xPFile3.CurrentPage = xStr3
Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub

պատասխանել

Alex

մոտ 7 ամիս առաջ

#38505

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Hello!

Ես նոր եմ VBA-ով և կցանկանայի ունենալ կոդ՝ բջիջների տիրույթի հիման վրա առանցքային զտիչ ընտրելու համար:
Ինչպե՞ս կարող եմ փոխել «CurrentPage»-ը որպես տիրույթի արժեք:
Շնորհակալություն!!
-------------------------------------------------- -----------------------------------------
Sub PrintTour ()

ActiveSheet.PivotTables("PivotTable1").PivotFields(_
«[Bereich 1].[Tour]։[Tour]»)։ _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields(_
«[Bereich 1]։[Տուր]։[Տուր]»)։ _
CurrentPage = "[Bereich 1].[Tour lt. Anlieferungstag].&[4001-01]"
Վերջ Sub

պատասխանել

Նիզակ

մոտ 7 ամիս առաջ

#38840

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շատ շնորհակալ եմ այս կոդի համար: Ես սկսեցի աշխատել այն բանից հետո, երբ հարմարեցրեցի իմ դաշտերը, բայց իմ թերթիկի վրա որոշ փոփոխություններ ֆորմատավորելուց հետո այժմ այն չի աշխատում: Ես այն տեղափոխեցի A1-ից B1, փոխեցի որոշ բջիջների ֆորմատավորում, որպեսզի այն առանձնանա և այլն: Ոչ մի խելահեղ բան չկա, բայց հիմա այն չի թարմացվում, երբ ես փոխում եմ տեքստը B1-ում: Որևէ մեկը գաղափարներ ունի:

Private Sub Worksheet_Change (ByVal Target as Range)
'փորձարկում
Dim xPTable Որպես PivotTable
Խոնավեցրեք xPFile-ը որպես առանցքային դաշտ
Dim xStr Որպես տող

Dim x2PTable Որպես PivotTable
Խոնավեցրեք x2PFile-ը որպես առանցքային դաշտ
Dim x2Str As String

Dim x3PTable Որպես PivotTable
Խոնավեցրեք x3PFile-ը որպես առանցքային դաշտ
Dim x3Str As String

Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկ (Target, Range("b1")) ոչինչ է, ապա դուրս եկեք Sub

Դիմում. ScreenUpdating = Սուտ է

'tbl-1
Սահմանել xPTable = Worksheets («Գծային հաշվետվություն»). PivotTables («PivotTable7»)
Սահմանել xPFile = xPTable.PivotFields («Ուտոպիայի աղբյուր»)
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr

'tbl-2
Սահմանել x2PTable = Worksheets («Գծային հաշվետվություն»). PivotTables («Առանցքային աղյուսակ 2»)
Սահմանել x2PFile = x2PTable.PivotFields («Ուտոպիայի աղբյուր»)
x2Str = Target.Text
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str

'tbl-3
Սահմանել x3PTable = Worksheets («Գծային հաշվետվություն»). PivotTables («Առանցքային աղյուսակ 3»)
Սահմանել x3PFile = x3PTable.PivotFields («Ուտոպիայի աղբյուր»)
x3Str = Target.Text
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str

Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub

պատասխանել

բյուրեղապակի Նիզակ

մոտ 6 ամիս առաջ

#38901

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Լենս,
Ես փորձարկեցի ձեր կոդը և այն լավ է աշխատում իմ դեպքում: Բջջի ձևաչափի փոփոխությունը չի ազդում կոդի աշխատանքի վրա:

պատասխանել

հաշվետվություն

մոտ 5 ամիս առաջ

#39652

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս է այն աշխատում Power Pivot-ի հետ մի քանի աղյուսակներ օգտագործելիս: Ես գրանցեցի մակրո, որը փոխում է արժեքը ֆիլտրում: Կատարել է մի քանի փոփոխություններ՝ վերը նշված կոդը գործելու համար: Բայց այն գցում է Type անհամապատասխանության սխալ: Ինչ էլ որ անեմ։

պատասխանել

բյուրեղապակի DK

մոտ 5 ամիս առաջ

#39718

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև DK,
Մեթոդը չի աշխատում Power Pivot-ի համար: Ներողություն անհանգստության համար.

պատասխանել

հաշվետվություն

Ambrose

մոտ 1 ամիս առաջ

#42309

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ,
Շատ շնորհակալ եմ այդ բացատրությունների համար:

J'aimerai utiliser un filtre (1 բջիջ) և F4-ի օրինակ, որը պարունակում է TCD qui sont sur la même feuille:

Cela fonctionne très bien avec un TCD mais dès que j'essaye de combinationr le second, ça ne marche pas.
Pourriez-vous m'aider ?

Thank you a lot
Ambrose

պատասխանել

Ambrose

մոտ 1 ամիս առաջ

#42324

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ,

Merci beaucoup pour cette explication qui marche parfaitement.
En revanche, j'aimerais pouvoir utiliser ce code pour pouvoir filtrer deux tableaux croisés dynamiques en même temps qui sont sur la même feuille. La seule petite diférence entre les deux, c'est qu'ils n'utilisent pas les mêmes աղբյուրները: En revanche, le filtre sur lequel se base ces TDC est le même.

Pourriez-vous m'aider à faire évoluer ce code afin que cela fonctionne ?

Voici le code utilisé quand il marche avec un TCD:

Private Sub Worksheet_Change (ByVal Target as Range)
«Թարմացվել է Extendoffice 20180702
Dim xPTable Որպես PivotTable
Խոնավեցրեք xPFile-ը որպես առանցքային դաշտ
Dim xStr Որպես տող
Ս.թ. սխալի Ռեզյումե Next
Եթե խաչմերուկը (Target, Range ("G4")) ոչինչ է, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xPTable = Worksheets («Cadrage»). PivotTables («Tableau croisé dynamique7»)
Սահմանել xPFile = xPTable.PivotFields («N°PROJET»)
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Thank you a lot

պատասխանել

բյուրեղապակի Ambrose

մոտ 1 ամիս առաջ

#42387

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ամբրուիզ,

Կներեք, դժվար է փոփոխել այս կոդը՝ ձեր կարիքները բավարարելու համար: Եթե ցանկանում եք զտել բազմաթիվ առանցքային աղյուսակներ մեկ զտիչով, ստորև բերված այս հոդվածի մեթոդները կարող են ձեզ լավություն անել.
Ինչպե՞ս միացնել մեկ կտրիչ Excel-ի բազմաթիվ առանցքային աղյուսակներին:

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները