Mengubah Angka Menjadi Terbilang di Ms. Excel

Thursday, August 13th 2015. | rumus excel

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:

AngkaTerbilang
2.500.000Dua Juta Lima Ratus Ribu
1.470.000Satu Juta Empat Ratus  Tujuh Puluh Ribu
150.345Seratus 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:

  1. Klik office button kemudian pilih tombol excel options
  2. Lihat bagian sebelah kiri kemudian pilih trust center lalu pilih trust center setting di sebelah kanan.
  3. 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).
  4. Lanjut dengan pilih tab Message bar. Aktifkan pilihan Never show information about blocked content.
  5. Pilih OK

Langkah 3

  1. Buka aplikasi microsoft excel anda
  2. Ms. Excel 2010 & 2013 : Pilh office button → pilih excel option
  3. Pilih menu adds-in → go
    memasukkan add-in
  4. Browse file yang sudah diekstrak terbilang(dot)xla
  5. Pastikan add-in terbilang sudah tercentang → OK
  6. 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:

= TERBILANG (angka)

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

= TERBILANG (B3) hasilnya enam belas ribu.

 penggunaan rumus terbilang

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

=””&UPPER(LEFT(terbilang(B4);2))&””&MID(terbilang(B4);3;999)&” rupiah”

hasilny seperti gambar berikut ini

contoh penulisan rumus terbilang
b. Menambahkn rupiah dan huruf besar di setiap kata penyusun kalimat terbilang

=””&PROPER(terbilang(B5))&” rupiah”

Terbilang Bahasa Inggris

Untuk membuat terbilang dalam bahasa inggris tidak kalah mudahnya, sobat bisa mengikuti langkah-langkah berikut:

  1. Tekan tombol Alt + F11 akan muncul halaman visual basic
  2. Pilih menu Insert → pilih new modul
  3. 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
  4. Selesai

Rumus terbilang bahasa inggris sudah siap. Sobat tinggal menuliskan

= ENGLISH (angka)

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







Yuk Bagikan
tags: ,

2 Responses to “Mengubah Angka Menjadi Terbilang di Ms. Excel”

  1. Fabian Z says:

    mas tolong kirimkan link matematika yang invers, mau belajarr

Leave a Reply to Fabian Z

Artikel Tips Berhitung Terkait Mengubah Angka Menjadi Terbilang di Ms. Excel