Cara Membuat Fungsi Angka Terbilang Otomatis Di Excel

Saat melakukan pengolahan data dalam Ms. Excel, terkadang kita perlu menuliskan angka dalam bentuk terbilang. Hal ini tentu bukan menjadi hal yang mudah bagi sebagian orang, terutama bagi mereka yang kurang familiar dengan rumus-rumus dalam Ms. Excel. Namun, jangan khawatir karena ada beberapa cara mudah untuk menulis angka dalam bentuk terbilang di Ms. Excel.

1. Menggunakan Fungsi Terbilang Bawaan Ms. Excel

Cara yang paling mudah untuk menuliskan angka dalam bentuk terbilang di Ms. Excel adalah dengan menggunakan fungsi terbilang bawaan Ms. Excel. Fungsi terbilang ini akan mengubah angka yang ada di dalam sel menjadi format terbilang yang sudah disesuaikan dengan bahasa Indonesia.

Untuk menggunakan fungsi terbilang ini, kita hanya perlu mengetikkan formula =TERBILANG(angka) pada sel yang diinginkan, kemudian tekan Enter. Contohnya, jika kita ingin menuliskan angka 500 dalam bentuk terbilang, kita hanya perlu mengetikkan formula =TERBILANG(500) pada sel yang diinginkan. Hasilnya akan muncul “lima ratus” sebagai format terbilang dari angka 500.

Cara Membuat Fungsi Angka Terbilang Otomatis Di Excel

Selain itu, kita juga dapat menggunakan bantuan fungsi IFERROR pada formula untuk menampilkan pesan error jika terdapat kesalahan input pada angka yang ingin diubah menjadi terbilang. Contohnya, jika kita ingin menuliskan angka 1001 dalam bentuk terbilang, kita bisa menggunakan formula =IFERROR(TERBILANG(1001),”Angka Tidak Valid”) pada sel yang diinginkan. Jika angka yang diinputkan salah, maka akan muncul pesan “Angka Tidak Valid” pada sel tersebut.

Baca Juga :  CARA CONVERT FILE GDB KE EXCEL

2. Menggunakan Fungsi Terbilang dengan Macro

Selain menggunakan fungsi terbilang bawaan Ms. Excel, kita juga dapat menggunakan macro untuk mengubah angka menjadi terbilang. Macro adalah serangkaian instruksi yang dikemas dalam satu perintah sehingga dapat memudahkan kita dalam melakukan pemrosesan data secara otomatis.

