Conas tábla Pivot a scagadh bunaithe ar luach sonrach cille in Excel?

De ghnáth, táimid ag scagadh sonraí i dTábla Pivot trí mhíreanna a roghnú sa liosta anuas mar a thaispeántar sa screenshot thíos. I ndáiríre, is féidir leat tábla pivot a scagadh bunaithe ar an luach i gcill ar leith. Cabhróidh an modh VBA san Airteagal seo leat an fhadhb a réiteach.

Scagaire Pivot Tábla bunaithe ar luach sonrach cille le cód VBA

Scagaire Pivot Tábla bunaithe ar luach sonrach cille le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat Tábla Pivot a scagadh bunaithe ar luach sonrach cille in Excel. Déan mar a leanas le do thoil.

1. Iontráil luach le do thoil scagfaidh tú Tábla Pivot bunaithe ar chill roimh ré (roghnaigh mé cill H6 anseo).

2. Oscail an bhileog oibre tá an Tábla Pivot a scagfaidh tú de réir luach cille. Ansin cliceáil ar dheis ar an táb bileog agus roghnaigh View Code ón roghchlár comhthéacs. Féach an pictiúr:

3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil faoi bhun an chóid VBA isteach i bhfuinneog an Chóid.

Cód VBA: Scagaire Tábla Pivot bunaithe ar luach cille

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

nótaí: Sa chód,

1) "Sheet1”Is ainm don bhileog oibre.

2) "Tábla Pivot2”Is ainm don Tábla Pivot.

3) Tugtar "An réimse scagtha sa tábla pivot"Catagóir".

4) Cuirtear an luach a theastaíonn uait an tábla pivot a scagadh i gcill H6.

Féadfaidh tú na luachanna athraitheacha thuas a athrú de réir mar a theastaíonn uait.

4. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Ansin tá an Tábla Pivot ag scagadh bunaithe ar an luach i gcill H6 mar atá thíos an pictiúr a thaispeántar:

Féadfaidh tú luach na cille a athrú go daoine eile de réir mar is gá duit.

nótaí: Ba cheart go mbeadh na luachanna a chlóscríobhann tú i gcill H6 comhoiriúnach go díreach leis na luachanna sa liosta anuas Catagóir de Tábla Pivot.

Earraí gaolmhara:

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Comments (23)

Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!

Daniel

thart ar 4 bliain ó shin

#25756

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Ag baint úsáide as an gcód seo (a nuashonraithe le haghaidh mo chuid athróg ar ndóigh), agus an réimse á athrú, athraíonn an scagaire go dtí an ceann ceart láithreach, agus ansin glanann sé é féin beagnach láithreach. Ag iarraidh a dhéanamh amach cén fáth a bhfuil sé seo á dhéanamh aige (smaoineamh an bhfuil baint aige leis na ClearAllFilters ag deireadh an fho?)

Freagra

Justin

thart ar 4 bliain ó shin

#26177

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Conas a dhéanfá é seo le scagaire tuairisce a bhfuil ordlathas aige?

Freagra

ignacia

thart ar 3 bliain ó shin

#30976

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Hey! Go raibh maith agat as do mhacra.

Bhí mé ag iarraidh é a úsáid le haghaidh níos mó ná tábla pivot amháin ar an leathanach céanna, ach ní oibríonn sé. Scríobh mé mar seo é:

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xPTable1 Mar PivotTable
Dim xPFile1 Mar PivotField
Dim xStr1 Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("D7")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable1 = Bileoga Oibre("BUSCADOR").PivotTables("PV_ETAPA1")
Socraigh xPFile1 = xPTable1.PivotFields("ETAPA1")
xStr1 = Target.Text
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Feidhmchlár.ScreenUpdating = Fíor

Dim xPTable2 Mar PivotTable
Dim xPFile2 Mar PivotField
Dim xStr2 Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("G7")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable2 = Bileoga Oibre("BUSCADOR").PivotTables("PV_ETAPA2")
Socraigh xPFile2 = xPTable2.PivotFields("ETAPA2")
xStr2 = Target.Text
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh

B'fhéidir gur féidir leat cabhrú liom!

Go raibh maith agat roimh ré!

Freagra

