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 :
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…
Tidak ada komentar:
Posting Komentar