Untuk membuat macro yang dapat mengubah angka menjadi terbilang, kita perlu melakukan beberapa langkah berikut:

  1. Pada aplikasi Ms. Excel, klik menu Developer – Visual Basic atau tekan tombol ALT + F11 pada keyboard untuk membuka aplikasi Visual Basic.
  2. Pada aplikasi Visual Basic, klik menu Insert – Module untuk membuat modul baru.
  3. Ketikkan kode program berikut pada modul yang baru dibuat:
    Function Terbilang(ByVal x As Double) As String
        Dim bilangan As Variant, bagian As Variant, hasilBulat As Long, _
            sisaAngka As Double, Satuan() As String, _
            Puluhan() As String, Ratusan() As String, _
            ratusanSisa As String, hasil As String
        Dim lenBilangan As Integer, i As Integer, _
            ejaBelakang As Boolean, Satuan2() As String, _
            currentIndex As Integer, lastSatuan As String
            
        If x < 0 Then
            Terbilang = "Minus " & Terbilang(-x)
            Exit Function
        End If
        bilangan = Format(x, "##########.0000")
        bilangan = Replace(bilangan, ".", "")
        
        Satuan = Split("satu,ribu,juta,milyar,triliun", ",")
        Satuan2 = Split("se,", ",")
        Puluhan = Split("sepuluh,sebelas,dua,belas,tiga,belas,empat,belas,lima,belas,_,enam,belas,tujuh,belas,delapan,belas,sembilan,belas", ",")
        Ratusan = Split("seratus,dua ratus,tiga ratus,empat ratus,lima ratus,enam ratus,tujuh ratus,delapan ratus,sembilan ratus", ",")
        
        lenBilangan = Len(bilangan)
        hasilBulat = CLng(Left(bilangan, lenBilangan - 3))
        sisaAngka = Mid(bilangan, lenBilangan - 2, 3)
        
        currentIndex = 0
        hasil = ""
        Do While hasilBulat > 0 Or sisaAngka > 0
            If currentIndex > 0 Then
                If ejaBelakang Then
                    If lastSatuan = "satu" And bilangan <> "001" And bilangan <> "1001" And bilangan <> "000001" And bilangan <> "1000001" Then
                        hasil = Satuan2(currentIndex) & hasil
                        lastSatuan = Satuan2(currentIndex)
                    Else
                        hasil = Satuan(currentIndex) & hasil
                        lastSatuan = Satuan(currentIndex)
                    End If
                    ejaBelakang = False
                Else
                    If lastSatuan = "satu" Then
                        hasil = Satuan2(currentIndex) & " " & hasil
                        lastSatuan = Satuan2(currentIndex)
                    Else
                        hasil = Satuan(currentIndex) & " " & hasil
                        lastSatuan = Satuan(currentIndex)
                    End If
                End If
            End If
            bagian = hasilBulat Mod 1000
            hasilBulat = hasilBulat \ 1000
            ratusanSisa = ""
            If bagian >= 100 Then
                ratusanSisa = Ratusan(bagian \ 100 - 1)
                bagian = bagian Mod 100
            End If
            If bagian >= 20 Then
                hasil = Puluhan(bagian \ 10 - 1) & " " & ratusanSisa & " " & hasil
                lastSatuan = Puluhan(bagian \ 10 - 1)
                If bagian Mod 10 = 1 And bagian \ 10 <> 1 And bagian \ 10 <> 0 Then
                    ejaBelakang = True
                End If
            ElseIf bagian >= 10 Then
                hasil = Puluhan(bagian Mod 10 + 9) & " " & ratusanSisa & " " & hasil
                lastSatuan = Puluhan(bagian Mod 10 + 9)
            ElseIf bagian > 0 Then
                If ratusanSisa <> "" Then
                    hasil = ratusanSisa & " ratus " & _
                        Puluhan(bagian Mod 10 - 1) & " " & hasil
                    lastSatuan = Puluhan(bagian Mod 10 - 1)
                    If bagian Mod 10 = 1 And bagian \ 10 <> 1 And bagian \ 10 <> 0 Then
                        ejaBelakang = True
                    End If
                Else
                    hasil = Puluhan(bagian Mod 10 - 1) & " " & hasil
                    lastSatuan = Puluhan(bagian Mod 10 - 1)
                    If bagian Mod 10 = 1 And bagian \ 10 <> 1 And bagian \ 10 <> 0 Then
                        ejaBelakang = True
                    End If
                End If
            End If
            currentIndex = currentIndex + 1
        Loop
        Terbilang = hasil
    End Function
            
  4. Setelah kode program dimasukkan pada modul, klik menu File – Save untuk menyimpan perubahan yang telah dilakukan.
  5. Untuk mengubah angka menjadi terbilang dengan menggunakan macro yang telah dibuat, kita hanya perlu mengetikkan formula =Terbilang(angka) pada sel yang diinginkan, kemudian tekan Enter. Contohnya, jika kita ingin menuliskan angka 12345 dalam bentuk terbilang, kita hanya perlu mengetikkan formula =Terbilang(12345) pada sel yang diinginkan.
Baca Juga :  Cara Menghitung Data Kuesioner Dengan Excel

Contoh penggunaan fungsi terbilang dengan macro

Meskipun cara ini membutuhkan sedikit pengetahuan tentang pemrograman, namun dengan mengikuti langkah-langkah di atas, kita dapat dengan mudah membuat macro yang dapat mengubah angka menjadi terbilang di Ms. Excel.

FAQ

1. Apakah fungsi terbilang bawaan Ms. Excel bisa digunakan untuk semua bahasa?

Ya, fungsi terbilang bawaan Ms. Excel dapat digunakan untuk semua bahasa, namun format terbilang yang dihasilkan akan disesuaikan dengan bahasa yang dipilih di komputer kita.

2. Bagaimana jika input angka yang ingin diubah menjadi terbilang tidak valid?

Jika input angka yang ingin diubah menjadi terbilang tidak valid, misalnya inputnya bukan angka atau inputnya terlalu besar atau kecil, maka fungsi terbilang bawaan Ms. Excel akan menampilkan pesan error. Sedangkan pada macro, kita sudah menambahkan instruksi untuk menampilkan pesan error jika input angka tidak valid.

Video Tutorial: Cara Membuat Terbilang Rupiah di Excel