michael ignacia

thart ar 2 bliain ó shin

#30977

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Hi

go raibh maith agat as an Macra

Táim ag iarraidh an rud céanna ach ní féidir liom a chur ag obair ar 2 táblaí. tá siad araon ag féachaint ar an gcill chéanna ach 2 tábla mhaighdeog dhifriúla

go raibh maith agat

Freagra

Oksana michael

thart ar 1 bhliain ó shin

#30978

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Caithfidh tú an t-ainm Pivot Table a athrú. Tá ainm difriúil ar gach tábla mhaighdeog. chun é sin a fháil, cliceáil ar dheis ar an mhaighdeog agus roghnaigh socruithe tábla mhaighdeog, beidh an t-ainm ag an mbarr

Freagra

Ambrose Oksana

thart ar 1 mhí ó shin

#42326

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit,

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?

Merci

Freagra

Arabhainn

thart ar 2 bliain ó shin

#32775

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit ar chúis éigin, an macra seo tar éis dul isteach ar an leathanach amhairc bhunúsach, ní thaispeáint suas ar chor ar bith. Níl mé in ann an macra seo a chumasú / a rith, tá an socrú lárionad iontaobhais go léir seiceáilte agam, ach ní tharlaíonn aon rud, cuidigh liom le do thoil

Freagra

Heather

thart ar 2 bliain ó shin

#33165

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, is cosúil nach féidir liom é seo a chur ag obair. Tá an chill a bhfuilim ag iarraidh tagairt di tarraingthe isteach ó fhoirmle - an é sin an fáth nach féidir leis an scagaire é a aimsiú mar go bhfuil sé ag féachaint ar an bhfoirmle seachas ar an luach a thugann an fhoirmle ar ais? Go raibh maith agat roimh réHeather McDonagh

Freagra

Sabrina Heather

thart ar 1 bhliain ó shin

#33166

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Hi Heather, an bhfuair tú réiteach. Níl ach an fhadhb chéanna agam.

Freagra

AKTaylor

thart ar 2 bliain ó shin

#33770

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Bhí mé in ann 3 mhaighdeog dhifriúla atá ar an gcluaisín céanna a mhodhnú/scagadh. Chuir mé as a chéile freisin i mo thacar sonraí "No Data Found", nó d'fhág sé an scagaire go dtí "GACH" rud nach raibh mé ag iarraidh. Ba mhór an chabhair é an méid thuas chun Kudos a thuilleamh dom leis an mbainistíocht agus mar sin bhí mé ag iarraidh a roinnt. Tabhair faoi deara go bhfuil (Gach) cás-íogair thóg mé beagán chun é sin a dhéanamh amach.
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'scrúdú
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField
Dim xStr Mar Teaghrán

Dim x2PTable Mar PivotTable
Dim x2PFile Mar PivotField
Dim x2Str Mar Teaghrán

Dim x3PTable Mar PivotTable
Dim x3PFile Mar PivotField
Dim x3Str Mar Teaghrán

Ar Lean Earráid Aghaidh
Mura bhfuil aon rud ag Intersect(Sprioc, Raon ("a2:e2")) Scoir Fo

Application.ScreenUpdating = Bréagach

'tbl-1
Socraigh xPTable = Bileoga Oibre ("Grafach").PivotTables("PivotTable1")
Socraigh xPFile = xPTable.PivotFields("MR Roinn - Roinn")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Má tá xPFile.CurrentPage = "(Gach)" Ansin xPFile.CurrentPage = "Níor aimsíodh aon sonraí"

'tbl-2
Socraigh x2PTable = Bileoga Oibre("Grafach").PivotTables("PivotTable2")
Socraigh x2PFile = x2PTable.PivotFields("MR Roinn - Roinn")
x2Str = Target.Text
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str
Má tá x2PFile.CurrentPage = "(Gach)" Ansin x2PFile.CurrentPage = "Níor aimsíodh aon sonraí"

'tbl-3
Socraigh x3PTable = Bileoga Oibre("Grafach").PivotTables("PivotTable3")
Socraigh x3PFile = x3PTable.PivotFields("MR Roinn - Roinn")
x3Str = Target.Text
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str
Má tá x3PFile.CurrentPage = "(Gach)" Ansin x3PFile.CurrentPage = "Níor aimsíodh aon sonraí"

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh

