Merubah Angka Menjadi Huruf dalam Excel

Merubah angka menjadi huruf dalam excel sering kita perlukan terutama dalam transaksi keuangan. untuk mengatasi hal tersebut berikut saya mencoba menulis sebuah artikel tentang merubah angka menjadi huruf di dalam exel.

Untuk langkah-langkah tersebut harus menggunakan macro excel dengan menuliskan module berikut pada visual basic kemudian klik tombol insert module kemudian tuliskan kode berikut :
Option Explicit

Public Function Terbilang(x As Double) As String
    Dim tampung As Double
    Dim teks As String
    Dim bagian As String
    Dim i As Integer
    Dim tanda As Boolean
 
    Dim letak(5)
    letak(1) = "Ribu "
    letak(2) = "Juta "
    letak(3) = "Milyar "
    letak(4) = "Trilyun "
 
    If (x = 0) Then
        Terbilang = "Nol "
        Exit Function
    End If
 
    If (x < 2000) Then
        tanda = True
    End If
    teks = ""
 
    If (x >= 1E+15) Then
        Terbilang = "Nilai terlalu besar !!!"
        Exit Function
    End If
 
    For i = 4 To 1 Step -1
        tampung = Int(x / (10 ^ (3 * i)))
        If (tampung > 0) Then
            bagian = ratusan(tampung, tanda)
            teks = teks & bagian & letak(i)
        End If
        x = x - tampung * (10 ^ (3 * i))
        Next
 
        teks = teks & ratusan(x, False)
        Terbilang = teks
    End Function
 
    Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
        Dim tmp As Double
        Dim bilang As String
        Dim bag As String
        Dim j As Integer
     
        Dim angka(9)
        angka(1) = "Se"
        angka(2) = "Dua "
        angka(3) = "Tiga "
        angka(4) = "Empat "
        angka(5) = "Lima "
        angka(6) = "Enam "
        angka(7) = "Tujuh "
        angka(8) = "Delapan "
        angka(9) = "Sembilan "
     
        Dim posisi(2)
        posisi(1) = "Puluh "
        posisi(2) = "Ratus "
     
        bilang = ""
        For j = 2 To 1 Step -1
            tmp = Int(y / (10 ^ j))
            If (tmp > 0) Then
            bag = angka(tmp)
            If (j = 1 And tmp = 1) Then
                y = y - tmp * 10 ^ j
                If (y >= 1) Then
                    posisi(j) = "Belas "
                Else
                    angka(y) = "Se"
                End If
                bilang = bilang & angka(y) & posisi(j)
                ratusan = bilang
                Exit Function
            Else
                bilang = bilang & bag & posisi(j)
            End If
        End If
        y = y - tmp * 10 ^ j
    Next
 
    If (flag = False) Then
        angka(1) = "Satu "
    End If
        bilang = bilang & angka(y)
        ratusan = bilang
End Function
 setelah selesai menuliskan kode pada visual basic bisa kita coba mempraktekannya dengan membuat kwitansi dengan format sebagai berikut

UNIT PENGELOLA KEGIATAN
( UPK )
KECAMATAN BANJARWANGI KABUPATEN GARUT
KUITANSI
No. …........./KK/........../...........
Telah terima dari	: Unit Pengelola Kegiatan (UPK) Kecamatan Banjarwangi
Uang sebesar	Rp                                                            55,000,000
Terbilang	Lima Puluh Lima Juta  Rupiah
Untuk keperluan	: Pinjaman Perguliran SPP
									Banjarwangi, 17 Februari 2015
Yang Menerima					Yang Menyerahkan
Kelompok Al-Khoir					UPK Kecamatan Banjarwangi
Ketua	Bendahara				Ketua		Bendahara
Elis Supartika	Awat				Ating Sutisna		Ahmad Hayun

Pada cells terbilang agar angka berubah menjadi huruf maka tuliskan rumus berikut:

=""&Terbilang(B12)&" "&"Rupiah"
B12 merupakan alamat cell dari angka 55,000,000,-

Demikian cara untuk merubah angka menjadi text. semoga bermanfaat