Note: The other languages of the website are Google-translated. Back to English

Conas scagaire Tábla Pivot a nascadh le cill áirithe in Excel?

Más mian leat scagaire Tábla Pivot a nascadh le cill áirithe, agus an Tábla Pivot a scagadh bunaithe ar luach na cille, is féidir leis an modh san alt seo cabhrú leat.

Nasc scagaire Tábla Pivot le cill áirithe le cód VBA


Nasc scagaire Tábla Pivot le cill áirithe le cód VBA

Ba chóir go mbeadh réimse scagaire sa Tábla Pivot a nascfaidh tú a fheidhm scagaire le luach cille (tá ról tábhachtach ag ainm an réimse scagaire sa chód VBA seo a leanas).

Tóg an Tábla Pivot thíos mar shampla, Tugtar an réimse scagaire sa Tábla Pivot Catagóir, agus tá dhá luach ann “Costais"Agus"Díolacháin”. Tar éis duit an scagaire Tábla Pivot a nascadh le cill, ba cheart gurb iad na luachanna cille a chuirfidh tú i bhfeidhm chun Tábla Pivot a scagadh ná “Costais” agus “Díolacháin”.

1. Roghnaigh an chill (roghnaigh mé cill H6 anseo) nascfaidh tú le feidhm scagaire Pivot Table, agus cuirfidh tú ceann de na luachanna scagaire isteach sa chill roimh ré.

2. Oscail an bhileog oibre tá an Tábla Pivot a nascfaidh tú leis an gcill. Cliceáil ar dheis ar an táb bileog agus roghnaigh Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:

3. Sa 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: Nasc scagaire Tábla Pivot le cill áirithe

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")) 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í:

1) "Sheet1”Is ainm don bhileog oibre oscailte.
2) "Tábla Pivot2”Is é ainm an Tábla Pivot nascfaidh tú a fheidhm scagaire le cill.
3) Tugtar "An réimse scagtha sa tábla pivot"Catagóir".
4) Is é H6 an chill thagartha. Féadfaidh tú na luachanna athraitheacha seo a athrú bunaithe ar do chuid riachtanas.

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

Anois tá feidhm scagaire an Tábla Pivot nasctha le cill H6.

Athnuachan an chill H6, ansin scagtar na sonraí comhfhreagracha i dTábla Pivot bunaithe ar an luach atá ann cheana. Féach an pictiúr:

Agus an luach cille á athrú, athrófar na sonraí scagtha sa Tábla Pivot go huathoibríoch. Féach an pictiúr:


Roghnaigh sraitheanna iomlána go héasca bunaithe ar luach cille i gcolún deimhnithe:

An Roghnaigh Cealla Sonracha fóntais de Kutools le haghaidh Excel is féidir leis cabhrú leat sraitheanna iomlána a roghnú go tapa bunaithe ar luach cille i gcolún deimhnithe in Excel mar a thaispeántar thíos. Tar éis duit na sraitheanna uile a roghnú bunaithe ar luach cille, is féidir leat iad a bhogadh nó a chóipeáil de láimh go suíomh nua de réir mar a theastaíonn uait in Excel.
Íoslódáil agus bain triail as anois! (30- rian lae saor in aisce)


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (36)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas é a dhéanamh ar il;tiple field toisc go bhfuil sa chód ach sprioc amháin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Frank
Ní féidir le brón cabhrú leat leis sin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlaíonn má tá an chill atá nasctha leis an Tábla Pivot, sa chás seo H6, ar bhileog oibre eile? Conas a athraíonn sé an cód?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
cad a tharlaíonn má tá níos mó ná 1 tábla mhaighdeog agam agus chun nasc a dhéanamh le cill amháin. Conas a leasóidh mé an cód?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Jeri,
Ár leithscéal ní féidir leat cabhrú leis sin. Fáilte chuig aon cheist a phostáil inár bhfóram: https://www.extendoffice.com/forum.html chun níos mó tacaíochta Excel a fháil ó lucht leanúna Excel gairmiúla nó eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
aimsigh iad seo agus athraigh iad in Array(), Intersect(), Worksheets(), PivotFields()