Freagra

Drew

thart ar 2 bliain ó shin

#34435

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

An bhfuil sé seo indéanta le bileoga google? Más ea, conas?

Freagra

Vibhar Drew

thart ar 1 bhliain ó shin

#34436

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Ní bheidh aon tábla pivot ag teastáil ó Google Sheets. is féidir leat a dhéanamh go díreach trí Fheidhm Scagaire

Freagra

sdas34

thart ar 2 bliain ó shin

#34609

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Ba mhaith liom cód Athrú Bileoga Oibre iolrach a úsáid sa bhileog oibre céanna. Conas é sin a dhéanamh? Tá mo chód mar atá thíos:
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'Scagaire tábla pivot bunaithe ar luach cille
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField
Dim xStr Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura bhfuil Rud ar bith ag Intersect(Sprioc, Raon ("D20:D21")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable = Bileoga Oibre("Bileog1").PivotTables("PivotTable2")
Socraigh xPFile = xPTable.PivotFields("Ainmniú")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Fo-Bileog Oibre Príobháideach_Change2(ByVal Target As Range)
'Scagaire tábla pivot bunaithe ar luach cille 2
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField
Dim xStr Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura bhfuil aon rud ag Intersect(Sprioc, Raon ("H20:H21")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable = Bileoga Oibre("Bileog1").PivotTables("PivotTable2")
Socraigh xPFile = xPTable.PivotFields("Offering")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Freagra

Tuarascáil

Fernando

thart ar 1 bhliain ó shin

#35024

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Cén chaoi a bhfuil tú ag iarraidh a shábháil ar do chuid faisnéise agus cad iad na cineálacha éagsúla atá agat?

Freagra

Oksana

thart ar 1 bhliain ó shin

#35785

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Cad a tharlóidh má theastaíonn uaim an chill roghnaithe a nascadh le cluaisín eile? Is é seo mo chód go dtí seo
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xPTable1 Mar PivotTable
Dim xPFile1 Mar PivotField
Dim xStr1 Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("B1")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable1 = Bileoga Oibre ("SM_SKU PIVOTS").PivotTables("PivotTable1")
Socraigh xPFile1 = xPTable1.PivotFields("Tíreolaíocht")
xStr1 = Target.Text
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Feidhmchlár.ScreenUpdating = Fíor

Dim xPTable2 Mar PivotTable
Dim xPFile2 Mar PivotField
Dim xStr2 Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("B1")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable2 = Bileoga Oibre ("SM_SKU PIVOTS").PivotTables("PivotTable4")
Socraigh xPFile2 = xPTable2.PivotFields("Tíreolaíocht")
xStr2 = Target.Text
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Feidhmchlár.ScreenUpdating = Fíor

Dim xPTable3 Mar PivotTable
Dim xPFile3 Mar PivotField
Dim xStr3 Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("B1")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable3 = Bileoga Oibre ("SM_SKU PIVOTS").PivotTables("PivotTable8")
Socraigh xPFile3 = xPTable3.PivotFields("Tíreolaíocht")
xStr3 = Target.Text
xPFile3.ClearAllFilters
xPFile3.CurrentPage = xStr3
Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh

Freagra

alex

thart ar 7 mhí ó shin

#38505

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit!

Tá mé nua le VBA agus ba mhaith liom cód a bheith agam chun scagaire pivot a roghnú bunaithe ar raon cille.
Conas is féidir liom "CurrentPage" a athrú chun bheith ina luach raoin?
Go raibh maith agat!!
-------------------------------------------------- -----------------------------------------
Turas Fophriontaí()

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Bereich 1]. [Turas]. [Turas ]"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Bereich 1]. [Turas]. [Turas]"). _
CurrentPage = "[Bereich 1].[Turas lt. anlieferungstag].&[4001-01]"
Fo Deireadh

Freagra

spear

thart ar 7 mhí ó shin

