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”.

Membuat Terbilang Otomatis Di Excel

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”.

Baca Juga :  CARA MENGGABUNGKAN 2 FILE DI EXCEL

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

Screenshot fungsi terbilang otomatis di Excel

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: