Konversi Angka ke Huruf di Excel

Bekerja menggunakan bantuan software Microsoft Excel kadang memerlukan konversi angka ke huruf yang biasanya digunakan untuk membuat kuitansi atau nota pembelian/pembayaran.

Berikut adalah langkah-langkah untuk membuat fungsi konversi dari angka ke huruf pada Microsoft Excel.

Langkah I :

  1. Dari layar kerja Ms. Excel pilih menu Tools – Macro – Visual Basic Editor atau langsung tekan tombol Alt+F11 untuk masuk ke layar editor macro visual basic.
  2. Pada layar editor visual basic pilih menu Insert – Module sehingga ditampilkan kotak editor untuk penulisan script program.
  3. Tuliskan script program di bawah ini (atau copas aja lebih mudah)

‘Fungsi Konversi Angka ke Huruf
‘Untuk mencari nilai terbilang pada sebuah data numerik
‘yang biasanya digunakan pada pembuatan kuitansi
’sumber : www.digdoyo.com

Public Function terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String

‘Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else

‘Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)
satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)
sen = Int((x – Int(x)) * 100)

‘Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + “Triliun ”
End If

‘Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + “Milyar ”
End If

‘Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + “Juta ”
End If

‘Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + “Ribu ”
End If

‘Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + “Rupiah ”
Else
baca = baca + “Rupiah ”
End If

‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + “Sen ”
End If
End If
terbilang = baca
End Function

Function ratus(x As Currency, posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x – a100 * 100) * 0.1)
a1 = Int(x – a100 * 100 – a10 * 10)

‘Baca Bagian Ratus
If a100 = 1 Then
baca = “Seratus ”
Else
If a100 > 0 Then
baca = angka(a100, 2) + “Ratus ”
End If
End If

‘Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + “Puluh ”
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
End If
End If
ratus = baca
End Function

Function angka(x As Integer, posisi As Integer)
Select Case x
Case 0: angka = “Nol”
Case 1:
If posisi = 2 Then
angka = “Satu ”
Else
angka = “Se”
End If
Case 2: angka = “Dua ”
Case 3: angka = “Tiga ”
Case 4: angka = “Empat ”
Case 5: angka = “Lima ”
Case 6: angka = “Enam ”
Case 7: angka = “Tujuh ”
Case 8: angka = “Delapan ”
Case 9: angka = “Sembilan ”
Case 10: angka = “Sepuluh ”
Case 11: angka = “Sebelas ”
Case 12: angka = “Dua belas ”
Case 13: angka = “Tiga belas ”
Case 14: angka = “Empat belas ”
Case 15: angka = “Lima belas ”
Case 16: angka = “Enam belas ”
Case 17: angka = “Tujuh belas ”
Case 18: angka = “Delapan belas ”
Case 19: angka = “Sembilan belas ”
End Select
End Function

Langkah II :

  1. Simpan script program tersebut dengan memilih menu File – Save Book1 atau tekan aja Ctrl+S seperti biasa saat mau menyimpan dokumen.
  2. Di kotak dialog Save As :
  • Pada bagian Save in : Pilihlah Folder C:\Program Files\Microsoft Office\Office11\Addins (Biasanya otomatis) atau boleh juga pada folder lain yang Anda tentukan sendiri
  • Pada bagian File name : Tuliskan Nama File dan ekstensinya misalnya Terbilang.xla
  • Pada bagian Save as type : Pilihlah Microsoft Office Excel Add-In
  • Click tombol Save untuk menyimpan

3.     Pilih menu File – Close and Return to Microsoft Excel atau tekan aja tombol Alt+Q

Langkah III :

Pada lembar kerja Ms. Excel, aktifkan script program yang telah dibuat dengan cara :

  1. Pilih menu Tools – Add-Ins
  2. Click kotak cek pada Terbilang (Nama script yang disimpan dengan ekstensi XLA/Langkah II-2-b), jika tidak ada clicklah tombol Browse dan cari file tersebut ditempat Anda menyimpan
  3. Jika sudah click tombol OK

Langkah IV :

Penerapan fungsi terbilang, lakukan langkah berikut :

  1. Tuliskan sembarang angka pada sel A1 misalnya 1500
  2. Pada sel A2 tuliskan =Terbilang(A1)
  3. Setelah Anda Enter maka akan muncul tulisan Seribu Lima Ratur Rupiah

Atau coba dengan yang lain, mudah-mudahan bermanfaat untuk kita semua…, jika artikel ini bermanfaat, mohon berikan komentar Anda dibagian bawah ini, terimakasih….

Leave a Reply

Your email address will not be published. Required fields are marked *


Parse error: syntax error, unexpected end of file in /home/digdoyoc/public_html/b5280b7acbbf71776af1a6de8e2e5952734635ee/promo.php on line 391