Cara Konversi bilangan angka ke huruf - Konversi angka menjadi huruf pada Excel biasanya digunakan untuk membaca suatu bilangan angka satuan puluhan ratusan atau ribuan, misalnya untuk menyebut Rp, 10.000 menjadi "Sepuluh ribu rupiah" atau menyebut angka 1 menjadi "Satu". Untuk melakukan itu semuanya maka diperlukan suatu fungsi yang mampu mengkonversi atau merubah dari angka menjadi huruf. Sayang sekali Microsoft excel tidak menyediakan fungsi atau formula untuk konversi bilangan angka ke huruf, jadi jalan keluarnya kita harus membuat fungsi sendiri dengan bantuan kode macro

Baca juga untuk bapak dan ibu guru tercinta yang sedang membuat buku rapor Konversi angka ke huruf untuk penulisan buku rapor


Langsung saja berikut ini Cara konversi bilangan angka ke huruf silahkan ikuti langkah langkahnya dibawah ini

Buka Microsoft Excel dalam komputer anda, save as enabled macro, pada kolom A1 ketikan angka 100000, lanjutkan ke kolom B2 ketikan fungsi =keabc(A1) atau =keabc(A1)&" rupiah"

Pada kolom B2 akan terjadi error #NA, ini disebabkan karena kita belum membuat fungsi konversi bilangan angka ke huruf

Untuk membuat konversi bilangan angka ke huruf, Buka jendela VBE dengan menekan kombinasi tombol ALT+F11. Bagi anda yang masih awam buka kamus excel VBA disini

Dalam jendela VBE silahkan cari menu Insert dan Insert Modul, dalam area modul masukan atau ketik kode macro dibawah ini

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 keabc(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) = " triliyun "
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
keabc = Temp
End Function



Tekan tombol F5 untuk menjalankan fungsi ini dan tutup jendela VBE lalu kembali koreksi kolom B2 yang terdapat fungsi =keabc(A1)&" rupiah", pasti sudah berubah ke abjad "Seratus ribu rupiah"

Download Cara konversi bilangan angka ke huruf pada link download dibawah ini
Demikianlah Cara konversi bilangan angka ke huruf, semoga bermanfaat
No comments