Rumus Terbilang Excel


Beranda >> Blog Tutorial Excel >> Tips dan Trik >> Rumus Terbilang Excel



Pada bagian tutorial ini, kamu akan memahami cara membuat terbilang pada excel menggunakan suatu rumus. Rumus terbilang excel sendiri tidaklah tersedia secara langsung di dalam perangkat spreadsheet ini. Maka dari itu, yang diberikan di sini adalah kode VBA untuk membuat formula yang terkustomisasi untuk rumus terbilang di excel demi otomatisasi proses pembuatan bentuk kata-kata dari suatu input angka. Setelah menaruh kode VBA untuk rumus terbilang excel ini di dalam spreadsheetmu, maka kamu akan dapat menggunakan rumus dari kode tersebut seperti rumus lainnya.


Mengapa Perlu Membuat dan Mempelajari Rumus Terbilang Excel?


Dalam mengerjakan data angka, terutama berhubungan dengan uang, terkadang kita perlu membuat bentuk kata-kata dari angka tersebut. Untuk satu atau dua data angka statis dalam jumlah tidak terlalu kompleks mungkin tidak terlalu bermasalah. Tetapi jika yang dihadapi adalah angka uang dinamis yang dapat terus berubah, maka akan menjadi jauh lebih efektif dan efisien jika terdapat suatu fungsi untuk membantu kita membuat prosesnya menjadi otomatis.

Jika melakukan pengolahan digit tersebut di dalam spreadsheet, perangkat lunak ini sendiri sebenarnya tidak menyediakan satu fungsi khusus untuk membantumu dalam proses mengubah suatu digit menjadi bentuk bacaan hurufnya. Namun kita dapat membantu diri sendiri dengan memanfaatkan tersedianya fitur di mana kita dapat membuat formula sendiri sesuai kebutuhan. Jika kita sering membutuhkan proses mengubah data angka menjadi bentuk bacaan teksnya, maka formulasi rumus excel khusus untuk hal tersebut menjadi suatu hal penting untuk kita lakukan dan juga pahami cara pakainya. Sebab itu, Compute Expert menyediakan di tutorial ini kode VBA untuk rumus terbilang excel terkustomisasi di mana kodenya dapat langsung kamu ambil untuk dipakai di spreadsheetmu.


Apa itu Fungsi Terbilang Excel?


Rumus terbilang excel adalah suatu formula kustomisasi dari kode VBA yang dapat digunakan untuk membuat bentuk bacaan dari data digit, biasanya diperlukan ketika kita mengolah angka berhubungan dengan uang. Setelah dimasukkan kode VBAnya ke dalam spreadsheetmu, nantinya rumus terbilang pada excel ini dapat langsung digunakan seperti memasukkan rumus biasa dengan kebutuhan input angka untuk diproses.

Secara umum, input dari rumusnya yang dibuat nanti dapat dijabarkan sebagai berikut:


=TERBILANG(value)


Keterangan:
value = angka untuk diubah jadi bentuk kata-katanya


Bagaimana Cara Membuat dan Menggunakan Rumus Terbilang Excel?


Berikut akan dijabarkan cara membuat rumus excel terbilang di dalam editor VBAmu beserta cara memakainya.


Mengecek dan Mengatur Setting Keamanan Macro

