RumusHitung.Com

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:

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:

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

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:

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

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