Fitur mengubah angka menjadi huruf secara otomatis di Excel

• Posted by : Adi Mulyadi
• on : Tuesday, June 17, 2025

 Fitur mengubah angka menjadi huruf secara otomatis di Excel

Fitur mengubah angka menjadi huruf secara otomatis di Excel (misalnya, 26 menjadi "dua puluh enam") tidak tersedia secara bawaan di Excel dalam bahasa Indonesia. Namun, ada dua cara utama untuk melakukannya:

1. Menggunakan Add-in "Terbilang" (Paling Populer untuk Bahasa Indonesia)

Ini adalah cara yang paling umum dan direkomendasikan untuk pengguna Excel di Indonesia. Add-in ini adalah program kecil yang ditambahkan ke Excel untuk memberikan fungsionalitas baru, dalam hal ini fungsi TERBILANG().

Langkah-langkah umum:

1. Unduh Add-in Terbilang: Cari "download add-in terbilang excel" di internet. Anda akan menemukan banyak sumber yang menyediakan file .xla atau .xlam. Pastikan Anda mengunduh dari sumber yang terpercaya.
2. Aktifkan Macro di Excel: Karena add-in ini berbasis makro (VBA), Anda perlu mengaktifkan pengaturan makro di Excel Anda agar add-in dapat berjalan.
   • Buka Excel.
   • Klik File > Options (Opsi).
   • Pilih Trust Center (Pusat Kepercayaan) > Trust Center Settings (Pengaturan Pusat Kepercayaan).
   • Klik Macro Settings (Pengaturan Makro).
   • Pilih Enable all macros (not recommended; potentially dangerous code can run) atau Aktifkan semua makro (tidak disarankan; kode yang berpotensi berbahaya dapat berjalan). (Peringatan: Pilihan ini membuat Excel lebih rentan terhadap virus, jadi berhati-hatilah dengan file yang Anda buka setelah mengaktifkan ini).
   • Klik OK dua kali.
3. Instal Add-in Terbilang:
   • Kembali ke Excel Options, pilih Add-ins.
   • Di bagian bawah, pada kotak Manage (Kelola), pilih Excel Add-ins (Add-ins Excel), lalu klik Go... (Pergi...).
   • Kotak dialog Add-Ins akan muncul. Klik Browse... (Jelajahi...) dan arahkan ke lokasi file add-in Terbilang (.xla atau .xlam) yang sudah Anda unduh.
   • Pilih file tersebut, klik OK.
   • Pastikan ada tanda centang di samping "Terbilang" (atau nama add-in yang muncul) di daftar Add-Ins yang tersedia.
   • Klik OK.

Cara Menggunakan Fungsi TERBILANG():

Setelah add-in terinstal, Anda bisa menggunakan fungsi TERBILANG() seperti fungsi Excel biasa.

Misalnya, jika angka 26 ada di Kolom A1, di Kolom B1 (atau kolom mana pun), Anda bisa mengetik rumus:

Function Terbilang(Nilai As Variant) As String

    Dim Bilangan(15) As String

    Dim Hasil As String

    Dim Temp As String

    Dim i As Integer, j As Integer

    Dim Koma As String

    Dim Kanjutan As String

    Bilangan(1) = ""

    Bilangan(2) = "Satu"

    Bilangan(3) = "Dua"

    Bilangan(4) = "Tiga"

    Bilangan(5) = "Empat"

    Bilangan(6) = "Lima"

    Bilangan(7) = "Enam"

    Bilangan(8) = "Tujuh"

    Bilangan(9) = "Delapan"

    Bilangan(10) = "Sembilan"

    Bilangan(11) = "Sepuluh"

    Bilangan(12) = "Sebelas"

    If IsNumeric(Nilai) = False Then

        Terbilang = "#VALUE!"

        Exit Function

    End If

    Nilai = Trim(Str(Nilai))

    If InStr(Nilai, ".") > 0 Then

        Koma = Right(Nilai, Len(Nilai) - InStr(Nilai, "."))

        Nilai = Left(Nilai, InStr(Nilai, ".") - 1)

    End If

    i = 1

    Do While Nilai <> ""

        Temp = ""

        If Len(Nilai) > 3 Then

            Kanjutan = Right(Nilai, 3)

            Nilai = Left(Nilai, Len(Nilai) - 3)

        Else

            Kanjutan = Nilai

            Nilai = ""

        End If

        If Val(Kanjutan) <> 0 Then

            Select Case Len(Kanjutan)

                Case 3

                    If Mid(Kanjutan, 1, 1) = "1" Then

                        Temp = "Seratus "

                    ElseIf Mid(Kanjutan, 1, 1) <> "0" Then

                        Temp = Bilangan(Val(Mid(Kanjutan, 1, 1)) + 1) & " Ratus "

                    End If

                    GoTo PuluhBelas

                Case 2

PuluhBelas:

If Mid(Kanjutan, Len(Kanjutan) - 1, 1) = "1" Then

Select Case Val(Right(Kanjutan, 1))

Case 0: Temp = Temp & "Sepuluh "

Case 1: Temp = Temp & "Sebelas "

Case Else: Temp = Temp & Bilangan(Val(Right(Kanjutan, 1)) + 1) & " Belas "

End Select

ElseIf Mid(Kanjutan, Len(Kanjutan) - 1, 1) = "0" Then

Temp = Temp & Bilangan(Val(Right(Kanjutan, 1)) + 1) & " "

ElseIf Right(Kanjutan, 1) = "0" Then

Temp = Temp & Bilangan(Val(Mid(Kanjutan, Len(Kanjutan) - 1, 1)) + 1) & " Puluh "

Else

Temp = Temp & Bilangan(Val(Mid(Kanjutan, Len(Kanjutan) - 1, 1)) + 1) & " Puluh " & Bilangan(Val(Right(Kanjutan, 1)) + 1) & " "

End If

Case 1

Temp = Temp & Bilangan(Val(Kanjutan) + 1) & " "

End Select

End If

        Select Case i

            Case 2: Temp = Temp & "Ribu "

            Case 3: Temp = Temp & "Juta "

            Case 4: Temp = Temp & "Milyar "

            Case 5: Temp = Temp & "Triliun "

        End Select

        Hasil = Temp & Hasil

        i = i + 1

    Loop

    If Trim(Hasil) = "" Then

        Terbilang = "Nol"

    ElseIf Hasil = "Satu Ribu " Then

        Terbilang = "Seribu "

    Else

        Terbilang = Trim(Hasil)

    End If

    If Koma <> "" Then

        Terbilang = Terbilang & " Koma "

        For j = 1 To Len(Koma)

            Terbilang = Terbilang & Bilangan(Val(Mid(Koma, j, 1)) + 1) & " "

        Next j

    End If

    Terbilang = Trim(Terbilang)

End Function