Rumus Terbilang Excel

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

Share Rumus Terbilang Excel Compute Expert on Twitter

Share Rumus Terbilang Excel Compute Expert on WhatsApp

Share Rumus Terbilang Excel Compute Expert on LinkedIn

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.

Klik File dari menutab
Klik Options
Klik Trust Center
Klik Trust Center Settings...
Klik Macro Settings
Klik pilihan Enable All Macros
Klik OK dan OK
Klik File lagi lalu Save As
Pada dropdown Save as Type: pilih Excel Macro-Enabled Workbook
Namakan file kamu pada kolom input teks File Name:
Klik Save

Membuat Rumus Excel Terbilang

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

Tekan Alt dan F11 secara bersamaan di keyboardmu
Klik kanan pada tulisan “VBA Project…”
Sorot Insert dan pilih Module
Double klik pada menu Module yang muncul dan masukkan kode berikut di layar sebelah kanan

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
Klik tanda X di kotak merah paling kanan atas untuk menutup layar editor kode VBA

Menggunakan Rumus Excel Terbilang

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

Ketik tanda sama dengan ( = ) di cell tempat kamu ingin menaruh hasil proses
Ketik TERBILANG (boleh dengan huruf besar atau huruf kecil) dan tanda buka kurung setelah =
Ketik angka atau koordinat cell tempat angka yang ingin kamu proses setelah tanda buka kurung
Ketik tanda tutup kurung
Tekan tombol Enter
Proses selesai!

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.

Bahasa: |

BLOG TUTORIAL EXCEL - COMPUTE EXPERT

Tutorial rumus rumus excel dan lainnya tentang penggunaan excel yang mudah dipahami