KONVERSI ANGKA KE HURUF DI EXCEL (TERBILANG)

Ehhmm.. Bismillahirahmannirohim, dengan menyebut nama Allah yang maha pengasih dan maha penyayang saya memulai lagi untuk menulis di blog ini, (mirip pidato proklamasi yach? :D) sudah lama banget ngga aktif posting, sebenarnya ada beberapa postingan yang sudah saya ketik, tapi karena ketidak tersediannya waktu dan terlalu lamanya file itu pending sampe sekrang tidak bisa diketemukan lagi.. terlalu banyak yang ingin saya tuangkan di blog ini sampe sampe bingung yang mana yang akan saya postingkan (jangan ngeles emang kgk ada IDE kali ya? :D)

Merujuk pada judul artikel apa sih maksudnya? Konversi itu.. emm merubah dari sebuah bentuk ke bentuk lain, begitu kali ya.. kalo salah anggap bener dan jangan protes soalnya ini blog saya, ngaco nih hahaha.. tapi maksud saya bener contoh angka 1 jadi “atu”, 2 “ua” 3 “iga” sok cadel nih :D, ato 100 “seratus”, 1000”seribu” maksudnya begitu.. yg cari referensi definisi jangan disini ya, disini sifatnya aplikatif. Udah paham kan? Lihat gambarnya deh biar tambah ngerti:

Batin pembaca “ngapain ga dari tadi langsung gambarnya.. kgk usah diomongin jg udah ngerti gw!!” hahaha.. santai gan kalo kgak dikasih pembukaan gmn jadinya ini blog, kliaatn jelek tuh di halaman awal..

Sebelum kita otak atik skript kita hasur mengaktifkan menu DEVELOPER, tuh kyk yang ada di gambar pojok kanan atas.. yang belum bisa ikutin caranya yuk, postingan besok kgk gw ulangi lagi ye :D, besok bahas excel lagi deh..so menu DEVELOPER biarin aja nangkring disitu.. klik buletan office 2007 pojok atas kiri, akan keluar menu-menu lihat kanan bawah ada WORD OPTION, klik dong jangan diliatin terus deh.. kgk usah diotak atik langsung cari SHOW DEVELOPER TAB IN THE RIBBON, lalu centang ya.. tuh menu udah langsung nangkring diatas kepala eh… RIBBON maksudnya.. lihat gambar ya:

Lalu bikin desain seperti gambar 1 paling atas.. inget ya posisi kolom sama baris harus sama plek dengan gambar 1, jangan ngeyel semaunya sendiri soalnya di skript sudah ditulis kolom berapa baris berapanya, kecuali kalo mau merubahnya sendiri.. itu sih sah sah aja..

Setelah membuat tampilan seperti gambar 1, klik menu DEVELOPER pada RIBBON/MENU lalu klik VIEW CODE, lihat gambar:

Dan akan muncul jendela baru seperti dibawah ini:

Di tempat inlah kita akan mengetikan skript.. inget ya NGETIK bukan COPY PASTE, penulis ngerasa pengunjung bakal pada kabur kalo disuruh ngetik skript, udah banyak kalo salah kagak mau jalan lagi hahaha.. COPAS kgk apa2 deh. Tapi kalo mau olah raga tangan juga itu lebih baik.. ini dia skriptnya:

‘----------------------------------------------skript----------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo ert

If Worksheets(1).Range("c3").Value <> "" Then Worksheets(1).Range("c4").Value = Num2word(Worksheets(1).Range("c3").Value) + " Rupiah" Else Worksheets(1).Range("c4").Value = ""

Exit Sub

ert:

MsgBox "Masukan hanya angka", vbCritical, "WARNING!"

Worksheets(1).Range("c3").Value = ""

Worksheets(1).Range("c4").Value = ""

Exit Sub

End Sub

Function Num2word(ByVal n As Currency) As String

Dim Satuan As Variant

Satuan = Array("", "Satu ", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", " Sebelas")

Select Case n

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 10 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

‘-------------------------------END OF SCRIPT--------------------------------------

Nah.. kalo udah coba kembali ke tampilan EXCEL yg sudah kita desain diawal tadi, kita coba deh.. ketikan 120000 maka tampilan akan seperti dibawah ini:

Lahh kalo ada error ato kagak jalan bigimana?.. kagak tau gw!!.. kl disini sih jalan kek gitu hahaha.. tapi ngga usah khawatir, kalo memang ngga jalan saya sudah mengunggahnya dan bisa donlod disini, jadi sobat bisa compare yang dibuat dan yang saya buat..

Selamat mencoba dan mempelajari yah, good night..

Artikel ini didedikasikan untuk Bp. Syafar - Pinrang