Cara Membuat Terbilang Berwarna di Excel (Lengkap dengan VBA)

Halo Sobat, Di Excel, kita sering butuh mengubah angka menjadi tulisan (terbilang), misalnya untuk nota kontan, laporan keuangan, kwitansi, atau invoice. Masalahnya, hasil terbilang biasanya hanya berupa teks biasa.

Cara Membuat Terbilang Berwarna di Excel

Di sini kita akan membuat:

• Angka otomatis jadi terbilang
• Kata tertentu seperti "ribu, juta, miliar" bisa diberi warna berbeda

Jadi hasilnya tidak hanya informatif, tapi juga lebih enak dibaca.

Hasil yang Akan Didapat

Misalnya kita isi:

A2 = 1500000

Maka di B2 akan muncul:

-----

Satu juta lima ratus ribu

-----

Dengan:

• kata "juta" berwarna hijau
• kata "ribu" berwarna merah

Langkah 1 – Masuk ke VBA

1. Buka Excel

2. Tekan ALT + F11

3. Akan muncul jendela VBA

Langkah 2 – Buat Module

1. Klik menu Insert → Module

2. Masukkan kode berikut:

Public Sub WarnaTerbilangSimple(rng As Range)

    If rng.Value = "" Then Exit Sub

    

    ' reset warna jadi hitam

    rng.Font.Color = RGB(0, 0, 0)

    

    ' pengaturan warna kata

    Call Warnai(rng, "triliun", RGB(255, 0, 0))   ' merah

    Call Warnai(rng, "miliar", RGB(0, 0, 255))    ' biru

    Call Warnai(rng, "juta", RGB(0, 255, 0))      ' hijau

    Call Warnai(rng, "ribu", RGB(255, 165, 0))    ' orange

    Call Warnai(rng, "ratus", RGB(128, 0, 128))   ' ungu

    Call Warnai(rng, "puluh", RGB(0, 128, 128))   ' teal

    Call Warnai(rng, "koma", RGB(128, 128, 128))  ' abu-abu

End Sub

Private Sub Warnai(rng As Range, kata As String, warna As Long)

    Dim posisi As Long

    

    posisi = InStr(1, rng.Value, kata, vbTextCompare)

    

    Do While posisi > 0

        rng.Characters(posisi, Len(kata)).Font.Color = warna

        posisi = InStr(posisi + 1, rng.Value, kata, vbTextCompare)

    Loop

End Sub

Kode bisa diunduh di bagian bawah halaman ini.

Langkah 3 – Tambahkan Fungsi Terbilang

Gunakan fungsi terbilang yang sudah kamu pakai sebelumnya.

Jika kamu belum menggunakan fungsi terbilang, silakan baca Rumus Terbilang di Excel tanpa Add in Terbilang, Bebas pindah komputer laptop rumus tetap work

Langkah 4 – Pasang di Sheet

1. Klik Sheet1 (atau sheet yang kamu pakai/disesuaikan)

2. Masukkan kode berikut:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A2")) Is Nothing Then

        

        Application.EnableEvents = False

        

        ' hasil terbilang

        Range("B2").Value = Terbilang(Target.Value)

        

        ' beri warna otomatis

        Call WarnaTerbilangSimple(Range("B2"))

        

        Application.EnableEvents = True

        

    End If

End Sub

Kode bisa diunduh di bagian bawah halaman ini.

Cara Menggunakan

1. Ketik angka di sel A2

2. Tekan Enter

3. Hasil langsung muncul di B2 lengkap dengan warna

Hal Penting yang Perlu Diperhatikan

• Jangan isi B2 dengan rumus `=Terbilang(A2)`
• B2 harus kosong, karena akan diisi oleh VBA
• Kalau tidak, warna tidak akan muncul

Cara Mengubah Warna

Tinggal ubah bagian ini:

Call Warnai(rng, "juta", RGB(0, 255, 0))

Misalnya:

• jadi merah → `RGB(255,0,0)`
• jadi biru → `RGB(0,0,255)`

Contoh Kode Warna RGB

Menambah atau Menghapus Kata

Kalau mau tambah:

Call Warnai(rng, "sen", RGB(255, 0, 255))

Kalau tidak mau warna tertentu, tinggal hapus barisnya saja.

-----------

Dengan cara ini, fungsi terbilang di Excel jadi lebih fleksibel dan menarik.

Tidak hanya menampilkan angka dalam bentuk tulisan, tapi juga membantu pembacaan dengan warna.

Cocok dipakai untuk:

• laporan keuangan
• invoice
• kwitansi
• atau dokumen resmi lainnya

Selamat mencoba.

Silakan download kodenya pada tombol berikut:

Dapatkan Kode VBA