Membuat Rumus Terbilang di Excel

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

Jika kita melakukan pengolahan digit tersebut di dalam excel, perangkat spreadsheet ini sendiri sebenarnya tidak menyediakan satu formula khusus untuk membantu proses mengubah digit menjadi bentuk bacaan huruf. Namun hal yang dapat membantu kita dalam hal ini adalah tersedianya fitur di mana kita dapat membuat formula sendiri sesuai keinginan kita di dalamnya. Oleh karena itu, jika kita sering membutuhkan proses mengubah data angka menjadi bentuk bacaan terbilang, maka formulasi rumus excel untuk hal tersebut menjadi suatu hal penting untuk kita lakukan dan pahami cara pakainya. Sebab itu, di thread ini, saya menyediakan kode VBA untuk rumus terbilang excel terkustomisasi di mana kodenya dapat langsung kamu ambil untuk dipakai di spreadsheetmu.

Berikut akan dijabarkan cara membuat rumus excel terbilang di dalam editor VBAmu dan memakai formula tersebut.

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

1. Klik File dari menutab
2. Klik Options
3. Klik Trust Center
4. Klik Trust Center Settings…
5. Klik Macro Settings
6. Klik pilihan Enable all macros
7. Klik OK dan OK
8. Klik File lagi lalu Save As
9. Pada dropdown Save as Type: pilih Excel Macro-Enabled Workbook
10. Namakan file kamu pada kolom input teks File Name:
11. Klik Save

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…”
3. Sorot Insert dan pilih Module
4. 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

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
2. Ketik TERBILANG (boleh dengan huruf besar atau huruf kecil) dan tanda buka kurung setelah =
3. Ketik angka atau koordinat cell tempat angka yang ingin kamu proses setelah tanda buka kurung
4. Ketik tanda tutup kurung
5. Tekan tombol Enter
6. Proses selesai!