Membuat Rumus Terbilang di Excel

Discussion in 'Programming' started by Compute Expert, Mar 25, 2020.

  1. Compute Expert

    Compute Expert New Member

    Joined:
    Mar 6, 2020
    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    1
    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 = [email protected]

    Const Million = Thousand * Thousand

    Const Billion = Thousand * Million

    Const Trillion = Thousand * Billion


    If (n = [email protected]) Then TERBILANG = "nol": Exit Function


    Dim Buf As String: If (n < [email protected]) Then Buf = "negative " Else Buf = ""

    Dim Frac As Currency: Frac = Abs(n - Fix(n))

    If (n < [email protected] Or Frac <> [email protected]) 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 >= [email protected]) Then Buf = Buf & " "

    End If


    If (n >= Billion) Then

    Buf = Buf & EnglishDigitGroup(Int(n / Billion)) & " milyar"

    n = n - Int(n / Billion) * Billion

    If (n >= [email protected]) Then Buf = Buf & " "

    End If


    If (n >= Million) Then

    Buf = Buf & EnglishDigitGroup(n \ Million) & " juta"

    n = n Mod Million

    If (n >= [email protected]) Then Buf = Buf & " "

    End If


    If (n >= Thousand) Then

    Buf = Buf & EnglishDigitGroup(n \ Thousand) & " ribu"

    n = n Mod Thousand

    If (n >= [email protected]) Then Buf = Buf & " "

    End If


    If (n >= [email protected]) Then

    Buf = Buf & EnglishDigitGroup(n)

    End If


    If (Frac = [email protected]) Then

    Buf = Buf

    ElseIf (Int(Frac * [email protected]) = Frac * [email protected]) Then

    If AtLeastOne Then Buf = Buf & " "

    Buf = Buf & Format$(Frac * [email protected], "00") & "/100"

    Else

    If AtLeastOne Then Buf = Buf & " "

    Buf = Buf & Format$(Frac * [email protected], "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!
     
Loading...

Share This Page