Membuat Terbilang Otomatis Pada Excel 2007

Ada yang pernah diminta membuat kuitansi agar muncul terbilang secara otomatis tanpa perlu mengetik lagi. Nah, pada postingan kali ini saya akan berbagi cara membuat terbilang otomatis. Jadi kalau input kuitansinya cukup input nominalnya aja brow. Terbilangnya nanti muncul otomatis. Ga repok kan.? Cara buatnya pun tidak terlalu sulit. Langsung saja ke TKP.  Untuk membuat terbilang otomatis caranya adalah sebagai berikut: 

1. Langkah pertama Copy coding berikut: 

    Dim Huruf(0 To 9) As String
    Dim ax(0 To 3) As Double

    Function INIT_angka()
        Huruf(0) = ""
        Huruf(1) = "Satu "
        Huruf(2) = "Dua "
        Huruf(3) = "Tiga "
        Huruf(4) = "Empat "
        Huruf(5) = "Lima "
        Huruf(6) = "Enam "
        Huruf(7) = "Tujuh "
        Huruf(8) = "Delapan "
        Huruf(9) = "Sembilan "
       
    End Function

    Function dgratus(angka As Double) As String
        Temp = ""
        INIT_angka
        panjang = Len(Trim(Str(angka)))
        nilai = Right("000", 3 - panjang) + Trim(Str(angka))
        For y = 3 To 1 Step -1
            ax(y) = Mid(nilai, y, 1)
        Next y
        Select Case ax(1)
            Case Is = 1
              Temp = "Seratus "
            Case Is > 1
              Temp = Huruf(Val(ax(1))) + "" + "Ratus "
            Case Else
              Temp = ""
            End Select

        Select Case ax(2)
          Case Is = 0
              Temp = Temp + Huruf(Val(ax(3)))
          Case Is = 1
              Select Case ax(3)
                Case Is = 1
                  Temp = Temp + "Sebelas"
                Case Is = 0
                  Temp = Temp + "Sepuluh"
                Case Else
                  Temp = Temp + Huruf(Val(ax(3))) + " Belas"
              End Select
          Case Is > 1
              Temp = Temp + Huruf(Val(ax(2))) + "Puluh"
              Temp = Temp + " " + Huruf(Val(ax(3)))
          End Select
        dgratus = Temp
    End Function
    Function TERBILANG(angka As Double) As String
        Dim ratusan(0 To 6) As String
        Dim sebut(0 To 4) As String
        sebut(1) = " Ribu "
        sebut(2) = " Juta "
        sebut(3) = " Milyar "
        sebut(4) = " Trilyun "
        panjang = Len(Trim(Str(angka)))
        kali = Int(panjang / 3)
        If Int(panjang / 3) * 3 <> panjang Then
            kali = kali + 1
            sisa = panjang - Int(panjang / 3) * 3
            nilai = Right("000", 3 - sisa) + Trim(Str(angka))
        Else
            nilai = Trim(Str(angka))
        End If
       
        For x = 0 To kali
           ratusan(kali - x) = Mid(nilai, x * 3 + 1, 3)
        Next x
       
        For y = kali To 1 Step -1
            If y = 2 And Val(ratusan(y)) = 1 Then
                Temp = Temp + "Seribu "
            Else
                If Val(ratusan(y)) = 0 Then
                    Temp = Temp
                Else
                    Temp = Temp + dgratus(Val(ratusan(y)))
                    Temp = Temp + sebut(y - 1)
                End If
            End If
        Next y
        bilangan = Temp & " Rupiah"
    End Function

2. Pilih menu Developer - Visual Basic

3. Selanjutnya setelah muncul editor visual basicnya klik kanan pilih Insert - Module. Seperti pada gambar berikut: 

4. Paste coding yang dicopy pada langkah no 1 di module yang sudah dibuka. Lihat gambar dibawah.

5. Kemudian keluar dari editor visual basic dengan mengklik tombol exit disebelah pojok kanan atas.

6. Setelah itu ketik pada cell A2 = TERBILANG(A1) kemudian Enter.

7. Pada A2 hanya muncul "Rupiah"? Tenang caranya gampang pada cell A1 ketikknya angka contohnya angka 1000. Coba dilihat yang muncul apa.?

Fungsi terbilang ini hanya bisa di buka file di tempat kita pastekan coding terbilang tadi saja. Kalau ingin agar di file lain bisa di buka fungsi terbilang ini ikuti langkah dari nomor 1 - 7 tadi. 

Formulanya = TERBILANG(Cell sumber). Yang saya maksud cell sumber adalah seperti pada contoh saya tadi A2 = TERBILANG(A1) cell sumbernya adalah A1, karena angka di Cell A1 lah yang akan dijadikan sumber untuk membuat pembilangnya.

Gampang bukan? demikian postingan saya kali ini semoga bisa membantu teman-teman yang ingin memuat fungsi terbilang dengan excel. Terimakasih. 

Artikel Terkait