Tip Excel: Membuat Fungsi Terbilang
Para akuntan dan bendahara boleh dibilang sangat sering membuat konversi bilangan dari angka menjadi teks terbilangnya, misalnya 123.456,789 menjadi “seratus dua puluh tiga ribu empat ratus lima puluh enam koma tujuh delapan sembilan”.
Kalau itu dilakukan secara manual, lama-lama tentu capek juga. Apalagi kalau jumlahnya banyak. Nah, bila pekerjaan itu dilakukan dengan Excel, ada trik yang bisa dilakukan agar pekerjaan lebih efisien. Trik tersebut adalah membuat fungsi terbilang dengan bahasa VBA (Visual Basic for Application).
Untuk memulai bekerja dengan VBA, terlebih dahulu tab Developer di Ribbon harus diaktifkan. Caranya adalah dengan mengeklik File > Options, lalu pada kotak dialog Excel Options, masuklah ke halaman Customize Ribbon. Aktifkan (beri tanda centang pada) item Developer yang terdapat di daftar sebelah kanan.
Setelah tab Developer muncul, klik tombol Visual Basic yang ada pada tab tersebut hingga muncul Visual Basic Editor. Pada project explorer, klik-kanan item This Workbook dan pada menu yang muncul pilih Insert Module.
Ke dalam module tersebut, masukkan kode program berikut:
Option Explicit Public Function Terbilang(x As Double) As String Dim tampung As Double Dim teks As String Dim bagian As String Dim i As Integer Dim tanda As Boolean Dim pecah As Double Dim blkg As String Dim letak(5) letak(1) = "ribu " letak(2) = "juta " letak(3) = "milyar " letak(4) = "trilyun " ' ini untuk angka di belakang koma If (Int(x) <> x) Then pecah = Round(x - Int(x), 4) blkg = belakang(pecah) x = Int(x) Else blkg = "" End If ''' If (x = 0) Then Terbilang = "nol " & blkg Exit Function End If If (x < 2000) Then tanda = True End If teks = "" If (x >= 1E+15) Then Terbilang = "Nilai terlalu besar" Exit Function End If For i = 4 To 1 Step -1 tampung = Int(x / (10 ^ (3 * i))) If (tampung > 0) Then bagian = ratusan(tampung, tanda) teks = teks & bagian & letak(i) End If x = x - tampung * (10 ^ (3 * i)) Next teks = teks & ratusan(x, False) Terbilang = teks & blkg End Function Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String Dim tmp As Double Dim bilang As String Dim bag As String Dim j As Integer Dim angka(9) angka(1) = "se" angka(2) = "dua " angka(3) = "tiga " angka(4) = "empat " angka(5) = "lima " angka(6) = "enam " angka(7) = "tujuh " angka(8) = "delapan " angka(9) = "sembilan " Dim posisi(2) posisi(1) = "puluh " posisi(2) = "ratus " bilang = "" For j = 2 To 1 Step -1 tmp = Int(y / (10 ^ j)) If (tmp > 0) Then bag = angka(tmp) If (j = 1 And tmp = 1) Then y = y - tmp * 10 ^ j If (y >= 1) Then posisi(j) = "belas " Else angka(y) = "se" End If bilang = bilang & angka(y) & posisi(j) ratusan = bilang Exit Function Else bilang = bilang & bag & posisi(j) End If End If y = y - tmp * 10 ^ j Next If (flag = False) Then angka(1) = "satu " End If bilang = bilang & angka(y) ratusan = bilang End Function Function belakang(ByVal pch As Double) As String Dim strblk(10) Dim pj As Integer Dim strpch As String Dim i As Integer Dim strbel As String Dim tmp As String strblk(1) = "nol " strblk(2) = "satu " strblk(3) = "dua " strblk(4) = "tiga " strblk(5) = "empat " strblk(6) = "lima " strblk(7) = "enam " strblk(8) = "tujuh " strblk(9) = "delapan " strblk(10) = "sembilan " strbel = "" strpch = Str(pch) pj = Len(strpch) For i = 3 To pj tmp = Mid(strpch, i, 1) strbel = strbel & strblk(CInt(tmp) + 1) Next belakang = "koma " & strbel End Function
Lalu bagaimana cara menggunakannya? Mudah saja. Misalnya di sel A1 ada angka 12345 dan ingin dibuat teks terbilangnya di sel A2, ke dalam sel A2 masukkan formula berikut:
=Terbilang(A1)
Hasilnya adalah “dua belas ribu tiga ratus empat puluh lima”.
Nah, jika hendak disimpan, jangan lupa untuk menyimpannya dalam format Macro-Enabled Workbook yang memiliki ekstensi .xlsm.
Follow me on social media:
NICE POSTING ….TERIMA KASIH
Mantap. Terima kasih
Bermanfaat bagi saya, Terima Kasih