Cara Mengubah Angka Menjadi Huruf (Terbilang) Dengan VBA Excel 2023

Microsoft Excel merupakan salah satu aplikasi pengolah data yang sangat populer dan sering digunakan untuk melakukan perhitungan atau analisis data. Salah satu fitur yang mungkin jarang digunakan namun berguna bagi pengguna adalah kemampuan untuk mengubah angka menjadi huruf terbilang. Dalam artikel ini, kami akan menjelaskan bagaimana cara mengubah angka menjadi huruf terbilang di Excel VBA.

Excel VBA adalah bahasa pemrograman yang digunakan untuk mengembangkan aplikasi makro di Excel. Dalam VBA, Anda dapat membuat sebuah fungsi kustom yang akan mengubah angka menjadi huruf terbilang.

Berikut adalah langkah-langkah untuk membuat fungsi terbilang di Excel VBA:

1. Buka Excel dan tekan tombol Alt + F11 untuk membuka Editor Visual Basic.
2. Pada jendela Editor Visual Basic, klik Insert > Module untuk membuat modul baru.
3. Beri nama modul tersebut dengan nama yang sesuai, seperti "ModulTerbilang".
4. Masukkan kode berikut ke dalam modul tersebut:

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 = "minus "

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

    If n < 0@ Or Frac <> 0@ Then n = Abs(Fix(n))

    

    If n >= Trillion Then Buf = Buf & EnglishDigitGroup(n \ Trillion) & " triliun ": n = n Mod Trillion

    If n >= Billion Then Buf = Buf & EnglishDigitGroup(n \ Billion) & " milyar ": n = n Mod Billion

    If n >= Million Then Buf = Buf & EnglishDigitGroup(n \ Million) & " juta ": n = n Mod Million

    If n >= Thousand Then Buf = Buf & EnglishDigitGroup(n \ Thousand) & " ribu ": n = n Mod Thousand

    

    If n > 0 Then Buf = Buf & EnglishDigitGroup(n)

    If Frac > 0 Then

        If n > 0 Then Buf = Buf & " "

        Buf = Buf & Format$(Frac * 100@, "00") & "/100"

    End If

    

    TERBILANG = Buf

End Function

Private Function EnglishDigitGroup(ByVal n As Integer) As String

    Const Hundred = "ratus"

    Const One = "satu "

    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 Boolean: 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

    

    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 & ""

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

Setelah kode selesai disalin, simpan modul tersebut dengan menekan Ctrl + S atau mengklik File > Save.

Dalam kode VBA di atas, terdapat beberapa variabel yang digunakan untuk menyimpan nilai-nilai terbilang dalam bahasa Indonesia. Variabel tersebut diisi dengan nilai terbilang untuk satuan, belasan, puluhan, ratusan, ribuan, jutaan, milyaran, dan triliunan.

Kode kemudian memeriksa nilai angka yang diberikan pada fungsi Terbilang dan mengubahnya menjadi huruf terbilang dengan menggunakan nilai-nilai terbilang yang disimpan dalam variabel tadi.

Setelah fungsi Terbilang selesai diimplementasikan, Anda dapat menggunakan fungsi tersebut pada sel Excel yang ingin diubah menjadi huruf terbilang. Dengan begitu, pengguna dapat dengan mudah mengubah nilai angka menjadi bentuk teks yang lebih mudah dibaca dan dimengerti.