Menambahkan fungsi Terbilang di Microsoft Excel
Untuk beberapa keperluan kita memerlukan nilai terbilang dari suatu angka (mengubah angka menjadi huruf),
seperti untuk kuitansi, faktur, nota atau yang lainnya. Pada excel kita
bisa menggukan macro untuk membuat terbilang menjadi otomatis. Kita
tidak perlu lagi mengetikan angka terbilangnya, cukup dengan memasukan
rumus terbilang yang kita buat sendiri mengguakan macro. Untuk
langkah-langkahnya sebagai berikut.
- Buka tab developer >>> visual basic. Atau bisa menekan tombol ALT+F11
- Kemudian Insert Module, Kilki kanan Microsoft Excel Objects - Insert - Module seperti gambar dibawah ini:
- Kemudian copy-kan kode script dibawah ini. Script ini bisa mengubah terbilang dengan angka masimal max 2.147.483.647
Dim satuan As Variant, Minus As Boolean On Error GoTo terbilang_error satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas") If n < 0 Then Minus = True n = n * -1 End If Select Case n Case 0 To 11 Terbilang = " " + satuan(Fix(n)) Case 12 To 19 Terbilang = Terbilang(n Mod 10) + " Belas" Case 20 To 99 Terbilang = Terbilang(Fix(n / 10)) + " Puluh" + Terbilang(n Mod 10) Case 100 To 199 Terbilang = " Seratus" + Terbilang(n - 100) Case 200 To 999 Terbilang = Terbilang(Fix(n / 100)) + " Ratus" + Terbilang(n Mod 100) Case 1000 To 1999 Terbilang = " Seribu" + Terbilang(n - 1000) Case 2000 To 999999 Terbilang = Terbilang(Fix(n / 1000)) + " Ribu" + Terbilang(n Mod 1000) Case 1000000 To 999999999 Terbilang = Terbilang(Fix(n / 1000000)) + " Juta" + Terbilang(n Mod 1000000) Case Else Terbilang = Terbilang(Fix(n / 1000000000)) + " Milyar" + Terbilang(n Mod 1000000000) End Select If Minus = True Then Terbilang = "Minus" + Terbilang End If Exit Function terbilang_error: MsgBox Err.Description, vbCritical, "^_^Terbilang Error" End Function
- Kemudian simpan file dengan memilih type Excel Macro-Enabled Workbok
Nah kita telah membuat rumus terbilang sendiri, untuk menentukan terbilang kita tinggal mengetikan =terbilang(cell) kemudian enter, jadi deh. Sebaga contoh saya mengetikan angka 91000 pada cell C4 kita ingin mengetikan terbilang dari angka tersebut pada cell e4, maka kita tulis saja rumusnya =Terbilang(c4)
Apabila kita ingin menambahkan Rupiah maka kita masukan rumus =terbilang(c4)&“ Rupiah” Untuk mengubah ke huruf kecil semua kita bisa menambah =lower sehingga = lower(terbilang(c4)&“Rupiah”) . Dan untuk huruf besar semua =upper
Semoga Bermanfaat