Membuat Dynamic Refresh Pivot Table

Membuat Dynamic Refresh Pivot Table

Pivot table adalah fitur yang disediakan excel untuk membantu para usernya dalam pembuatan report. Fungsi ini membuat segala terasa seperti instan karna otomatis menyusun table laporan dan membuat report seperti yang kita inginkan dengan mudah. Pivot table juga dilengkapi dengan grafik yang membuat visualisasi reporting menjadi lebih mudah

Namun terdapat kekurangan dalam pivot table karna hasil report pada pivot table baru akan berubah ketika kita melakukan 2 hal, merefresh pivot table secara manual atau mengeluarkan dokumen lalu masuk kembali.

Rasanya untuk mengeluarkan dokumen terdengar tidak efisien dan melakukan refresh manual terasa kurang otomatis. Tentu saja ini karna kita ingin apa yang kita kerjakan langsung terlihat melalui pivot table dan grafiknya

Bagaimana cara membuat pivot table melakukan refresh otomatis setelah melakukan pengisian di cell tertentu ? berikut saya jelaskan :

Mengaktifkan Fitur Macro / VBA pada Excel

 Cara yang paling memungkinkan adalah menggunakan script atau lebih dikenal dengan VBA. Ini merupakan fitur yang berada pada Excel didalam Tab Development. Berikut langkah-langkah untuk mengaktifkan fitur Macro atau VBA pada Excel :

1.       Buka Excel Pilih File lalu Option

 

  

 

 

2.       Pilih Customize Ribbon dan Check Developer

 

Membuat Dynamic Refresh Pivot Table

 

Dynamic Refresh Pivot table pada intinya adalah membuat pivot table melakukan refresh otomatis tanpa kita melakukan refresh secara manual. Caranya adalah membuat cell dengan range yang kita inginkan sebagai event dimana ketika terjadi perubahan maka pivot table akan melakukan refresh.

Berikut langkah-langkah membuat Dynamic Refresh Pivot Table :

1.       Pada Bar Developer pilih Visual Basic

 2.       Terbuka Jendela Visual Basic, Pilih  Sheet yang kita inginkan disini Sheet1. Pada bagian General Pilih Worksheet, dan Pada Bagian Declaration Pilh Change

 

3.       Setelah itu masukkan Code berikut untuk membuat salah satu Column dijadikan sebagai Event untuk melakukan refresh

Code :

Private Sub Worksheet_Change(ByVal Target As Range)

       If Not Intersect(Target, Range("E2:E1000")) Is Nothing Then

              ThisWorkbook.RefreshAll

       End If

End Sub

Keterangan :

1)      E2:E1000 disanalah ada range yang saya gunakan untuk event. Berikut gambar template yang digunakan

 

2)      Ketika nanti Item ditambahkan setelah mengisi bagian kualitas maka pivot akan melakukan refresh dan mengupdate data yang disediakan

 

4.       Kemudian jangan lupa di save dengan tipe Excel Macro Enabled Workbook agar ketika kita file di keluarkan coding tersebut tidak hilang

Untuk contoh filenya silahkan Unduh disini

File Excel Dynamic Pivot Table