Īstenošana VBA makro ir visefektīvākā, ātrākā un drošākā metode, lai veiktu jebkuru operāciju programmā Excel. Šajā rakstā mēs parādīsim, kā izpildīt jebkuru operāciju programmā Excel. atsvaidzināt šarnīra tabulu programmā Excel, izmantojot VBA.

Lejupielādēt darbgrāmatu

No šejienes varat lejupielādēt bezmaksas praktisko Excel darba burtnīcu.

Pivot tabulas atsvaidzināšana ar VBA.xlsm

5 piemēri, kā atsvaidzināt šarnīrveida tabulu ar VBA programmā Excel

Tālāk ir mūsu šarnīrta tabulas piemērs, kuru mēs izmantosim visā rakstā un parādīsim 5 dažādus piemērus. šarnīra tabulu atsvaidzināšana programmā Excel ar VBA kods.

1. VBA, lai atsvaidzinātu vienu šarnīra tabulu programmā Excel

Ja vēlaties atsvaidzināt tikai vienu šarnīra tabulu Excel darblapā,

• Spiediet Alt + F11 uz tastatūras vai atveriet cilni Izstrādātājs -> Visual Basic lai atvērtu Visual Basic redaktors .

• Iznirstošajā koda logā izvēlnes joslā noklikšķiniet uz Ievietot -> Modulis .

• Nokopējiet un ielīmējiet kodu logā šādu kodu.

 Apakšsadaļa RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub 

Tagad jūsu kods ir gatavs darbam.

Šeit, PivotTable1 ir mūsu šarnīrttabulas nosaukums. Ierakstiet nosaukumu, kāds ir jūsu šarnīrtabulai.

• Preses F5 uz tastatūras vai izvēlnes joslā izvēlieties Run -> Run Sub/UserForm Varat arī vienkārši noklikšķināt uz maza ikona Atskaņot apakšizvēlnes joslā, lai palaistu makro.

Tas ļaus atsvaidzināt šarnīra tabulu esošajā Excel darblapā.

Lasīt vairāk: Pivot tabulas neatjaunošana (5 problēmas & amp; risinājumi)

2. Makro, lai atsvaidzinātu visas aktīvās darblapas šarnīra tabulas

Visu aktīvās darblapas šarnīra tabulu atsvaidzināšana , izpildiet tālāk norādītās darbības.

• Tāpat kā iepriekš, atveriet Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Tagad jūsu kods ir gatavs darbam.

• Palaist un visas aktīvajā darblapā esošās šarnīrgriezes tabulas tiks atsvaidzinātas.

Lasīt vairāk: Kā programmā Excel atsvaidzināt visas šarnīrveida tabulas

3. VBA kods, lai atsvaidzinātu visas šarnīra tabulas vairākās darbgrāmatā

Ja vēlaties atsvaidzināt visas šarnīra tabulas vairākās darbgrāmatās uzreiz ar VBA kods, tad soļi ir šādi:

• Atvērt Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Tagad jūsu kods ir gatavs darbam.

• Palaist kodu, un visas šarnīrgriezes tabulas visās jūsu atvērtajās Excel darbgrāmatās tiks atjauninātas.

Atcerieties saglabāt visas darbgrāmatas atvērts kamēr darbojas šis kods.

Līdzīgi lasījumi

• Kā rediģēt šarnīra tabulu programmā Excel (5 metodes)
• Pivot tabulas diapazona atjaunināšana (5 piemērotas metodes)
• Kā automātiski atjaunināt šarnīra tabulu, kad mainās avota dati

4. Pivot tabulas kešatmiņas atsvaidzināšana ar VBA programmā Excel

Ja darbgrāmatā ir vairākas šarnīrgriežu tabulas, kurās tiek izmantoti vieni un tie paši dati. atsvaidzināt tikai šarnīra tabulas kešatmiņu nevis pastāvīgi atsvaidzināt faktisko šarnīra tabulu. Atsvaidzinot kešatmiņu, automātiski tiek iztīrīta visu to šarnīra tabulu kešatmiņa, kurās izmanto to pašu datu savienojumu kešatmiņā.

Lai to izdarītu, ir šādi soļi,

• Atvērt Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache.Refresh Next PivotCache End Sub 

Tagad jūsu kods ir gatavs darbam.

• Palaist kods un visas šarnīrttabulas kešatmiņas atmiņas tiks izdzēstas.

Lasīt vairāk: Kā automātiski atsvaidzināt Pivot tabulu bez VBA programmā Excel (3 gudras metodes)

5. Automātiska Pivot tabulas atsvaidzināšana, mainot datus ar VBA makrokomplektu

Ko darīt, ja jums ir šarnīra tabula, kurā ir liels datu apjoms, un viss, ko vēlaties, ir atjaunināt dažus datus, vienlaikus saglabājot visu tabulu neskartu. Programmā Excel jūs varat automātiski atjaunināt šarnīra tabulu atjauninot datus ar VBA .

• Atvērt Visual Basic redaktors no Izstrādātājs.
• Redaktora kreisajā pusē atrodas Projekta pētnieks panelī, kurā ir visi darblapas nosaukumi.
• In Projekta pētnieks , divreiz noklikšķiniet uz lapas nosaukuma, kurā ir šarnīrta tabula.

• Parādīsies koda logs, kurā mēs izveidosim notikuma makro. Izvēlieties Darba lapa no Objekts kodu moduļa kreisajā pusē esošajā nolaižamajā lodziņā. Tādējādi tiks pievienots Darblapa_SelectionChange notikums uz moduli, mums tas patiesībā nav nepieciešams, tāpēc vēlāk šo koda daļu dzēsīsim.
• Pēc tam noklikšķiniet uz Procedūra nolaižamo sarakstu un izvēlieties Mainīt . Tas pievieno jaunu notikumu koda moduļa augšdaļā ar nosaukumu Darba lapa_Change . Mēs šeit rakstīsim savu kodu šādi dzēst kods, ko ģenerē Darblapa_SelectionChange

• Tagad nokopējiet šādu kodu un ielīmējiet to laukā Darba lapa_Change

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Tagad jūsu kods ir gatavs darbam.

Šeit, PivotTbl ir darblapas nosaukums mūsu Excel darbgrāmatā un PivotTable1 ir mūsu šarnīrttabulas nosaukums. Jūs ierakstiet nosaukumu, kāds ir jūsu darblapai un šarnīrtabulai.

• Tagad katru reizi, kad mainīsiet datus sākotnējā darblapas datu tabulā, dati šarnīra tabulā tiks automātiski atjaunināti.

Lasīt vairāk: Kā automātiski atsvaidzināt šarnīra tabulu programmā Excel

Secinājums

Šajā rakstā tika parādīts, kā atsvaidzināt šarnīra tabulu programmā Excel ar VBA . es ceru, ka šis raksts jums ir bijis ļoti noderīgs. Ja jums ir kādi jautājumi par šo tēmu, droši jautājiet.