Untuk dapat menggunakan formula terkustomisasi yang terbuat dari kode VBA, kamu harus mengijinkan macro dapat berfungsi di dalam spreadsheetmu. Oleh karena itu, kita harus memastikan pengaturan ijin ini terlebih dahulu sebelum kamu dapat membuat dan menggunakan rumus terbilang excel ini.

  1. Klik File dari menutab

    Rumus terbilang excel - Screenshot langkah 1-1

  2. Klik Options

    Rumus terbilang excel - Screenshot langkah 1-2

  3. Klik Trust Center

    Rumus terbilang excel - Screenshot langkah 1-3

  4. Klik Trust Center Settings...

    Rumus terbilang excel - Screenshot langkah 1-4

  5. Klik Macro Settings

    Rumus terbilang excel - Screenshot langkah 1-5

  6. Klik pilihan Enable All Macros

    Rumus terbilang excel - Screenshot langkah 1-6

  7. Klik OK dan OK

    Rumus terbilang excel - Screenshot langkah 1-7-1

    Rumus terbilang excel - Screenshot langkah 1-7-2

  8. Klik File lagi lalu Save As

    Rumus terbilang excel - Screenshot langkah 1-8

  9. Pada dropdown Save as Type: pilih Excel Macro-Enabled Workbook

    Rumus terbilang excel - Screenshot langkah 1-9

  10. Namakan file kamu pada kolom input teks File Name:

    Rumus terbilang excel - Screenshot langkah 1-10

  11. Klik Save

    Rumus terbilang excel - Screenshot langkah 1-11




Membuat Rumus Excel Terbilang

