Ja nepieciešams atsvaidzināt vai atjaunināt datus esošajā PivotTable pēc tās izveides ir jāizmanto Mainīt datu avotu Tomēr manuāla šarnīrgriezes tabulas atjaunināšana ir neērta un laikietilpīga. Tāpēc jums būs jāizdomā, kā izveidot automatizētu šarnīrgriezes tabulu, kas automātiski atjaunina datus. Tāpēc šajā pamācībā mēs parādīsim, kā automātiski atjaunināt šarnīrgriezes tabulu, kad mainās avota dati.

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

7 vienkārši soļi, lai automātiski atjauninātu izvelkamo tabulu, kad mainās avota dati

Tālāk attēlā esam pievienojuši datu kopu ar informāciju par pārdošanas informāciju dažādos reģionos. Var pieņemt, ka mūsu datu kopa ir diezgan liela. Tāpēc dinamiskam nolūkam mums ir nepieciešams automatizēts process katru reizi, kad atjauninām datus. Lai to izdarītu, mēs palaidīsim a VBA kods un piemēro to tālāk norādītajam datu kopumam. Lai pabeigtu uzdevumu, izpildiet tālāk norādītās darbības.

1. solis: Izveidojiet šarnīra tabulu ar avota datu diapazonu

• Vispirms noklikšķiniet uz Ievietot cilni, lai ievietotu šarnīra tabula .
• Pēc tam noklikšķiniet uz PivotTable komandu no PivotTables grupa.
• Izvēlieties No tabulas/ diapazona opciju no saraksta.

• Atlasiet tabulas diapazonu ar galveni.
• Izvēlieties Jauna darblapa iespēju, lai novietotu šarnīra tabula jaunā darblapā.
• Pēc tam noklikšķiniet uz LABI .

• Jaunā darblapā ( Lapa4 ), tiks izveidota šarnīra tabula.
• Kā redzams attēlā zemāk, varat izvēlēties laukus ( Reģions , Filiāle , Cena , Daudzums u.c.), kas jāiekļauj šarnīra tabula .
• Izvēlieties PivotTable komandu no PivotTable Analizēt Varat atrast savas šarnīrgriezes tabulas nosaukumu ( PivotTable2 ) un rediģējiet to pēc vajadzības.

2. solis: Atveriet Visual Basic redaktoru, lai piemērotu VBA kodu

• Spiediet Alt + F11 lai atvērtu Visual Basic redaktors .
• No VBA Excel objekti , divreiz noklikšķiniet, lai atlasītu darblapas nosaukumu ( 2 lapa ), kur atrodas jūsu datu kopa.

3. solis: Izveidojiet darblapas notikumu ar datu kopu, kas satur jūsu lapu

• Lai izveidotu darblapas notikums vietnē 2 lapa , izvēlieties Darba lapa opciju no saraksta.

Piezīmes: A darblapas notikums nozīmē, ka visas izmaiņas, ko veicat avota datos, nekavējoties tiks atspoguļotas jūsu programmā. Tāpēc programma darbosies automātiski, kad veiksiet jebkādas izmaiņas avota datu kopā.

4. solis: Ievietojiet jaunu izmaiņu notikumu darblapā

• Izvēlieties Mainīt nevis IzvēleChange lai izveidotu jaunu darblapas notikumu.

• Dzēst iepriekšējo, lai saglabātu tikai izmaiņu notikumu.

5. posms: deklarējiet visus mainīgos ar tiešo paziņojumu par opciju

• Lai deklarētu visus mainīgos un atrastu nedeklarētos mainīgos, ierakstiet Iespēja Explicit programmas lapas augšpusē.

6. solis: Ievietojiet VBA kodu, lai automātiski atjauninātu šarnīra tabulu

• Saņemiet pabeigto VBA kods un ielīmējiet to.

 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Sheet4 ir PivotTable atrašanās vietas lapas nosaukums 'PivotTable2 ir PivotTable nosaukums Sheet4.PivotTables("PivotTable2").PivotCache.Refresh End Sub 

7. solis: Palaist VBA kodu un iegūt rezultātu izmaiņas

• Nospiediet F5, lai palaistu VBA kods .
• Veiciet izmaiņas datu kopā, lai pārbaudītu, vai programma joprojām darbojas. IRE reģions. cena vērtība Belfāsta filiāle ir mainīta uz £113 .

• Atgriezieties pie savas šarnīra tabulas un pārliecinieties, ka mainītais cena vērtība ( £113 ) tiek atjaunināts.

Secinājums

Es ceru, ka šis raksts ir sniedzis jums pamācību par to, kā automātiski atjaunināt šarnīra tabulu, kad mainās avota dati. Excel . Visas šīs procedūras ir jāapgūst un jāpielieto jūsu datu kopai. Apskatiet praktisko darbgrāmatu un pārbaudiet šīs prasmes. Jūsu vērtīgā atbalsta dēļ mēs esam motivēti turpināt veidot šādas pamācības.

Lūdzu, sazinieties ar mums, ja jums ir kādi jautājumi. Tāpat varat atstāt komentārus zemāk esošajā sadaļā.

Mēs, mēs. Exceldemy komanda vienmēr atsaucīgi atbild uz jūsu jautājumiem.

Palieciet kopā ar mums un turpiniet mācīties.