Modul macro Audrey adalah salah satu modul yang digunakan untuk merubah (convert) format angka ke dalam teks. Teknik penulisan angka menjadi teks kalimat ini mutlak dibutuhkan pada data-data akuntansi atau data apapun yang berkaitan dengan keuangan.
Oke...langsung saja..
1. Langkah pertama adalah buka New File pada Microsoft Excel,
2. Buka Ms. Visual Basic dengan menekan tombol "Alt" dan tombol "F11" pada keyboard secara bersamaan.
3. Kemudian Klik kanan VBA Project (Book1), kemudian pilih insert dan klik module.
4. Akan muncul halaman kosong. Copy script di bawah ini dan paste pada halaman kosong tersebut.
5. Tutup Microsoft Visual Basic dan kembali ke Aplikasi Microsoft Excel.
6. Cobalah mengetik sembarang angka, misalnya pada cell A1, kemudian klik salah satu cell dan ketikkan rumus =Audrey(A1)
7. Maka akan terlihat hasilnya seperti pada gambar di bawah ini.
Code script:
Function Num2Word(ByVal n As Currency) As String 'max 2.147.483.647
Dim satuan As Variant
satuan = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas")
Select Case n 'keadaan
Case 0 To 11
Num2Word = " " + satuan(Fix(n))
Case 12 To 19
Num2Word = Num2Word(n Mod 10) + " belas"
Case 20 To 99
Num2Word = Num2Word(Fix(n / 10)) + " puluh" + Num2Word(n Mod 10)
Case 100 To 199
Num2Word = " seratus" + Num2Word(n - 100)
Case 200 To 999
Num2Word = Num2Word(Fix(n / 100)) + " ratus" + Num2Word(n Mod 100)
Case 1000 To 1999
Num2Word = " seribu" + Num2Word(n - 1000)
Case 2000 To 999999
Num2Word = Num2Word(Fix(n / 1000)) + " ribu" + Num2Word(n Mod 1000)
Case 1000000 To 999999999
Num2Word = Num2Word(Fix(n / 1000000)) + " juta" + Num2Word(n Mod 1000000)
Case Else
Num2Word = Num2Word(Fix(n / 1000000000)) + " milyar" + Num2Word(n Mod 1000000000)
End Select
End Function
Function Audrey(para)
Dim x As Variant
x = Num2Word(para)
Audrey = x
End Function
8. Demikian Tutorial Convert Format Angka ke dalam teks/kalimat. Semoga bermanfaat.
Tidak ada komentar:
Posting Komentar