Membuat Fungsi Terbilang Pada Kwitansi Vakasi
Dalam pembayaran vakasi
penyelenggaraan di sekolah sering kita menerima bukti pembayaran atau perincian
pembayaran berupa kwitansi, akan tetapi dalam perincian tersebut biasanya hanya
berisi nilai nominal dalam bentuk Rupiah saja, untuk bentuk Terbilang-nya tidak
ada. Walaupun tampilan terbilang tidak begitu berpengaruh, tapi alangkah bagus
dan menariknya jika kita tambahkan tulisan Terbilang dari nilai Rupiah yang
ada. Berikut ini saya akan coba berbagi cara memberi tulisan Terbilang dari
nilai Rupiah yang ada.
1.
Tabel Data berisi perincian honor (dalam hal ini saya
beri nama vakasi), lihat gambar berikut:
2.
Form Nota berisi perincian dengan layout 1 halaman A4
berisi 4 nota, lihat gambar berikut:
3.
Kemudian untuk pengisian No, Nama, Perincian Penerimaan
menggunakan fungsi pembacaan tabel dengan nama tabel vakasi, untuk kolom
disesuaikan.
4.
Selanjutnya buka Visual Basic editor di Menu Developer,
lihat gambar berikut:
Klik icon Visual Basic, muncul tampilan windows Visual
Basic Editor seperti gambar di bawah ini:
5.
Kemudian insert Module dengan cara klik kanan pada
VBAProject(…) pilih Inseert – Module , lihat gambar berikut:
6.
Kemudian muncul jendela module di sebelah kanan, seperti
gambar berikut:
Copykan listing program berikut ini:
Public
Function TERBILANG(BILANG)
Dim
ANGKA(20), KATA, bil, satu, dua, tiga, gabung, belas As String
Dim sa, du,
ti, HITUNG, jumhuruf As Byte
ANGKA(0) =
""
ANGKA(1) =
"Satu "
ANGKA(2) =
"Dua "
ANGKA(3) =
"Tiga "
ANGKA(4) =
"Empat "
ANGKA(5) =
"Lima "
ANGKA(6) =
"Enam "
ANGKA(7) =
"Tujuh "
ANGKA(8) =
"Delapan "
ANGKA(9) =
"Sembilan "
ANGKA(10) =
"Sepuluh "
ANGKA(11) =
"Sebelas "
ANGKA(12) =
"Duabelas "
ANGKA(13) =
"Tigabelas "
ANGKA(14) =
"Empatbelas "
ANGKA(15) =
"Limabelas "
ANGKA(16) =
"Enambelas "
ANGKA(17) =
"Tujuhbelas "
ANGKA(18) =
"Delapanbelas "
ANGKA(19) =
"Sembilanbelas "
bil =
Str(BILANG)
jumhuruf =
Len(bil)
bil =
String(12 - jumhuruf, " ") + bil
KATA =
""
gabung =
""
sa = 1
du = 2
ti = 3
HITUNG = 1
Do While
HITUNG < 5
satu = Mid(bil, sa, 1)
dua = Mid(bil, du, 1)
tiga = Mid(bil, ti, 1)
gabung = satu + dua + tiga
If Val(satu) = 1 Then
KATA = KATA + "Seratus "
End If
If Val(satu) > 1 Then
KATA = KATA + ANGKA(Val(satu)) +
"Ratus "
End If
If Val(dua) = 1 Then
belas = dua + tiga
KATA = KATA + ANGKA(Val(belas))
Else
If Val(dua) > 1 Then
KATA = KATA + ANGKA(Val(dua)) +
"puluh " + ANGKA(Val(tiga))
Else
If Val(dua) = 0 And
Val(tiga) > 0 Then
If (HITUNG = 3 And
gabung = "001") Or (HITUNG = 3 And gabung = " 1") Then
KATA = KATA +
"Seribu "
Else
KATA = KATA +
ANGKA(Val(tiga))
End If
End If
End If
End If
If HITUNG = 1 And Val(gabung) >
0 Then
KATA = KATA + "Milyard "
End If
If HITUNG = 2 And Val(gabung)
> 0 Then
KATA = KATA + "Juta "
End If
If HITUNG = 3 And
Val(gabung) > 0 Then
If gabung =
"001" Or gabung = "
1" Then
KATA = KATA + ""
Else
KATA = KATA +
"Ribu "
End If
End If
HITUNG = HITUNG + 1
sa = sa + 3
du = du + 3
ti = ti + 3
Loop
KATA = KATA
TERBILANG = KATA
End Function
Catatan:
·
Yang dicopy dari Public Function
TERBILANG(BILANG)….sampai dengan … End Function, (Mohon untuk tidak merubah)
·
TERBILANG ini nanti yang akan di gunakan di Form
Ecxel-nya
7.
Setelah selesai silahkan tutup Window Visual
Editor-nya, kemudian buka sheet yang berisi Form Nota Vakasi.
8.
Pada cell yang akan berisi terbilang tulis “
=TERBILANG(cell yang akan di munculkan terbilangnya”
Contoh :
=TERBILANG(G19)
G19 adalah cell yang berisi nominal rupiah yang akan
dimunculkan tulisan terbilangnya.
Selamat mencoba semoga bermanfaat
dan berhasil.
Selamat Belajar dan Berbagi
Copyright @ Mr. 2duh
Tidak ada komentar