PESAN :
Untuk teman2 yang akan menggunakan file yang saya lampirkan dalam email di
bawah ini, ada dua hal yang harus diperhatikan, yaitu :
- Referensi dalam PivotTable yang mengacu kepada Range Data (dalam sample hanya
660 baris) harus diupdate.
Ini bisa dilakukan dengan cara :
Mengupdate nama Range Data dalam Sheet DATA pada file Jurnal(1) (mis. menjadi
50.000 baris), kemudian mengganti Data Source dari PivotTable pada Sheet
Neraca Saldo (dariS$A$1:$A$660 menjadi DATA)
- Merefresh PivotTabel pada Sheet Neraca Saldo maupun Buku Besar.
Ini bisa dilakukan secara otomatis dengan cara membuat event pada
Workbook_Open, sbb :Private Sub Workbook_Open()
ActiveWorkbook.Sheets("Neraca
Saldo").PivotTables("PivotTable1").PivotCache.Refresh
ActiveWorkbook.Sheets("Buku
Besar").PivotTables("PivotTable1").PivotCache.Refresh
End Sub
Semoga bermanfaat.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From:hendrik karnadi <hendrikkarn...@yahoo.com>
To:belajar-excel@yahoogroups.com
Sent:Wednesday, April 13, 2011 2:04 PM
Subject:Laporan Keuangan
Sebagai tanda terima kasih kepada Mr. Kid yang telah membantu menyusun VBA
untuk PivotTable dan sekaligus membantu rekan2 akuntansi yang ingin
membuat Laporan Keuangan secara cepat dan akurat, terlampir saya sampaikan
program Laporan Keuangan bulanan/tahunan yang dapat diunduh secara gratis
Langkah untuk menjalankannya :
Extract folder ke D:
Folder akan berisi dua files :
Jurnal(1)
Report Mth_Ytd (R)
File Jurnal
Jika Account tidak ada dalam COA maka akan ada message
Jika Debit dan Kredit tidak seimbang maka akan ada message
Jika message tidak dihiraukan maka message akan muncul lagi pada saat Sheet
Data diaktifkan lagi (untuk mentes coba klik Sheet COA kemudian klik Sheet Data)
Untuk tanggal diketik manual karena ada perbedaan calendar control antara Excel
2007 dan 2010
File Report Mth_Ytd (R)
Berisi Buku Besar, Neraca Saldo dan Laporan Keuangan serta Analisa
Buku Besar dapat dibuat bulanan atau tahunan dengan mengetik angka dibawah
Mulai Bulan dan Sampai Bulan
Preview dapat dilakukan dengan memilih beberapa No Rek (awal dan akhir)
Jika Buku Besar ingin dicetak maka ActiveSheet.PrintPreview diganti menjadi
ActiveSheet.PrintOut (ln 79 dalam program)
Untuk Laporan Keuangan Tahunan, kolom yang tidak dibutuhkan pada Sheet Laporan
Laba Rugi dan Laporan Perubahan Ekuitas dapat ditutup dengan Data Group (klik
tanda -)
Silakan dicoba dan diharapkan masukan dari Be ExcelER agar program dapat
disempurnakan.
Maaf : lampirannya melebih kapasitas yang diperkenankan karena sudah ga bisa
dikompres lagi
Salam,
Hendrik Karnadi
