Pengertian Fungsi Terbilang

Fungsi Terbilang digunakan untuk mengubah angka menjadi tulisan huruf secara otomatis di Microsoft Excel.

Contoh:

• 1000000 → Satu Juta Rupiah
• 250000 → Dua Ratus Lima Puluh Ribu Rupiah

Fungsi ini sering digunakan pada:

• Invoice
• Kwitansi
• Laporan pembayaran
• Administrasi keuangan

---

Persiapan

Software yang Dibutuhkan

• Microsoft Excel 2010 / 2013 / 2016 / 2019 / 365

---

Langkah Membuat Fungsi Terbilang

1. Buka Microsoft Excel

Buat file baru atau buka file Excel Anda.

---

2. Membuka VBA Editor

Tekan tombol berikut pada keyboard:

ALT + F11

Maka akan muncul halaman Microsoft Visual Basic for Applications.

---

3. Membuat Module Baru

Klik menu:

Insert → Module

Setelah itu akan muncul halaman kosong untuk menulis kode VBA.

---

4. Copy Paste Script Berikut

Salin seluruh kode di bawah ini:

Function Terbilang(ByVal Nilai As Variant) As String

Dim Angka As Variant
Dim Hasil As String
Dim x As Double

' Membersihkan format currency
Nilai = Replace(Nilai, "Rp", "")
Nilai = Replace(Nilai, ".", "")
Nilai = Replace(Nilai, ",00", "")
Nilai = Trim(Nilai)

x = Val(Nilai)

Angka = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", _
"Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

If x < 12 Then
    Hasil = " " & Angka(x)

ElseIf x < 20 Then
    Hasil = Terbilang(x - 10) & " Belas"

ElseIf x < 100 Then
    Hasil = Terbilang(Int(x / 10)) & " Puluh " & _
             Terbilang(x Mod 10)

ElseIf x < 200 Then
    Hasil = " Seratus " & Terbilang(x - 100)

ElseIf x < 1000 Then
    Hasil = Terbilang(Int(x / 100)) & " Ratus " & _
             Terbilang(x Mod 100)

ElseIf x < 2000 Then
    Hasil = " Seribu " & Terbilang(x - 1000)

ElseIf x < 1000000 Then
    Hasil = Terbilang(Int(x / 1000)) & " Ribu " & _
             Terbilang(x Mod 1000)

ElseIf x < 1000000000 Then
    Hasil = Terbilang(Int(x / 1000000)) & " Juta " & _
             Terbilang(x Mod 1000000)

ElseIf x < 1000000000000# Then
    Hasil = Terbilang(Int(x / 1000000000#)) & " Milyar " & _
             Terbilang(x Mod 1000000000#)

Else
    Hasil = "Angka terlalu besar"
End If

Terbilang = WorksheetFunction.Trim(Hasil) & " Rupiah"

End Function

---

5. Simpan File Excel

Klik:

File → Save As

Pilih format:

Excel Macro-Enabled Workbook (*.xlsm)

Agar macro tersimpan dan dapat digunakan.

---

Cara Menggunakan Fungsi Terbilang

Contoh Data

A	B
Jumlah	Dengan Huruf
10000000	=Terbilang(A2)

---

Hasil

Jumlah	Dengan Huruf
10000000	Sepuluh Juta Rupiah

---

Menggunakan Format Rupiah

Agar angka tampil menjadi format Rupiah:

Blok cell angka

Tekan:

CTRL + 1

Pilih:

• Currency
• Accounting

Maka angka akan tampil seperti:

Rp 10.000.000,00

Tetapi fungsi terbilang tetap berjalan normal.

---

Contoh Penggunaan

Contoh 1

Angka	Hasil
5000	Lima Ribu Rupiah

---

Contoh 2

Angka	Hasil
125000	Seratus Dua Puluh Lima Ribu Rupiah

---

Contoh 3

Angka	Hasil
2500000	Dua Juta Lima Ratus Ribu Rupiah

---

Kelebihan Script Ini

✅ Support format Rupiah
✅ Tidak error saat format Currency
✅ Tidak dobel kata “Rupiah”
✅ Mudah digunakan
✅ Cocok untuk invoice dan kwitansi

---

Kesimpulan

Dengan VBA Macro, Excel dapat memiliki fungsi tambahan seperti Terbilang untuk mengubah angka menjadi huruf secara otomatis.

Fitur ini sangat membantu pekerjaan administrasi dan keuangan agar lebih cepat dan profesional.