Cara Membuat Rumus Excel Terbilang

Anda mungkin sering menemukan situasi di mana Anda perlu mengonversi angka menjadi terbilang di Excel. Ini mungkin terjadi jika Anda ingin mencetak invoice dengan terbilang atau membuat laporan keuangan. Berikut adalah beberapa cara untuk membuat rumus terbilang di Excel.

Cara 1: Menggunakan Fungsi TERBILANG

Fungsi TERBILANG adalah fungsi bawaan di Excel yang mengonversi angka menjadi terbilang. Ini dapat digunakan dengan mudah dengan cara berikut:

1. Klik pada sel di mana Anda ingin menampilkan terbilang.
2. Ketik tanda sama dengan (=).
3. Ketik fungsi =TERBILANG( ) dan di dalam kurung kurawal masukkan angka yang ingin Anda ubah menjadi terbilang.
4. Tekan Enter pada keyboard Anda dan Excel otomatis akan mengonversi angka menjadi terbilang.

Cara 2: Menggunakan VBA (Visual Basic for Applications)

Salah satu kelemahan fungsi TERBILANG adalah bahwa itu terbatas pada mengonversi angka menjadi terbilang dalam bahasa Indonesia. Jika Anda ingin mengonversi angka dalam bahasa lain seperti Inggris atau Spanyol, maka Anda harus menggunakan VBA. Berikut adalah langkah-langkah untuk menggunakan VBA:

1. Buka file Excel Anda dan tekan tombol Alt + F11 pada keyboard Anda untuk membuka Microsoft Visual Basic for Applications.
2. Pilih “Insert” dan kemudian “Module” dari menu di atas layar Anda.
3. Salin dan tempel kode VBA berikut ini di dalam modul Anda:

       Function SpellNumber(ByVal MyNumber)
         Dim Dollars, Cents, Temp
         Dim DecimalPlace, Count
   
         ReDim Place(9) As String
         Place(2) = " ribu "
         Place(3) = " juta "
         Place(4) = " milyar "
         Place(5) = " triliun "
   
         MyNumber = Trim(Str(MyNumber))
   
         DecimalPlace = InStr(MyNumber, ".")
         If DecimalPlace > 0 Then
           Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
           MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
         End If
   
         Count = 1
         Do While MyNumber <> ""
           Temp = GetHundreds(Right(MyNumber, 3))
           If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
           If Len(MyNumber) > 3 Then
             MyNumber = Left(MyNumber, Len(MyNumber) - 3)
           Else
             MyNumber = ""
           End If
           Count = Count + 1
         Loop
   
         Select Case Dollars
           Case ""
             Dollars = "nol "
           Case "Satu "
             Dollars = "satu "
           Case Else
             Dollars = Dollars
         End Select
   
         Select Case Cents
           Case ""
             Cents = " "
           Case "Satu "
             Cents = "Satu Sen"
           Case Else
             Cents = Cents & " sen "
         End Select
         SpellNumber = Dollars & "dan " & Cents & "rupiah"
       End Function
   
       Function GetHundreds(ByVal MyNumber)
         Dim Result As String
   
         If Val(MyNumber) = 0 Then Exit Function
         MyNumber = Right("000" & MyNumber, 3)
   
         If Mid(MyNumber, 1, 1) <> "0" Then
           Result = GetDigit(Mid(MyNumber, 1, 1)) & " ratus "
         End If
   
         If Mid(MyNumber, 2, 1) <> "0" Then
           Result = Result & GetTens(Mid(MyNumber, 2))
         Else
           Result = Result & GetDigit(Mid(MyNumber, 3))
         End If
   
         GetHundreds = Result
       End Function
   
       Function GetTens(TensText)
         Dim Result As String
   
         Result = ""
         If Val(Left(TensText, 1)) = 1 Then
           Select Case Val(TensText)
             Case 10: Result = "sepuluh "
             Case 11: Result = "sebelas "
             Case 12: Result = "dua belas "
             Case 13: Result = "tiga belas "
             Case 14: Result = "empat belas "
             Case 15: Result = "lima belas "
             Case 16: Result = "enam belas "
             Case 17: Result = "tujuh belas "
             Case 18: Result = "delapan belas "
             Case 19: Result = "sembilan belas "
             Case Else
           End Select
         Else
           Select Case Val(Left(TensText, 1))
             Case 2: Result = "dua puluh "
             Case 3: Result = "tiga puluh "
             Case 4: Result = "empat puluh "
             Case 5: Result = "lima puluh "
             Case 6: Result = "enam puluh "
             Case 7: Result = "tujuh puluh "
             Case 8: Result = "delapan puluh "
             Case 9: Result = "sembilan puluh "
             Case Else
           End Select
           Result = Result & GetDigit(Right(TensText, 1))
         End If
         GetTens = Result
       End Function
   
       Function GetDigit(Digit)
         Select Case Val(Digit)
           Case 1: GetDigit = "satu "
           Case 2: GetDigit = "dua "
           Case 3: GetDigit = "tiga "
           Case 4: GetDigit = "empat "
           Case 5: GetDigit = "lima "
           Case 6: GetDigit = "enam "
           Case 7: GetDigit = "tujuh "
           Case 8: GetDigit = "delapan "
           Case 9: GetDigit = "sembilan "
           Case Else: GetDigit = " "
         End Select
       End Function
     

4. Kembali ke Excel dan klik pada sel di mana Anda ingin menampilkan terbilang.
5. Ketik tanda sama dengan (=).
6. Ketik nama fungsi SpellNumber dan di dalam kurung kurawal masukkan angka yang ingin Anda ubah menjadi terbilang.
7. Tekan Enter pada keyboard Anda dan Excel otomatis akan mengonversi angka menjadi terbilang dalam rupiah.

FAQ

1. Bisakah saya membuat rumus terbilang untuk bahasa lain selain bahasa Indonesia?

Ya, Anda bisa menggunakan VBA seperti yang dijelaskan di atas untuk mengonversi angka menjadi terbilang dalam bahasa lain seperti Inggris atau Spanyol.

2. Apakah ada cara untuk membuat rumus terbilang untuk angka dengan tanda koma?

Ya, Anda bisa menggunakan fungsi TERBILANG dan memasukkan angka dengan tanda koma ke dalam fungsi tersebut. Contohnya adalah =TERBILANG(1234.56).

Video Youtube