Cara Praktis Ubah Angka Jadi Tulisan Rupiah Otomatis di Excel

Sering bingung saat harus mengubah angka menjadi tulisan rupiah di Excel, misalnya untuk kwitansi, laporan keuangan, atau nota? 🤔 Ternyata ada cara praktisnya lho, cukup dengan sedikit trik VBA di Excel, angka akan otomatis berubah menjadi tulisan rupiah.

✨ Langkah-langkahnya:

1. Buka file Excel kamu.
2. Tekan Alt + F11 → masuk ke menu Visual Basic for Applications (VBA).
3. Klik Insert → Module, lalu masukkan kode VBA berikut:

Function Terbilang(ByVal X As Currency) As String
    Dim Bilangan As Variant
    Dim Satuan As Variant
    Dim i As Integer, n As Integer
    Dim Hasil As String

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

    If X < 12 Then
        Hasil = " " & Bilangan(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)
    Else
        Hasil = "Angka terlalu besar"
    End If

    Terbilang = Trim(Hasil) & " Rupiah"
End Function

📌 Cara Menggunakan:

Kembali ke Excel, lalu ketik rumus seperti ini di sel:

=Terbilang(A1)

Maka angka di sel A1 akan otomatis berubah menjadi tulisan rupiah.

📝 Contoh:

• Angka: 1250000
• Hasil: Satu Juta Dua Ratus Lima Puluh Ribu Rupiah

Dengan cara ini, pekerjaan jadi lebih cepat dan rapi tanpa harus menulis manual lagi ✅

Untuk yang masih kesulitan dengan VBA Excel, bisa klik link ini untuk postingan yang sama tanpa menggunakan VBA Excel.