Tábla Pivot1
Tábla Pivot2
Tábla Pivot3
Tábla Pivot4
H1
Ainm na mBileog
Ainm Réimse




Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xPTabled As PivotTable
    Dim xPFiled As PivotField
    Dim xStr As String
    On Error Resume Next
    '리스트 만들기
    Dim listArray() As Variant
    listArray = Array("PivotTable1", "PivotTable2", "PivotTable3", "PivotTable4")
    If Intersect(Target, Range("H1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For i = 0 To UBound(listArray)
        Set xPTable = Worksheets("SheetName").PivotTables(listArray(i))
        Set xPFile = xPTable.PivotFields("FieldName")
        'MsgBox (listArray(i))
        xStr = Target.Text
        xPFile.ClearAllFilters
        xPFile.CurrentPage = xStr
    Next
        Application.ScreenUpdating = True
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tarde Boa...! Ón bpobal, cad é mar is féidir leat úsáid a bhaint as an scannán agus an dá cheann de na táblaí dinâmicas...? Agradeço desde já.

Tráthnóna maith...! Foilsitheoireacht iontach, conas is féidir liom an scagaire a úsáid in dhá PivotTables nó níos mó ...? Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Gilmar Alves,
Ár leithscéal ní féidir leat cabhrú leis sin. Fáilte chuig aon cheist a phostáil inár bhfóram: https://www.extendoffice.com/forum.html chun níos mó tacaíochta Excel a fháil ó lucht leanúna Excel gairmiúla nó eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil an cheist maidir le nascadh an tábla iolraigh mhaighdeog socraithe ag éinne?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraigh Luachanna in Eagar(), Bileoga Oibre() agus Trasnaigh()



**Faigh iad seo agus athraigh é**
Ainm na mBileog
E1
Tábla Pivot1
Tábla Pivot2
Tábla Pivot3




Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'Nuashonraigh le Extendoffice 20180702
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField

Dim xPTabled Mar PivotTable
Dim xPFiled As PivotField

Dim xStr Mar Teaghrán



Ar Lean Earráid Aghaidh

‘리스트 만들기
Dim listArray() Mar Leagan
listArray = Eagar("PivotTable1", "PivotTable2", "PivotTable3")



Mura rud ar bith é Intersect(Sprioc, Raon ("E1")) Scoir Fo
Application.ScreenUpdating = Bréagach

Le haghaidh i = 0 Go UBound(listArray)

Socraigh xPTable = Bileoga Oibre ("BileogName").PivotTables(listArray(i))
Socraigh xPFile = xPTable.PivotFields("Cuideachta_ID")

xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr



Ar Aghaidh

Feidhmchlár.ScreenUpdating = Fíor



Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ciao, an provando táille a bheidh le fáil i bhfad i modo che il filtro della pivot si setti sul valore della cella,
neamh riesco agus farla funzionare.

Cén cineál manca nella cur síos a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
An bhfuair tú aon leid earráide? Ní mór dom a bheith níos sonraí faoi do cheist, mar shampla do leagan Excel. Agus mura miste leat, déan iarracht do shonraí a chruthú i leabhar oibre nua agus bain triail eile as, nó tóg seat de do shonraí agus uaslódáil anseo iad.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Rinneadh iarracht é seo a chur ag obair don scagaire colún ach ní cosúil go n-oibríonn sé. An bhfuil cód eile ag teastáil uaim chuige sin?

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Justin,
An bhfuair tú aon leid earráide? Ní mór dom a bheith níos sonraí faoi do cheist.
Sula gcuireann tú an cód i bhfeidhm, ná déan dearmad an "ainm an bhileog""ainm an tábla mhaighdeog""ainm an scagaire tábla mhaighdeog" agus an cill ba mhaith leat an tábla mhaighdeog a scagadh bunaithe ar (féach radharc).
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/4.png
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Go raibh maith agat as do chabhair. Is í an cheist nach bhfuil an fheidhm ag déanamh rud ar bith ar chúis éigin. Roinnt soiléirithe:

Ainm an mhaighdeog: Order_Comp_B2C
Ainm na mBileog: Bileog Ríomh
Ainm an scagaire: Uimhir na Seachtaine (D'athraigh mé an t-ainm seo ón rud a bhí "Uimhir Sheachtain Seolta" sa chomhad sonraí)
Cill le hathrú: O26 agus O27 (ba cheart go rachadh sé seo sa raon)

Sa mhaighdeog seo, táim ag iarraidh an scagaire a athrú do na colúin, níl aon rud agam sa limistéar scagaire sa roghchlár PivotTable Fields.

Is é mo chód:

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 ("O26")) Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xPTable = Bileoga Oibre ("Bileog Ríomh").PivotTables("Ordú_Comp_B2C")
Socraigh xPFile = xPTable.PivotFields("Uimhir Seachtaine")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Go raibh maith agat,

Justin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Justin Teeuw,
D'athraigh mé an Ainm pivot, ainm na bileoige, ainm an scagaire agus cill a athrú leis na coinníollacha a luaigh tú thuas, agus rinne tú iarracht an cód VBA a sholáthair tú, oibríonn sé go maith i mo chás. Féach an GIF seo a leanas nó an leabhar oibre ceangailte.
An miste leat leabhar oibre nua a chruthú agus an cód a thriail arís?
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/6.gif
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Ceangailte le screenshot den mhaighdeog, is é an bosca dearg an scagaire ba mhaith liom a athrú bunaithe ar an luach cille.

B'fhearr liom úsáid a bhaint as raon cealla a thaispeánann uimhreacha seachtainí éagsúla.

Go raibh maith agat,

Justin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Justin,
Tá brón orm nach bhfaca mé an screenshot a cheangail tú ar an leathanach. B'fhéidir go bhfuil earráid éigin ar an leathanach.
Más gá duit fós an fhadhb a réiteach, seol ríomhphost chugam trí zxm@addin99.com. Leithscéal as an míchaoithiúlacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Justin Teeuw,
Bain triail as an gcód VBA seo a leanas. Tá súil agam gur féidir liom cabhrú.

Private Sub Worksheet_Change(ByVal Target As Range)
    'Update by Extendoffice 20220706
    Dim I As Integer
    Dim xFilterStr1, xFilterStr2 As String
    On Error Resume Next
    If Intersect(Target, Range("O26:O27")) Is Nothing Then Exit Sub
    'Application.ScreenUpdating = False
    
    xFilterStr1 = Range("O26").Value
    xFilterStr2 = Range("O27").Value
    ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number"). _
        ClearAllFilters
    If xFilterStr1 = "" And xFilterStr2 = "" Then Exit Sub
    ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number"). _
        EnableMultiplePageItems = True
    xCount = ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number").PivotItems.Count

    For I = 1 To xCount
        If I <> xFilterStr1 And I <> xFilterStr2 Then
            ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number").PivotItems(I).Visible = False
        Else
            ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number").PivotItems(I).Visible = True
        End If
    Next

    'Application.ScreenUpdating = True
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Úsáid mé é le haghaidh excell gnáth agus d'oibrigh sé.Ach ní raibh mé in ann é a úsáid le haghaidh bileoga oibre olap. b'fhéidir go gcaithfidh mé é a athrú beagán?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit maziaritib4 TIB,
Níl an modh ar fáil ach do Microsoft Excel. Leithscéal as an míchaoithiúlacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Justin,

D'oibrigh sé seo go foirfe, áfach, tá mé ag smaoineamh an féidir an riail seo a chur i bhfeidhm ar PivotTables iolracha laistigh den bhileog chéanna?

Go raibh maith agat,
James
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi James,

Sea, tá sé seo indéanta, is é an cód a d'úsáid mé le haghaidh seo (4 mhaighdeog agus 2 thagairt cille):

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim I Mar Slánuimhir
Dim xFilterStr1, xFilterStr2, yFilterstr1, yfilterstr2 Mar Teaghrán
Ar Lean Earráid Aghaidh
Mura bhfuil aon rud ag Intersect(Sprioc, Raon ("O26:P27")) Scoir Fo

xFilterStr1 = Raon ("O26").Luach
xFilterStr2 = Raon ("O27").Luach
yFilterstr1 = Raon ("p26").Luach
yfilterstr2 = Raon ("p27").Luach
ActiveSheet.PivotTables("Ordú_Comp_B2C_Crea").PivotFields("Uimhir Seachtaine"). _
ActiveSheet.PivotTables("Ordú_Comp_B2B_Crea").PivotFields("Uimhir Seachtaine"). _
ActiveSheet.PivotTables("Ordú_Comp_B2C_Disp").PivotFields("Uimhir Seachtaine"). _
ActiveSheet.PivotTables("Ordú_Comp_B2B_Disp").PivotFields("Uimhir Seachtaine"). _
ClearAllFilters

Má tá xFilterStr1="" Agus xFilterStr2="" Agus yFilterstr1="" Agus yfilterstr2="" Ansin Scoir Fo
ActiveSheet.PivotTables("Ordú_Comp_B2C_Crea").PivotFields("Uimhir Seachtaine"). _
ActiveSheet.PivotTables("Ordú_Comp_B2B_Crea").PivotFields("Uimhir Seachtaine"). _
ActiveSheet.PivotTables("Ordú_Comp_B2C_Disp").PivotFields("Uimhir Seachtaine"). _
ActiveSheet.PivotTables("Ordú_Comp_B2B_Disp").PivotFields("Uimhir Seachtaine"). _
EnableMultiplePageItems = Fíor

xCount = ActiveSheet.PivotTables("Ordú_Comp_B2C_Crea").PivotFields("Uimhir Seachtaine").PivotItems.Count
xCount = ActiveSheet.PivotTables("Ordú_Comp_B2B_Crea").PivotFields("Uimhir Seachtaine").PivotItems.Count
yCount = ActiveSheet.PivotTables("Ordú_Comp_B2C_Disp").PivotFields("Uimhir Seachtaine").PivotItems.Count
yCount = ActiveSheet.PivotTables("Ordú_Comp_B2B_Disp").PivotFields("Uimhir Seachtaine").PivotItems.Count

Chun I = 1 Go xCount
Má Mé <> xFilterStr1 Agus mé <> xFilterStr2 Ansin
ActiveSheet.PivotTables("Ordú_Comp_B2C_Crea").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Bréagach
ActiveSheet.PivotTables("Ordú_Comp_B2B_Crea").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Bréagach
Eile
ActiveSheet.PivotTables("Ordú_Comp_B2C_Crea").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Fíor
ActiveSheet.PivotTables("Ordú_Comp_B2B_Crea").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Fíor
Deireadh Má
Ar Aghaidh

Chun Mise = 1 Chun Comhaireamh
Má tá mé <> yFilterstr1 Agus mé <> yfilterstr2 Ansin
ActiveSheet.PivotTables("Ordú_Comp_B2C_Disp").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Bréagach
ActiveSheet.PivotTables("Ordú_Comp_B2B_Disp").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Bréagach
Eile
ActiveSheet.PivotTables("Ordú_Comp_B2C_Disp").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Fíor
ActiveSheet.PivotTables("Ordú_Comp_B2B_Disp").PivotFields("Uimhir Seachtaine").PivotItems(I).Visible = Fíor
Deireadh Má
Ar Aghaidh

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraigh Luachanna in Eagar(), Bileoga Oibre() agus Trasnaigh()



**Faigh iad seo agus athraigh é**
Ainm na mBileog
E1
Tábla Pivot1
Tábla Pivot2
Tábla Pivot3




Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'Nuashonraigh le Extendoffice 20180702
Dim xPTable Mar PivotTable
Dim xPFile Mar PivotField

Dim xPTabled Mar PivotTable
Dim xPFiled As PivotField

Dim xStr Mar Teaghrán



Ar Lean Earráid Aghaidh

‘리스트 만들기
Dim listArray() Mar Leagan
listArray = Eagar("PivotTable1", "PivotTable2", "PivotTable3")



Mura rud ar bith é Intersect(Sprioc, Raon ("E1")) Scoir Fo
Application.ScreenUpdating = Bréagach

Le haghaidh i = 0 Go UBound(listArray)

Socraigh xPTable = Bileoga Oibre ("BileogName").PivotTables(listArray(i))
Socraigh xPFile = xPTable.PivotFields("Cuideachta_ID")

xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr



Ar Aghaidh

Feidhmchlár.ScreenUpdating = Fíor



Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Oibríonn an cód go breá domsa. Mar sin féin ní féidir liom an tábla maighdeog a fháil chun an sprioc scagaire a nuashonrú go huathoibríoch. Is é an sprioc i mo chás ná foirmle [DATE(D18,S14,C18)]. Ní oibríonn an cód ach amháin nuair a chliceálann mé faoi dhó ar an spriocchill agus nuair a bhuailim isteach.

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Oibríonn an cód seo go foirfe. Mar sin féin ní féidir liom an cód a fháil chun an tábla mhaighdeog a nuashonrú go huathoibríoch. Is é an spriocluach domsa ná foirmle (=DATE(D18,..,...)) a athraíonn ag brath ar an méid a roghnaítear ag D18. Chun an tábla mhaighdeog a thabhairt cothrom le dáta caithfidh mé an spriocchill a chliceáil faoi dhó agus dul isteach. An bhfuil bealach timpeall air?

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ST,
Abair go bhfuil do spriocluach i H6 agus go n-athraíonn sé ag brath ar an luach in D18. Chun tábla maighdeog a scagadh bunaithe ar an spriocluach seo. Is féidir leis an gcód VBA seo a leanas cabhrú leat. Bain triail as, le do thoil.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2022/07/22
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next

xBoolean = False
Set xRg = Range("h6")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
    xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
    xBoolean = True
ElseIf Not (xDs Is Nothing) Then
    xBoolean = True
End If


If Not xBoolean Then Exit Sub

Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("Pivot Table 1")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True

End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Crysal,

Chuir mé líne leis an gcód : Dim xRg As Range

Ní athshocraíonn an cód go huathoibríoch na dátaí nuair a athraítear an sprioc. Tá comhad Excel agam a mhacasamhálann a bhfuil mé ag iarraidh a dhéanamh, áfach, ní féidir liom ceangaltáin a chur leis an suíomh Gréasáin seo. Tá cothromóid ag D3 (sprioc = DATE(A15,B15,C15)) atá nasctha le A15, B15 agus C15. Nuair a athraítear luach ar bith ar A15, B15 agus C15 athshocróidh an tábla maighdeog go scagaire ar bith. An bhféadfá cabhrú liom faoi seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ST,
Ní thuigim go maith cad atá i gceist agat. I do chás, úsáidtear luach na spriocchill D3 chun an tábla mhaighdeog a scagadh. Déanann an fhoirmle sa spriocchill D3 tagairt do luachanna cealla A15, B15 agus C15, a athróidh de réir na luachanna sna cealla tagartha. Nuair a athraítear aon luach ar A15, B15 agus C15, déanfar an tábla pivot a scagadh go huathoibríoch má chomhlíonann an luach sa spriocchill coinníollacha scagaire an tábla pivot. Mura gcomhlíonann an luach sa spriocchill critéir scagtha an tábla mhaighdeog, déanfar an tábla pivot a athshocrú go huathoibríoch gan aon scagadh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl mé cinnte an bhfuil bealach ann chun comhad excel a roinnt leat. Má athraíonn mo spriocluach, ar dáta é, de réir athruithe i gcealla eile. Caithfidh mé cliceáil faoi dhó ar an spriocchill agus bualadh isteach (mar a dhéanfá tar éis foirmle a chur isteach i gcill) chun an tábla pivot a nuashonrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Sagar T,
Nuashonraíodh an cód. Bain triail as, le do thoil. Go raibh maith agat as do chuid aiseolais.
Ná déan dearmad ainmneacha na bileoige oibre, an tábla mhaighdeog agus an scagaire sa chód a athrú. Nó is féidir leat an leabhar oibre uaslódáilte seo a leanas a íoslódáil le haghaidh tástála.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220805
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next

xBoolean = False
Set xRg = Range("D3")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
    xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
    xBoolean = True
ElseIf Not (xDs Is Nothing) Then
    xBoolean = True
End If


If Not xBoolean Then Exit Sub
xStr = Format(xRg.Text, "m/d/yyyy")
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet2").PivotTables("PivotTable1")
Set xPFile = xPTable.PivotFields("Date")
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True

End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
aimsigh iad seo agus athraigh iad in Array(), Intersect(), Worksheets(), PivotFields()

Tábla Pivot1
Tábla Pivot2
Tábla Pivot3
Tábla Pivot4
H1
Ainm na mBileog
Ainm Réimse




Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xPTabled As PivotTable
    Dim xPFiled As PivotField
    Dim xStr As String
    On Error Resume Next
    '리스트 만들기
    Dim listArray() As Variant
    listArray = Array("PivotTable1", "PivotTable2", "PivotTable3", "PivotTable4")
    If Intersect(Target, Range("H1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For i = 0 To UBound(listArray)
        Set xPTable = Worksheets("SheetName").PivotTables(listArray(i))
        Set xPFile = xPTable.PivotFields("FieldName")
        'MsgBox (listArray(i))
        xStr = Target.Text
        xPFile.ClearAllFilters
        xPFile.CurrentPage = xStr
    Next
        Application.ScreenUpdating = True
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir leat a dhéanamh suas an tábla bunscoile 2 scannán agus dhá cheann de na focail? а не 2 cáca sa primerе?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit aleksey,

Seiceáil le do thoil an bhfuil an cód VBA sa trácht seo #38754 Is féidir le cabhrú leat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cén chaoi a bhfuil tú ag iarraidh a fháil ar an liosta H6 le haghaidh an liosta drugaí? cén chaoi a bhfuil tú? podscailt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit aleksey,

Ní gá duit an cód a mhodhnú, ach cuir an cód VBA le bileog oibre na cille ar mhaith leat tagairt a dhéanamh dó.
Mar shampla, más mian leat tábla maighdeog darb ainm "Tábla Pivot1"i Sheet2 bunaithe ar luach na cille H6 in Sheet3, le do thoil cliceáil ar dheis ar an Sheet3 cluaisín bileog oibre, cliceáil Féach an cód ón roghchlár cliceáil ar dheis, agus ansin cuir an cód leis an Bileog 3 (Cód) fhuinneog.
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL