Fungsi Terbilang Pada MS. Excel ( Functions Spelled Currency In MS. Excel )

Fungsi terbilang adalah fungsi yang mengubah nilai nominal menjadi huruf-huruf. Fungsi ini memanfaatkan Visual Basic Editor yang disediakan oleh Excel. Fungsi terbilang merupakan fungsi yang bersifat User Defined. Untuk membuat fungsi ini ikuti langkah-langkah sebagai berikut:

1. Klik kanan pada tab sheet - pilih View Code atau Pilih menu bar Tools - Macro - Visual Basic Editor atau dengan menekan shortcut Alt+F11.
   
   
   
   
   Maka akan muncul tampilan sebagai berikut:
   
   
   
   
2. Klik kanan pada Microsoft Excel Objects pilih Insert - Module
   
   
   
   
   Muncul Tampilan sebagai berikut:
   
   
   
   
   
3. Masukan code seperti berikut pada module1:
   
   Option Explicit
   
   Function EkaDigit(N)
   Dim Teks(0 To 9) As String
   Teks(0) = ""
   Teks(1) = "satu"
   Teks(2) = "dua"
   Teks(3) = "tiga"
   Teks(4) = "empat"
   Teks(5) = "lima"
   Teks(6) = "enam"
   Teks(7) = "tujuh"
   Teks(8) = "delapan"
   Teks(9) = "sembilan"
   EkaDigit = Teks(N)
   
   End Function
   
   Function TriDigit(N As Integer) As String
   
   Dim Teks As String
   Dim Ratus As Integer
   Dim Puluh As Integer
   Dim Satu As Integer
   Teks = Right("000" & Trim(Str(N)), 3)
   
   Ratus = Val(Mid(Teks, 1, 1))
   Puluh = Val(Mid(Teks, 2, 1))
   Satu = Val(Mid(Teks, 3, 1))
   
   TriDigit = ""
   Select Case Ratus
   Case Is = 0
   TriDigit = ""
   Case Is = 1
   TriDigit = "seratus "
   Case Is > 1
   TriDigit = EkaDigit(Ratus) & " ratus "
   End Select
   
   Select Case Puluh
   Case Is = 0
   TriDigit = TriDigit & EkaDigit(Satu)
   Case Is = 1
   If Satu = 0 Then
   TriDigit = TriDigit & "sepuluh"
   ElseIf Satu = 1 Then
   TriDigit = TriDigit & "sebelas"
   Else
   TriDigit = TriDigit & EkaDigit(Satu) _
   & " belas"
   End If
   Case Is > 1
   TriDigit = TriDigit & EkaDigit(Puluh) _
   & " puluh " & EkaDigit(Satu)
   End Select
   
   End Function
   
   Function Terbilang(N As Double) As String
   
   Dim Teks As String
   Dim Triliun As Integer
   Dim Milyar As Integer
   Dim Juta As Integer
   Dim Ribu As Integer
   Dim Satu As Integer
   
   Teks = Right("000000000000000" & Trim(Str(N)), 15)
   Triliun = Val(Mid(Teks, 1, 3))
   Milyar = Val(Mid(Teks, 4, 3))
   Juta = Val(Mid(Teks, 7, 3))
   Ribu = Val(Mid(Teks, 10, 3))
   Satu = Val(Mid(Teks, 13, 3))
   Terbilang = ""
   
   If Triliun > 0 Then Terbilang = Terbilang & _
   TriDigit(Triliun) & " triliun "
   If Milyar > 0 Then Terbilang = Terbilang & _
   TriDigit(Milyar) & " milyar "
   If Juta > 0 Then Terbilang = Terbilang & _
   TriDigit(Juta) & " juta "
   If Ribu > 1 Then Terbilang = Terbilang & _
   TriDigit(Ribu) & " ribu "
   If Ribu = 1 Then Terbilang = "Seribu "
   If Satu > 0 Then Terbilang = Terbilang & _
   TriDigit(Satu)
   Terbilang = Terbilang & " rupiah"
   
   End Function
4. Tutup Visual Basic Editor dan Kembali pada Microsoft Excel. Periksa apakah fungsi tersebut berhasil dibuat dengan cara: Klik Insert Function (fx) atau pada Menu Bar pilih Insert - Function
   
   
   
   
5. Pengunaan Fungsi Terbilang: