Merancang lihat data kas BPNPM UPK

Berdasarkan artikel sebelumnya tentang Aplikasi UPK ada contoh aplikasi yang menyatakan lihat data.

Menu lihat data tersebut bertujuan untuk menampilkan data transaksi yang terjadi pada bulan ini dengan menempelkan jumlah transaksi pada bulan dan tahun sebelumnya

contoh data dapat dilihat dari gambar berikut :

data kas bpnpm

langkahnya adalah memfilter data transaksi pada bulan ini :

Sheet2.Activate ‘merupakan sheet tempat data transaksi kas bpnpm’

Range("a1").CurrentRegion.Select

  ActiveSheet.Range("$A$1:$f$8").AutoFilter FIELD:=2, Criteria1:= _

        Sheet13.Range("j2"), Operator:=xlAnd, Criteria2:=Sheet13.Range("k2")’merupakan data pokok yang menunjukan transaksi dari awal bulan hingga akhir bulan pada bulan ini’

Sheet2.Range("A1").CurrentRegion.Select

Selection.SpecialCells(xlCellTypeVisible).Copy’merupakan perintah untuk mengcopy data yang terfilter pada data transaksi bulan ini’

Sheet14.Activate’merupakan sheet bantuan (Temporary area) untuk menempelkan data sementara tampilan kas yang diinginkan sesuai dengan program, sheet ini bisa dipakai untuk beberapa tampilan lainnya seperti neraca,buku kas buku bank dan lainnya.

Cells(3, 20).PasteSpecial Paste:=xlPasteValues

Itu merupakan Ilustrasi singkat dalam merancang lihat data di aplikasi UPK untuk contoh lengkapnya dari kode akan saya tuliskan di bawah ini :

Sub kasbpnpm()'merupakan nama macro untuk menampilkan kas bpnpm'

Sheet14.Activate

Sheet14.Cells.Clear

Cells(1, 1).Value = "UNIT PENGELOLA KEGIATAN"

Cells(2, 1).Value = "BUKU KAS BPNPM"

Range("a3").FormulaR1C1 = "=""PERIODE SD""&TEXT(DATAPOKOK!R1C9,"" DD MMMM YYYY"")"

Range("AA1").Value = "Tarik dari Rek"

Range("AB1").Value = "Sarana Prasarana"

Range("AC1").Value = "Pendidikan"

Range("AD1").Value = "Kesehatan"

Range("AE1").Value = "Pinjaman UEP"

Range("AF1").Value = "Pinjaman SPP"

Range("AG1").Value = "Jenis Kegiatan Lain"

Range("AH1").Value = "OP TPK"

Range("Ai1").Value = "OP UPK"

Range("aj1").Value = "Setor Ke Rek"

Range("Ak1").Value = "Saldo"

Range("a8").Value = "NO"

Range("b8").Value = "TANGGAL"

Range("C8").Value = "URAIAN"

Range("D8").Value = "NO BUKTI"

Range("A5").Value = "KECAMATAN"

Range("A6").Value = "KABUPATEN"

Range("A7").Value = "PROVINSI"

Range("aa1").CurrentRegion.Copy

Range("E9").PasteSpecial Paste:=xlPasteAll

Sheet2.Activate

Range("a1").CurrentRegion.Select

  ActiveSheet.Range("$A$1:$f$8").AutoFilter FIELD:=2, Criteria1:= _

        Sheet13.Range("j2"), Operator:=xlAnd, Criteria2:=Sheet13.Range("k2")

Sheet2.Range("A1").CurrentRegion.Select

Selection.SpecialCells(xlCellTypeVisible).Copy

Sheet14.Activate

Cells(3, 20).PasteSpecial Paste:=xlPasteValues

Range("AA4").FormulaR1C1 = "=if(r1c=rc24,rc25,0)"

Dim isi As Long

isi = WorksheetFunction.CountA(Range("T:T")) + 2

Range("AA4").Copy

Range(Cells(5, 27), Cells(isi, 27)).PasteSpecial Paste:=xlPasteAll

Range(Cells(4, 27), Cells(isi, 27)).Copy