Setelah mengatur ijin macro, saatnya membuat rumus terbilang excel di filemu melalui layar editor kode VBA macro

  1. Tekan Alt dan F11 secara bersamaan di keyboardmu
  2. Klik kanan pada tulisan “VBA Project…”

    Rumus terbilang excel - Screenshot langkah 2-2

  3. Sorot Insert dan pilih Module

    Rumus terbilang excel - Screenshot langkah 2-3

  4. Double klik pada menu Module yang muncul dan masukkan kode berikut di layar sebelah kanan

    Rumus terbilang excel - Screenshot langkah 2-4

    Function TERBILANG(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 TERBILANG = "nol": 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      
        Buf = Buf & EnglishDigitGroup(Int(n / Trillion)) & " triliun"      
        n = n - Int(n / Trillion) * Trillion      
        If (n >= 1@) Then Buf = Buf & " "    
      End If    

      If (n >= Billion) Then      
        Buf = Buf & EnglishDigitGroup(Int(n / Billion)) & " milyar"      
        n = n - Int(n / Billion) * Billion      
        If (n >= 1@) Then Buf = Buf & " "    
      End If    

      If (n >= Million) Then      
        Buf = Buf & EnglishDigitGroup(n \ Million) & " juta"      
        n = n Mod Million      
        If (n >= 1@) Then Buf = Buf & " "    
      End If    

      If (n >= Thousand) Then      
        Buf = Buf & EnglishDigitGroup(n \ Thousand) & " ribu"      
        n = n Mod Thousand      
        If (n >= 1@) Then Buf = Buf & " "    
      End If    

      If (n >= 1@) Then      
        Buf = Buf & EnglishDigitGroup(n)    
      End If    

      If (Frac = 0@) Then      
        Buf = Buf    
      ElseIf (Int(Frac * 100@) = Frac * 100@) Then      
        If AtLeastOne Then Buf = Buf & " "      
        Buf = Buf & Format$(Frac * 100@, "00") & "/100"    
      Else      
        If AtLeastOne Then Buf = Buf & " "      
        Buf = Buf & Format$(Frac * 10000@, "0000") & "/10000"    
      End If    

      TERBILANG = Buf
    End Function

    Private Function EnglishDigitGroup(ByVal n As Integer) As String    

      Const Hundred = "ratus"    
      Const One = "se"    
      Const Two = "dua "    
      Const Three = "tiga "    
      Const Four = "empat "    
      Const Five = "lima "    
      Const Six = "enam "    
      Const Seven = "tujuh "    
      Const Eight = "delapan "    
      Const Nine = "sembilan "    
      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 & "dua puluh": Flag = True      
        Case 3: Buf = Buf & "tiga puluh": Flag = True      
        Case 4: Buf = Buf & "empat puluh": Flag = True      
        Case 5: Buf = Buf & "lima puluh": Flag = True      
        Case 6: Buf = Buf & "enam puluh": Flag = True      
        Case 7: Buf = Buf & "tujuh puluh": Flag = True      
        Case 8: Buf = Buf & "delapan puluh": Flag = True      
        Case 9: Buf = Buf & "sembilan puluh": 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 & "satu"      
        Case 2: Buf = Buf & "dua"      
        Case 3: Buf = Buf & "tiga"      
        Case 4: Buf = Buf & "empat"      
        Case 5: Buf = Buf & "lima"      
        Case 6: Buf = Buf & "enam"      
        Case 7: Buf = Buf & "tujuh"      
        Case 8: Buf = Buf & "delapan"      
        Case 9: Buf = Buf & "sembilan"      
        Case 10: Buf = Buf & "sepuluh"      
        Case 11: Buf = Buf & "sebelas"      
        Case 12: Buf = Buf & "dua belas"      
        Case 13: Buf = Buf & "tiga belas"      
        Case 14: Buf = Buf & "empat belas"      
        Case 15: Buf = Buf & "lima belas"      
        Case 16: Buf = Buf & "enam belas"      
        Case 17: Buf = Buf & "tujuh belas"      
        Case 18: Buf = Buf & "delapan belas"      
        Case 19: Buf = Buf & "sembilan belas"    
       End Select    

       EnglishDigitGroup = Buf

    End Function


  5. Klik tanda X di kotak merah paling kanan atas untuk menutup layar editor kode VBA

    Rumus terbilang excel - Screenshot langkah 2-5




Menggunakan Rumus Excel Terbilang

Setelah memasukkan kode untuk membuat rumus terbilang excel tersebut, saatnya menggunakannya

  1. Ketik tanda sama dengan ( = ) di cell tempat kamu ingin menaruh hasil proses

    Rumus terbilang excel - Screenshot langkah 3-1

  2. Ketik TERBILANG (boleh dengan huruf besar atau huruf kecil) dan tanda buka kurung setelah =

    Rumus terbilang excel - Screenshot langkah 3-2

  3. Ketik angka atau koordinat cell tempat angka yang ingin kamu proses setelah tanda buka kurung

    Rumus terbilang excel - Screenshot langkah 3-3

  4. Ketik tanda tutup kurung

    Rumus terbilang excel - Screenshot langkah 3-4

  5. Tekan tombol Enter
  6. Proses selesai!

    Rumus terbilang excel - Screenshot langkah 3-6



Latihan


Setelah kamu mempelajari bagaimana cara membuat dan menggunakan rumus terbilang excel, kamu dapat mempraktekkan pemahaman kamu mengenai bagaimana menggunakan rumus excel terbilang dengan mengerjakan latihan ini!

Unduh file dari link berikut dan lakukan sesuai instruksi di bawah ini. Silahkan unduh jawabannya jika kamu sudah selesai menggunakan rumus excel terbilang untuk mengerjakannya dan yakin atas hasilnya!

Link unduh file untuk melatih pemahaman memakai rumus terbilang excel yang kamu miliki:
Unduh di sini

Instruksi:


Gunakan fungsi terbilang untuk membaca digit dari kolom pertama, kedua, dan ketiga!
Link unduh jawaban:
Unduh di sini


Catatan Tambahan

  • Rumus terbilang excel ini belum dapat dipakai untuk membaca angka di belakang koma
  • Rumus terbilang di excel ini tidak otomatis muncul setiap kali kamu membuka perangkat spreadsheet ini setelah kamu memasukkan kode rumus excel terbilangnya ke layar editor VBAmu untuk pertama kali. Jika ingin menggunakannya di file lain, kamu harus memasukannya lagi dengan mengulangi langkah pada tutorial ini.




Ingin Belajar Lebih Banyak Tentang Excel?


Dapatkan info excel terbaru dari Compute Expert dengan mendaftarkan emailmu. Gratis!


Ingin Belajar Lebih Banyak Tentang Excel?


Dapatkan info excel terbaru dari Compute Expert dengan mendaftarkan emailmu. Gratis!



Ikuti konten tutorial kami juga di


KONTAK KAMI KEBIJAKAN PRIVASI SYARAT DAN KETENTUAN KEBIJAKAN AFILIASI @Compute Expert