Translate

Kamis, 07 Juni 2012

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.
Hal-hal yang perlu disiapkan :

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:

Poskan Komentar