Menggunakan rumus terbilan excel – Cobat sobat perhatikan bentuk kwitansi yang ada di rumah, salah satu bagian yang pasti ada dalam sebuah kwitansi adalah teks terbilang yang menyatakan nominal uang yang diserahterimakan. Jika kemudian suatu hari sobat diminta untuk membuat kwitansi transaksi dalam jumlah banyak, software apa yang akan sobat gunakan? Perangkat lunak yang paling enak dan familiar adalah Ms. Excel. Lalu bagaimana membuat teks terbilang dari nominalnya? Apakah sobat mau menuliskan satu persatu? Jangan mau. Dalam excel, malas belajar kerja manual. Berikut cara mudah dan cepat membuat terbilang di ms. excel.
Rumus Terbilang di Ms. Excel
Terbilang Bahasa Indonesia
Dalam ms. excel baik yang 1997, 2010, atau 2013 tidak menyediakan fitur terbilang. Apalagi fitur terbilang dengan menggunakan bahasa indonesia. Yang dimaksud dengan fungsi terbilang di sini adalah fungsi untuk mengubah sebuah nominal angka atau nominal uang menjadi bentuk teks seperti contoh di bawah ini:
Angka | Terbilang |
2.500.000 | Dua Juta Lima Ratus Ribu |
1.470.000 | Satu Juta Empat Ratus Tujuh Puluh Ribu |
150.345 | Seratus Lima Puluh Ribu Tiga Ratus Empat Puluh Lima |
Untuk dapat membuat fungsi terbilang tersebut silahkan sobat ikuti langkah-langkah berikut ini:
Langkah 1
Kita menggunakan add-in eksternal yang akan diinstall di ms. excel. Silahkan download di link berikut ini. File dalam bentukr rar/zip jadi silahkan diekstak dulu taruh ditempat yang diinginkan.
Langkah 2
Matikan Macro Security di Excel dengan langkah-langkah sebagai berikut:
- Klik office button kemudian pilih tombol excel options
- Lihat bagian sebelah kiri kemudian pilih trust center lalu pilih trust center setting di sebelah kanan.
- Pilih tab macro setting lalu sobat aktifkan centang di pilihan Trust Access to the VBA project model dan pilihan Enable all macros (not recommended;potentially dangerous code can run).
- Lanjut dengan pilih tab Message bar. Aktifkan pilihan Never show information about blocked content.
- Pilih OK
Langkah 3
- Buka aplikasi microsoft excel anda
- Ms. Excel 2010 & 2013 : Pilh office button → pilih excel option
- Pilih menu adds-in → go
- Browse file yang sudah diekstrak terbilang(dot)xla
- Pastikan add-in terbilang sudah tercentang → OK
- Fungsi terbilang excel sudah siap digunakan
Bagiaman Penggunaan Rumusnya?
Untuk menggunakan rumus terbilang yang sudah ditambahkan melalui add-ins tadi cukup mudah. Sobat hanya perlua menuliskan:
Secara otomatis akan muncul terbilang dari angka yang ada di dalam kurung. Misal sobat menuliskan angka 16.000 di cell B3. Kemudian di cell C3 soba masukkan rumus
Menambahkan Rupiah
Untuk berbagai keperluan di kantor sobat berikut beberapa rumus yang mungkin bisa membantu.
a. Menambahkan rupiah dan huruf besar di awal kalimat terbilang
hasilny seperti gambar berikut ini
b. Menambahkn rupiah dan huruf besar di setiap kata penyusun kalimat terbilang
Terbilang Bahasa Inggris
Untuk membuat terbilang dalam bahasa inggris tidak kalah mudahnya, sobat bisa mengikuti langkah-langkah berikut:
- Tekan tombol Alt + F11 akan muncul halaman visual basic
- Pilih menu Insert → pilih new modul
- Pastekan kode di bawah ini ke dalam modul tersebut → klik save
Function English(ByVal N As Currency) As String Const Thousand = 1000@ Const Million = Thousand * Thousand Const Billion = Thousand * Million Const Trillion = Thousand * Billion If (N = 0@) Then English = "zero": Exit Function Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = "" Dim Frac As Currency: Frac = Abs(N - Fix(N)) If (N < 0@ Or Frac <> 0@) Then N = Abs(Fix(N)) Dim AtLeastOne As Integer: AtLeastOne = N >= 1 If (N >= Trillion) Then Debug.Print N Buf = Buf & EnglishDigitGroup(Int(N / Trillion)) & " trillion" N = N - Int(N / Trillion) * Trillion If (N >= 1@) Then Buf = Buf & " " End If If (N >= Billion) Then Debug.Print N Buf = Buf & EnglishDigitGroup(Int(N / Billion)) & " billion" N = N - Int(N / Billion) * Billion If (N >= 1@) Then Buf = Buf & " " End If If (N >= Million) Then Debug.Print N Buf = Buf & EnglishDigitGroup(N \ Million) & " million" N = N Mod Million If (N >= 1@) Then Buf = Buf & " " End If If (N >= Thousand) Then Debug.Print N Buf = Buf & EnglishDigitGroup(N \ Thousand) & " thousand" N = N Mod Thousand If (N >= 1@) Then Buf = Buf & " " End If If (N >= 1@) Then Debug.Print N Buf = Buf & EnglishDigitGroup(N) End If If (Frac = 0@) Then Buf = Buf & " exactly" ElseIf (Int(Frac * 100@) = Frac * 100@) Then If AtLeastOne Then Buf = Buf & " and " Buf = Buf & Format$(Frac * 100@, "00") & "/100" Else If AtLeastOne Then Buf = Buf & " and " Buf = Buf & Format$(Frac * 10000@, "0000") & "/10000" End If English = Buf End Function Private Function EnglishDigitGroup(ByVal N As Integer) As String Const Hundred = " hundred" Const One = "one" Const Two = "two" Const Three = "three" Const Four = "four" Const Five = "five" Const Six = "six" Const Seven = "seven" Const Eight = "eight" Const Nine = "nine" Dim Buf As String: Buf = "" Dim Flag As Integer: Flag = False Select Case (N \ 100) Case 0: Buf = "": Flag = False Case 1: Buf = One & Hundred: Flag = True Case 2: Buf = Two & Hundred: Flag = True Case 3: Buf = Three & Hundred: Flag = True Case 4: Buf = Four & Hundred: Flag = True Case 5: Buf = Five & Hundred: Flag = True Case 6: Buf = Six & Hundred: Flag = True Case 7: Buf = Seven & Hundred: Flag = True Case 8: Buf = Eight & Hundred: Flag = True Case 9: Buf = Nine & Hundred: Flag = True End Select If (Flag <> False) Then N = N Mod 100 If (N > 0) Then If (Flag <> False) Then Buf = Buf & " " Else EnglishDigitGroup = Buf Exit Function End If Select Case (N \ 10) Case 0, 1: Flag = False Case 2: Buf = Buf & "twenty": Flag = True Case 3: Buf = Buf & "thirty": Flag = True Case 4: Buf = Buf & "forty": Flag = True Case 5: Buf = Buf & "fifty": Flag = True Case 6: Buf = Buf & "sixty": Flag = True Case 7: Buf = Buf & "seventy": Flag = True Case 8: Buf = Buf & "eighty": Flag = True Case 9: Buf = Buf & "ninety": Flag = True End Select If (Flag <> False) Then N = N Mod 10 If (N > 0) Then If (Flag <> False) Then Buf = Buf & "-" Else EnglishDigitGroup = Buf Exit Function End If Select Case (N) Case 0: Case 1: Buf = Buf & One Case 2: Buf = Buf & Two Case 3: Buf = Buf & Three Case 4: Buf = Buf & Four Case 5: Buf = Buf & Five Case 6: Buf = Buf & Six Case 7: Buf = Buf & Seven Case 8: Buf = Buf & Eight Case 9: Buf = Buf & Nine Case 10: Buf = Buf & "ten" Case 11: Buf = Buf & "eleven" Case 12: Buf = Buf & "twelve" Case 13: Buf = Buf & "thirteen" Case 14: Buf = Buf & "fourteen" Case 15: Buf = Buf & "fifteen" Case 16: Buf = Buf & "sixteen" Case 17: Buf = Buf & "seventeen" Case 18: Buf = Buf & "eighteen" Case 19: Buf = Buf & "nineteen" End Select EnglishDigitGroup = Buf End Function
- Selesai
Rumus terbilang bahasa inggris sudah siap. Sobat tinggal menuliskan
Silahkan dicoba. Jika sobat menemukan kesulitan mengaplikasikan rumus terbilang excel di atas, jangan ragu-ragu untuk menanyakannya dengan menuliskan problem yang ditemui pada komentar di bawah atau langsung kirim email ke rumushitung@gmail.com
agus says
untuk di belakang koma kenapa gak muncul jadinya seperti ini
Rp 49.315.514,24
forty-nine million three hundred fifteen thousand five hundred fourteen and 24/100rupiah
azizah says
Mau tanya ketika rumus ini dijalankan, kenapa diakhir terbilangnya selalu muncul kata “exactly”
Bagaimana cara menghilangkannya?
Terima kasih
ipoenk says
untuk menggabungkan kata-kata dengan rumus terbilang bagaimana caranya saya sudah coba buat dipenawaran harga tetapi tidak berfungsi.
mohon penjelasannya
Fabian Z says
mas tolong kirimkan link matematika yang invers, mau belajarr
rumus hitung says
Silahkan dibaca materi lengkapnya tentang komposisi dan ivers di Invers