#38840

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Go raibh míle maith agat as an gcód seo! Fuair mé ag obair é tar éis a choigeartú chun freastal ar mo réimsí, ach tar éis formáidiú roinnt athruithe ar mo bhileog anois ní oibríonn sé! Bhog mé ó A1 go B1 é, d'athraigh mé roinnt formáidiú cille chun é a sheasamh, etc. An bhfuil aon smaointe ag duine ar bith?

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'scrúdú
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField
Dim xStr Mar Teaghrán

Dim x2PTable Mar PivotTable
Dim x2PFile Mar PivotField
Dim x2Str Mar Teaghrán

Dim x3PTable Mar PivotTable
Dim x3PFile Mar PivotField
Dim x3Str Mar Teaghrán

Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("b1")) Scoir Fo

Application.ScreenUpdating = Bréagach

'tbl-1
Socraigh xPTable = Bileoga Oibre ("Tuairisc Líne").PivotTables("PivotTable7")
Socraigh xPFile = xPTable.PivotFields("Foinse Utopia")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr

'tbl-2
Socraigh x2PTable = Bileoga Oibre ("Tuairisc Líne").PivotTables("PivotTable2")
Socraigh x2PFile = x2PTable.PivotFields("Foinse Utopia")
x2Str = Target.Text
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str

'tbl-3
Socraigh x3PTable = Bileoga Oibre ("Tuairisc Líne").PivotTables("PivotTable3")
Socraigh x3PFile = x3PTable.PivotFields("Foinse Utopia")
x3Str = Target.Text
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh

Freagra

criostail spear

thart ar 6 mhí ó shin

#38901

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Hi Lance,
Thástáil mé do chód agus oibríonn sé go breá i mo chás. Ní chuireann athrú ar an bhformáid cille isteach ar oibriú an chóid.

Freagra

Tuarascáil

thart ar 5 mhí ó shin

#39652

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Conas a oibríonn sé le Power Pivot, agus táblaí iolracha á n-úsáid? Thaifead mé macra ag athrú an luach sa scagaire. Ní dhearnadh mórán athruithe chun an cód thuas a oibriú. Ach caitheann sé earráid mímheaitseála Cineál. Is cuma cad a dhéanfaidh mé.

Freagra

criostail DK

thart ar 5 mhí ó shin

#39718

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit DK,
Ní oibríonn an modh do Power Pivot. Leithscéal as an míchaoithiúlacht.

Freagra

Tuarascáil

Ambrose

thart ar 1 mhí ó shin

#42309

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit,
Go raibh míle maith agat as na mínithe sin.

J'aimerai utiliser un filtre (1 cellule) agus F4 par exemple qui filtrerait deux TCD qui sont sur la même feuille.

Cela fonctionne très bien avec un TCD mais dès que j'essaye de combiner leis an dara, ça ne marche pas.
An bhféadfá cabhrú liom?

Go raibh míle maith agat go mór
Ambrose

Freagra

Ambrose

thart ar 1 mhí ó shin

#42324

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit,

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 différence entre les deux, c'est qu'ils n'utilisent pas les mêmes sources. Sa 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 ?

Guth le cód utilisé quand il marche avec un TCD :

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'Nuashonraigh le Extendoffice 20180702
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField
Dim xStr Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura rud ar bith é Intersect(Sprioc, Raon ("G4")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable = Bileoga Oibre ("Cadrage").PivotTables("Tableau croisé dynamique7")
Socraigh xPFile = xPTable.PivotFields("N°PROJET")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Go raibh míle maith agat go mór

Freagra

criostail Ambrose

thart ar 1 mhí ó shin

#42387

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit Ambroise,

Ár leithscéal, tá sé deacair an cód seo a leasú chun freastal ar do chuid riachtanas. Más mian leat táblaí pivot iolracha a scagadh le scagaire amháin, féadfaidh na modhanna san Airteagal seo thíos a bheith i bhfabhar duit:
Conas slicer amháin a nascadh le táblaí pivot iolracha in Excel?

Freagra

Tuarascáil

Níl aon tráchtanna curtha suas anseo go fóill

Fág do chuid tuairimí

Ag postáil mar Aoi

Ainm (Riachtanach)

Ríomhphost (riachtanach)

Ráta an post seo:

athshocrú

0 Carachtair

Aontaím leis an téarmaí agus riocht