Range(Cells(4, 28), Cells(isi, 36)).PasteSpecial Paste:=xlPasteAll

Cells(10, 5).FormulaR1C1 = "=sumifs(kasBPNPM!c6:c6,kasBPNPM!c2:c2,datapokok!r4c9,kasBPNPM!c5:c5,temporaryarea!r9c)"

Cells(11, 5).FormulaR1C1 = "=sumifs(kaSBPNPM!c6:c6,kasBPNPM!c2:c2,datapokok!r3c10,kasBPNPM!c2:c2,datapokok!r3c11,kasBPNPM!c5:c5,temporaryarea!r9c)"

Cells(10, 15).FormulaR1C1 = "=rc5-sum(rc6:rc[-1])"

Range(Cells(11, 15), Cells(isi + 10, 15)).FormulaR1C1 = "=r[-1]c+rc5-sum(rc6:rc[-1])"

Range("e10:e11").Copy

Range("f10:n11").PasteSpecial Paste:=xlPasteAll

Range(Cells(4, 20), Cells(isi, 22)).Copy

Range("a12").PasteSpecial Paste:=xlPasteAll

Range("AA4").CurrentRegion.Copy

Range("e12").PasteSpecial Paste:=xlPasteValues

Range(Cells(isi + 9, 5), Cells(isi + 9, 14)).FormulaR1C1 = "=sum(r12c:r[-1]c)"

Range(Cells(isi + 10, 5), Cells(isi + 10, 14)).FormulaR1C1 = "=r11c+r[-1]c"

Cells(isi + 9, 1).Value = "Total Transaksi Bulan ini"

Cells(isi + 10, 1).Value = "Total Transaksi S/D Bulan ini"

Range("A10").Value = "Total Transaksi S/D Tahun Lalu"

Range("A11").Value = "Total Transaksi S/D Bulan Lalu"

Range("e8").Value = "Pemasukan"

Range("F8").Value = "Pengeluaran"

Range("a1:o1").Merge

Range("a1:o1").HorizontalAlignment = xlCenter

Range("a1:o1").Font.Bold = True

Range("a1:o1").Copy

Range("a2:o3").PasteSpecial Paste:=xlPasteFormats

Range("a8:a9").Merge

Range("a8:a9").HorizontalAlignment = xlCenter

Range("a8:a9").VerticalAlignment = xlCenter

Range("a8:a9").Font.Bold = True

Range("A8:A9").Copy

Range("b8:d9").PasteSpecial Paste:=xlPasteFormats

Range("f8:o8").Merge

Range("e8:o9").HorizontalAlignment = xlCenter

Range("e8:o9").Font.Bold = True

Range(Cells(8, 1), Cells(isi + 10, 15)).Borders.LineStyle = xlContinuous

Range(Cells(10, 5), Cells(isi + 10, 15)).NumberFormat = "#,##0"

Range(Cells(12, 2), Cells(isi + 8, 2)).NumberFormat = "dd/mm/yyyy"

Range(Cells(12, 1), Cells(isi + 8, 1)).Resize(, 1).Formula = "=row(1:1)"

Range(Cells(1, 1), Cells(isi + 12, 15)).Name = "daerah"

With ActiveSheet.PageSetup

.PrintArea = ""

.PrintArea = "daerah"

.Orientation = xlLandscape

.Zoom = 70

End With

End Sub

Sehingga Hasilnya ketika macro tersebut dijalankan adalah sebagai berikut :

hasil macro kasbpnpm

Hasil tersebut merukan hasil pada data pokok tanggal pelaporannya tanggal 30 Bulan Agustus 2015.

berdasarkan data awal, maka untuk menjalankan menu lihat lainnya bisa dilanjutkan dengan mengganti sheet asal dan menempelkan elemen-elemen pemasukan dan pengeluarannya berdasarkan kas masing-masing.

Itulah panduan singkat untuk menampilkan kas BPNPM pada excel dengan macro. hal tersebut akan sangat membantu untuk merancang aplikasi lainnya atau menempelkan dokumen pada dokumen laporan itu.