Cara Mengubah Bilangan Menjadi Huruf pada Excel

Tips ini berguna terutama jika kita ingin mengubah suatu bilangan yang diketik di Excel menjadi kata-kata dalam Bahasa Indonesia. Sebagai contoh misalnya jika kita mengetik "10" maka akan diubah menjadi "sepuluh", Mengetik "2019" diubah menjadi "dua ribu sembilan belas" secara otomatis.

Salah satu penggunaan sederhana yang biasa kita lakukan dengan cara ini adalah saat kita mengetik kuitansi. Dengan kita mengetik nominal saja maka bisa otomatis pengejaannya akan langsung muncul.

Penggunaan lain yang sering adalah pada saat penyusunan raport untuk siswa sekolah atau madrasah. Dengan mulai polulernya penggunaan raport dengan print out maka tips ini sangat membantu. Kita tidak perlu lagi direpotkan untuk menulis nilai dalam bentuk kata-kata secara manual.

Terus bagaimana caranya?

Tenang. Berbagi pengetahuan itu tidak ada ruginya. Kita akan bermain dengan macro pada excel.

1. Pertama seperti biasa, karena kita akan bermain-main dengan dengan Excel maka Anda harus punya aplikasi Excel yang terinstal terlebih dahulu. Semua versi Excel sepertinya bisa menggunakan tips ini.
2. Buka aplikasi Excel untuk memulai.
3. Langsung cari Tab "View". Biasanya berada pada deretan paling kanan.
4. Kemudian Cari "Macro" pada bagian bawahnya.
5. Setelah "Macro" ditemukan kemudian klik "View Macro", akan muncul jendela baru.

6. Pada jendela baru tersebut "Macro name" bisa diisi dengan kata "bilangan" atau bisa juga yang lain.
7. Selanjutnya klik tombol "create" pada jendela tersebut.
8. Masuk ke jendela visual basic. 


Bersihkan jendela yang terbuka kemudian paste kode di bawah ini pada jendela tersebut.



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 bilangan(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

End Function



9. Setelah kode di atas dipaste. Kemudian langsung disimpan dengan menekan gambar disket atau bisa menekan File baru disave.
10. Akan muncul jendela save as seperti biasa. Kita bisa menyimpan file tersebut seperti biasanya. cuma yang perlu diingat file tersebut harus disimpan dengan format "Excel Macro-Enable Workbook dengan extensi .docm. 

11. Setelah disimpan kita bisa masuk ke lembar kerja semula dan bisa mulai untuk mengetes hasil kerja kita.
12. Kita bisa mengubah bilangan ke kata-kata dengan menggunakan rumus "=bilangan()" pada lembar kerja. Contoh jika kita ketik "=bilangan(123)" kemudian enter maka akan memperoleh hasil "seratus dua puluh tiga". Dan ini bisa digunakan untuk bilangan-bilangan yang lain.
13. Perlu diingat bahwa bilangan yang dapat diubah hanya pada bilangan bulat positif saja, untuk bilangan negatif atau bilangan desimal rumus ini tidak berlalu.

Selamat mencoba

Cukup sekian dan terima kasih.