Fungsi Terbilang Di Excel

Gambar I

• Buka file Excel, masuk ke menu Tools → Macro → Visual Basic Editor, setelah Visual Basic Editor terbuka, Anda masuk ke menu Insert → Module, kemudian Copy pastekan kode dibawah ini ( Lihat Gambar II ):

Public Function jamak(strAngka As String, _ Optional MataUang As String = "Rupiah") As String Dim strJmlHuruf$, intPecahan As Integer Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$ Dim X As Integer, Y As Integer, z As Integer On Error GoTo Pesan Dim strValid As String, huruf As String * 1 Dim i As Integer strValid = "1234567890" For i% = 1 To Len(strAngka) huruf = Chr(Asc(Mid(strAngka, i%, 1))) If InStr(strValid, huruf) = 0 Then Set AngkaTerbilang = Nothing MsgBox "Harus karakter angka!", _ vbCritical, "Jamak Berpesan" Exit Function End If Next i% If strAngka = "" Then Exit Function If Len(Trim(strAngka)) > 15 Then GoTo Pesan strJmlHuruf = LTrim(strAngka) If (intPecahan = 0) Then strPecahan = "" Else strPecahan = "" End If X = 0 Y = 0 Urai = "" While (X < Len(strJmlHuruf)) X = X + 1 strTot = Mid(strJmlHuruf, X, 1) Y = Y + Val(strTot) z = Len(strJmlHuruf) - X + 1 Select Case Val(strTot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then Bil1 = "Satu " ElseIf (z = 4) Then If (X = 1) Then Bil1 = "Se" Else Bil1 = "Satu " End If ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then X = X + 1 strTot = Mid(strJmlHuruf, X, 1) z = Len(strJmlHuruf) - X + 1 Bil2 = "" Select Case Val(strTot) Case 0: Bil1 = "Sepuluh " Case 1: Bil1 = "Sebelas " Case 2: Bil1 = "Dua Belas " Case 3: Bil1 = "Tiga Belas " Case 4: Bil1 = "Empat Belas " Case 5: Bil1 = "Lima Belas " Case 6: Bil1 = "Enam Belas " Case 7: Bil1 = "Tujuh Belas " Case 8: Bil1 = "Delapan Belas " Case 9: Bil1 = "Sembilan Belas " End Select Else Bil1 = "Se" End If Case 2: Bil1 = "Dua " Case 3: Bil1 = "Tiga " Case 4: Bil1 = "Empat " Case 5: Bil1 = "Lima " Case 6: Bil1 = "Enam " Case 7: Bil1 = "Tujuh " Case 8: Bil1 = "Delapan " Case 9: Bil1 = "Sembilan " Case Else Bil1 = "" End Select If (Val(strTot) > 0) Then If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then Bil2 = "Puluh " ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then Bil2 = "ratus " Else Bil2 = "" End If Else Bil2 = "" End If If (Y > 0) Then Select Case z Case 4: Bil2 = Bil2 + "ribu " Y = 0 Case 7: Bil2 = Bil2 + "Juta " Y = 0 Case 10: Bil2 = Bil2 + "Milyar " Y = 0 Case 13: Bil2 = Bil2 + "Trilyun " Y = 0 End Select End If Urai = Urai + Bil1 + Bil2 Wend Urai = Urai + strPecahan jamak = StrConv((Urai & MataUang), vbProperCase) Exit Function Pesan: jamak = "(maksimal 15 digit)" End Function

Gambar II

• Kemudian click Save dan Close (Visual Basic editor). Sekarang fungsi buatan terbilang sudah siap digunakan.

Catatan :

1. Kode macro VB hanya bisa berjalan di excel setelah anda mensetting securrity kenilai low, caranya masuk ke menu Tools → Macro → Security, pilih security Level dengan nilai Low.
2. Fungsi diatas hanya berlaku untuk satu Workbook / satu file saja, kalau anda menginginkan fungsi buatan tersebut bisa diaplikasikan ke semua file Excel, anda harus menyimpan file tersebut menjadi File Add-in, caranya klik Save/Save as, setelah muncul kotak dialog, pada bagian Save as Type pilih Microsoft Office excel Add-ins, simpan dengan nama file "Terbilang",setelah disimpan sekarang anda klik menu Tools → add-Ins → klik Browse dan buka file "Terbilang" yang baru anda simpan.
3. Untuk pemakaian fungsi ketik = jamak(A1), "A1" merupakan contoh lokasi nilai yang akan di konversi

• Sekarang Fungsi terbilang sudah bisa diaplikasikan.