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.
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.
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:
- Pada aplikasi Ms. Excel, klik menu Developer – Visual Basic atau tekan tombol ALT + F11 pada keyboard untuk membuka aplikasi Visual Basic.
- Pada aplikasi Visual Basic, klik menu Insert – Module untuk membuat modul baru.
- 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
- Setelah kode program dimasukkan pada modul, klik menu File – Save untuk menyimpan perubahan yang telah dilakukan.
- 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.
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