Pembayaran SPP atau Sumbangan Pembinaan Pendidikan adalah salah satu biaya rutin yang harus dikeluarkan oleh orangtua atau wali murid setiap semester atau tahun ajaran. Biaya ini digunakan oleh sekolah untuk membiayai kegiatan belajar mengajar dan pemeliharaan fasilitas sekolah. Karena biaya ini bersifat wajib dan rutin, maka perlu adanya sistem pembayaran yang teratur dan efektif. Salah satu cara untuk mempermudah pembayaran SPP adalah dengan menggunakan aplikasi Excel yang dapat digunakan untuk mengarsipkan data pembayaran, mencetak kwitansi pembayaran, serta melakukan perhitungan secara otomatis. Dalam artikel ini, kita akan membahas cara membuat aplikasi pembayaran SPP menggunakan Excel.
Langkah pertama yang harus dilakukan adalah membuat struktur data untuk aplikasi pembayaran SPP. Struktur data ini akan digunakan sebagai tempat untuk menyimpan data pembayaran SPP, seperti nomor siswa, jumlah yang harus dibayar, dan tanggal pembayaran. Berikut ini adalah contoh struktur data yang bisa digunakan:
“`
| Nomor Siswa | Nama Siswa | Kelas | Tagihan SPP | Jumlah Bayar | Tanggal Bayar |
“`
Setelah struktur data dibuat, langkah selanjutnya adalah membuat formulir pembayaran SPP menggunakan VBA. VBA atau Visual Basic for Applications adalah bahasa pemrograman yang digunakan untuk mengembangkan aplikasi Office, termasuk Excel. Formulir pembayaran SPP ini akan berisi kolom untuk memasukkan nomor siswa, jumlah yang harus dibayar, dan tanggal pembayaran. Selain itu, formulir juga akan menyediakan tombol untuk menambahkan data pembayaran ke dalam struktur data dan mencetak kwitansi pembayaran.
Berikut ini adalah contoh kode VBA untuk membuat formulir pembayaran SPP:
“`
Private Sub btnTambah_Click()
Dim nomorSiswa As String
Dim namaSiswa As String
Dim kelas As String
Dim tagihanSPP As Double
Dim jumlahBayar As Double
Dim tanggalBayar As Date
nomorSiswa = txtNomorSiswa.Value
namaSiswa = txtNamaSiswa.Value
kelas = cmbKelas.Value
tagihanSPP = txtTagihanSPP.Value
jumlahBayar = txtJumlahBayar.Value
tanggalBayar = txtTanggalBayar.Value
Dim baris As Integer
baris = Sheets(“Data SPP”).Range(“A” & Rows.Count).End(xlUp).Row + 1
Sheets(“Data SPP”).Range(“A” & baris).Value = nomorSiswa
Sheets(“Data SPP”).Range(“B” & baris).Value = namaSiswa
Sheets(“Data SPP”).Range(“C” & baris).Value = kelas
Sheets(“Data SPP”).Range(“D” & baris).Value = tagihanSPP
Sheets(“Data SPP”).Range(“E” & baris).Value = jumlahBayar
Sheets(“Data SPP”).Range(“F” & baris).Value = tanggalBayar
MsgBox “Data pembayaran SPP berhasil ditambahkan.”
End Sub
Private Sub btnCetak_Click()
Dim nomorSiswa As String
Dim namaSiswa As String
Dim kelas As String
Dim tagihanSPP As Double
Dim jumlahBayar As Double
Dim tanggalBayar As Date
nomorSiswa = txtNomorSiswa.Value
namaSiswa = txtNamaSiswa.Value
kelas = cmbKelas.Value
tagihanSPP = txtTagihanSPP.Value
jumlahBayar = txtJumlahBayar.Value
tanggalBayar = txtTanggalBayar.Value
Dim cetakKwitansi As Worksheet
Set cetakKwitansi = ThisWorkbook.Worksheets(“Kwitansi Pembayaran SPP”)
cetakKwitansi.Range(“B3”).Value = nomorSiswa
cetakKwitansi.Range(“B4”).Value = namaSiswa
cetakKwitansi.Range(“B5”).Value = kelas
cetakKwitansi.Range(“B6”).Value = tagihanSPP
cetakKwitansi.Range(“B7”).Value = jumlahBayar
cetakKwitansi.Range(“B8”).Value = tanggalBayar
cetakKwitansi.PrintOut
MsgBox “Kwitansi pembayaran SPP berhasil dicetak.”
End Sub
“`
Setelah formulir pembayaran SPP dibuat, langkah selanjutnya adalah membuat laporan pembayaran SPP menggunakan pivot table. Pivot table adalah fitur Excel yang digunakan untuk merangkum data berdasarkan kriteria tertentu. Dalam kasus ini, pivot table akan digunakan untuk merangkum data pembayaran SPP berdasarkan kelas dan bulan pembayaran. Dengan pivot table, kita dapat dengan mudah melihat jumlah pembayaran SPP yang sudah dibayarkan selama periode tertentu.
Berikut ini adalah contoh kode VBA untuk membuat pivot table laporan pembayaran SPP:
“`
Private Sub btnLaporan_Click()
Dim dataPembayaran As Worksheet
Set dataPembayaran = ThisWorkbook.Worksheets(“Data SPP”)
Dim laporanPembayaran As Workbook
Set laporanPembayaran = Workbooks.Add
dataPembayaran.Range(“A1:F1”).Copy
laporanPembayaran.Worksheets(1).Range(“A1”).PasteSpecial Paste:=xlPasteValues
dataPembayaran.Range(“A2:F” & dataPembayaran.Range(“A” & Rows.Count).End(xlUp).Row).Copy
laporanPembayaran.Worksheets(1).Range(“A2”).PasteSpecial Paste:=xlPasteValues
laporanPembayaran.Worksheets(1).ListObjects.Add(xlSrcRange, laporanPembayaran.Worksheets(1).Range(“A1:F” & laporanPembayaran.Worksheets(1).Range(“A” & Rows.Count).End(xlUp).Row), , xlYes).Name = “Data_Pembayaran”
laporanPembayaran.Worksheets(1).PivotTableWizard TableDestination:=laporanPembayaran.Worksheets(2).Range(“A3″), TableName:=”Laporan_Pembayaran”, RowGrand:=True, ColumnGrand:=True, SaveData:=True, HasAutoFormat:=True, AutoPage:=xlAuto, Reserved:=True
laporanPembayaran.Worksheets(2).PivotTables(“Laporan_Pembayaran”).AddFields “Kelas”, “Tanggal Bayar”
laporanPembayaran.Worksheets(2).Activate
MsgBox “Laporan pembayaran SPP berhasil dibuat.”
End Sub
“`
Dengan menggunakan kode VBA di atas, kita dapat membuat pivot table laporan pembayaran SPP dengan menekan tombol “btnLaporan”.
Selain itu, kita juga dapat membuat fitur validasi data menggunakan VBA untuk memastikan bahwa data yang dimasukkan ke dalam formulir pembayaran SPP sudah sesuai dengan format yang diinginkan. Misalnya, kita dapat membuat validasi untuk memastikan bahwa nomor siswa yang dimasukkan sudah benar, jumlah pembayaran tidak melebihi tagihan, dan tanggal pembayaran tidak melewati batas waktu yang ditentukan.
FAQ:
1. Apakah aplikasi pembayaran SPP ini dapat digunakan untuk semua jenis sekolah?
Jawaban: Ya, aplikasi pembayaran SPP ini dapat digunakan untuk semua jenis sekolah, baik untuk sekolah negeri maupun swasta.
2. Apakah aplikasi pembayaran SPP ini aman untuk digunakan?
Jawaban: Ya, aplikasi pembayaran SPP ini aman untuk digunakan karena data yang dimasukkan hanya tersimpan di dalam file Excel yang hanya bisa diakses oleh pengguna yang memiliki akses ke file tersebut. Namun, pastikan komputer yang digunakan sudah dilengkapi dengan program antivirus dan firewall yang memadai untuk mencegah serangan malware atau virus.
Berikut ini adalah video tutorial lengkap cara membuat aplikasi pembayaran SPP menggunakan Excel:
[Embed video Youtube disini]