Skip to main content

Conas Tábla Pivot a athnuachan go huathoibríoch in Excel?

Údar: Kelly Athraithe Deiridh: 2020-09-10

De ghnáth, nuair a dhéanaimid sonraí foinse tábla pivot a nuashonrú, ní dhéanfar an tábla pivot a nuashonrú go dtí go gcliceálann muid Analyze > Athnuaigh de láimh. Beidh sé seo leadránach go leor má fhanann an tábla pivot i mbileog oibre eile agus b’fhéidir go ndéanfaidh tú dearmad é a athnuachan. Anseo, tabharfaidh an t-alt seo VBA isteach chun tábla pivot in Excel a athnuachan go huathoibríoch.

Athnuachan go huathoibríoch Tábla Pivot le VBA


Athnuachan go huathoibríoch Tábla Pivot le VBA

Lean na céimeanna thíos chun an VBA a chur i bhfeidhm chun an tábla pivot sonraithe in Excel a athnuachan go huathoibríoch.

1. Sa bharra cluaisín Bileog, cliceáil ar dheis ar an táb bileog ina bhfuil na sonraí foinse, agus roghnaigh Féach an cód sa roghchlár comhthéacs. Féach an pictiúr:

2. I bhfuinneog tosaigh Microsoft Visual Basic for Applications, greamaigh an cód le do thoil.

VBA: Athnuachan uathoibríoch ar an tábla pivot sonraithe

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

Nótaí:
(1) Sa chód Bileoga Oibre ("ainm na bileoige") .PivotTables ("Ainm PivotTable") .PivotCache.Refresh, cuir ceann eile le do thoil ainm na bileoige le hainm an bhileog ina bhfuil an tábla pivot sonraithe, agus cuir an Ainm PivotTable le hainm an tábla pivot sonraithe.
(2) Roghnaigh aon chill sa tábla pivot sonraithe, gheobhaidh tú a hainm ar an Analyze cluaisín (nó Roghanna cluaisín). Féach an pictiúr:

3. Sábháil an cód.

As seo amach, nuair a athraíonn tú na sonraí sna sonraí foinse, déanfar an tábla pivot sonraithe a athnuachan go huathoibríoch.

Déan iliomad bileoga oibre / leabhair oibre / comhaid CSV a chomhcheangal go héasca i mbileog oibre / leabhar oibre amháin

B’fhéidir go mbeadh sé slachtmhar mórán bileoga ó leabhair oibre éagsúla a chur le chéile i mbileog amháin. Ach le Kutools le haghaidh Excel's Comhcheangail (bileoga oibre agus leabhair oibre) fóntais, is féidir leat é a dhéanamh gan ach cúpla cad a tharlaíonn!


ad le chéile bileoga leabhair 1

Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!
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