Membuat Terbilang Otomatis Di Excel

Salah satu fungsi yang seringkali dibutuhkan dalam pengelolaan data di aplikasi spreadsheet seperti Excel adalah fungsi terbilang. Fungsi ini memungkinkan pengguna untuk mengkonversi angka dalam bentuk bilangan menjadi bentuk teks yang sama dengan ejaan kata. Misalnya, angka 135 akan dikonversi menjadi ejaan “seratus tiga puluh lima”. Fungsi terbilang dapat digunakan untuk berbagai keperluan, mulai dari pembuatan laporan keuangan hingga penulisan cek atau invoice.

Contoh Penggunaan Fungsi Terbilang di Excel

Untuk mengilustrasikan penggunaan fungsi terbilang, kita akan mencoba mengaplikasikan fungsi ini pada sebuah angka yang diinputkan pada sel tertentu di Excel. Misalnya, kita akan mengkonversi angka 1234 menjadi kata “seribu dua ratus tiga puluh empat”. Berikut adalah langkah-langkahnya:

1. Buatlah sebuah file baru di Excel
2. Isikan angka 1234 pada sel A1
3. Ketikkan rumus =terbilang(A1) pada sel B1
4. Teks terbilang akan muncul pada sel B1 dalam bahasa default yang diatur di komputer. Misalnya, pada komputer yang menggunakan bahasa Indonesia, teks yang muncul adalah “seribu dua ratus tiga puluh empat”.

Selain mengkonversi angka tunggal, fungsi terbilang juga dapat digunakan untuk mengkonversi rentang angka. Misalnya, jika ingin mengkonversi angka 1234 sampai 5678, maka dapat memanfaatkan rumus =terbilang(1234)&” sampai “&terbilang(5678) pada sel tertentu. Dalam hal ini, tanda & digunakan untuk menggabungkan teks yang berbeda. Hasilnya akan menjadi “seribu dua ratus tiga puluh empat sampai lima ribu enam ratus tujuh puluh delapan”.

Cara Membuat Fungsi Terbilang Otomatis di Excel

Selain menggunakan rumus terbilang bawaan Excel, kita juga dapat membuat fungsi terbilang sendiri dalam bahasa pemrograman VBA (Visual Basic for Applications). Dalam hal ini, fungsi terbilang dapat diaplikasikan ke sel mana pun di Excel dan akan berlaku otomatis ketika nilai sel tersebut berubah.

Berikut adalah langkah-langkah untuk membuat fungsi terbilang otomatis:

1. Buka Excel dan tekan tombol Alt+F11 untuk membuka Visual Basic Editor (VBE). Atau bisa juga dengan klik kanan pada Sheet > Jangan klik Edit, klik Insert
2. Pilih Insert > Module dari menu toolbar atas
3. Ketikkan kode program berikut pada jendela pengembang

Function Terbilang(Bilangan As Variant) As String
Dim Angka, X, Temp
Dim satuan(90 To 91), i: satuan(90) = "ribu": satuan(91) = "juta"
Angka = Format(Bilangan, "000000000000000")
For i = 1 To 3
    X = Val(Mid(Angka, (i - 1) * 3 + 1, 3))
    If X <> 0 Then
        Temp = ""
        If Int(X / 100) > 0 Then
            Temp = TerbilangInt(Int(X / 100)) & " ratus "
        End If
        If X Mod 100 >= 11 And X Mod 100 <= 19 Then
            Temp = Temp & TerbilangInt(X Mod 100) & " "
        Else
            If Int(X Mod 100 / 10) > 0 Then
                Temp = Temp & TerbilangInt(Int(X Mod 100 / 10) * 10) & " "
            End If
            If (X Mod 10) > 0 Then
                Temp = Temp & TerbilangInt(X Mod 10) & " "
            End If
        End If
        Temp = Temp & satuan((3 - i) + 90) & " "
        Terbilang = Terbilang & Temp
    End If
Next i

Terbilang = Trim(Terbilang)
If Bilangan < 0 Then
    Terbilang = "minus " & Terbilang
End If
End Function

Function TerbilangInt(ByVal Bilangan As Integer) As String
Dim Satuan(0 To 9) As String
Satuan(1) = "satu": Satuan(2) = "dua"
Satuan(3) = "tiga": Satuan(4) = "empat"
Satuan(5) = "lima": Satuan(6) = "enam"
Satuan(7) = "tujuh": Satuan(8) = "delapan"
Satuan(9) = "sembilan"

If Bilangan <= 9 Then
    TerbilangInt = Satuan(Bilangan)
ElseIf Bilangan >= 11 And Bilangan <= 19 Then
    TerbilangInt = Satuan(Bilangan - 10) & " belas "
ElseIf Bilangan >= 21 And Bilangan <= 99 Then
    TerbilangInt = TerbilangInt(Int(Bilangan / 10)) & " puluh " & Satuan(Bilangan Mod 10)
Else
    TerbilangInt = ""
End If
End Function

4. Simpan kode program dengan cara klik File > Save. Beri nama modul ini dengan nama bebas
5. Tutup jendela VBE dan kembali ke sheet Excel
6. Ketikkan angka pada sel tertentu. Misalnya, angka 1234 pada sel A1
7. Gunakan fungsi terbilang otomatis yang sudah dibuat pada sel lain. Misalnya, ketikkan formula =Terbilang(A1) pada sel B1
8. Teks terbilang akan muncul secara otomatis pada sel B1. Teks yang muncul akan sama dengan ejaan kata pada fungsi terbilang bawaan Excel
9. Untuk mengaplikasikan fungsi terbilang otomatis ke sel lainnya, cukup salin formula yang sudah dibuat pada sel B1 dan tempelkan pada sel lainnya yang diinginkan.

FAQ

1. Apakah fungsi terbilang hanya dapat menggunakan bahasa Indonesia?

Tidak, fungsi terbilang di Excel dapat digunakan untuk berbagai bahasa, tergantung dari pengaturan bahasa default di komputer. Selain bahasa Indonesia, Excel juga mendukung penggunaan bahasa Inggris, Prancis, Jepang, Spanyol, dan sebagainya.

2. Bisakah fungsi terbilang digunakan untuk mengkonversi angka desimal?

Secara default, fungsi terbilang bawaan Excel hanya dapat mengkonversi angka bulat. Namun, untuk mengkonversi angka desimal, kita dapat memanfaatkan rumus matematika pada Excel untuk memisahkan angka bulat dan angka desimal pada sebuah sel. Setelah itu, kita dapat mengaplikasikan fungsi terbilang pada angka bulat dan menambahkan kata “koma” pada teks yang dihasilkan, kemudian diikuti dengan pengkonversian angka desimal ke dalam teks yang sesuai.

Berikut adalah contoh penggunaan fungsi terbilang pada angka desimal:

1. Isikan angka 1234.56 pada sel A1
2. Ketikkan rumus =Terbilang(INT(A1))&” koma “&Terbilang(ROUND((A1-INT(A1))*100)) pada sel B1
3. Hasil yang diperoleh adalah “seribu dua ratus tiga puluh empat koma lima enam”

Video berikut dapat membantu Anda memahami cara membuat fungsi terbilang di Excel: