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