Beranda » Tips-trik » Buat fungsi terbilang pada MS Exel

Buat fungsi terbilang pada MS Exel

Fungsi terbilang pada MS Exel, Keur Naon....?
Yah buat apa ajalah, buat iseng juga ga apa-apa,
Setidak-tidaknya kita sedikit tahu tentang fungsi makro pada MS Exel, selain itu bagi pengguna exel akfif utuk pembukuan, buat kwitansi butuh fungsi ini yaitu fungsi TERBILANG.

Lanjut.....

Langkah-langkah :

1. Buka aplikasi ms excel. Kemudian pilih menu Tools pada Macro dan pilih Visual BASIC Editor.

2. Pada aplikasi Visual Basic Editor yang terbuka, pilih menu Insert pada Module.

3. Copy-paste Code warna merah berikut:

Public Function Terbilang(x As Currency)
    Dim triliun As Currency
    Dim milyar As Currency
    Dim juta As Currency
    Dim ribu As Currency
    Dim satu As Currency
    Dim sen As Currency
    Dim baca As String
    If x > 1000000000000# Then
       Terbilang = "< di atas satu triliun rupiah >"
       Exit Function
    End If
    If x = 0 Then
       baca = angka(0, 1)
    Else
       triliun = Int(x * 0.001 ^ 4)
       milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
       juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
       ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
       satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
       sen = Int((x - Int(x)) * 100)
       If triliun > 0 Then
          baca = ratus(triliun, 5) + "triliun "
       End If
       If milyar > 0 Then
          baca = ratus(milyar, 4) + "milyar "
       End If
       If juta > 0 Then
          baca = baca + ratus(juta, 3) + "juta "
       End If
       If ribu > 0 Then
          baca = baca + ratus(ribu, 2) + "ribu "
       End If
       If satu > 0 Then
          baca = baca + ratus(satu, 1) + "rupiah "
       Else
          baca = baca + "rupiah"
       End If
       If sen > 0 Then
          baca = baca + ratus(sen, 0) + "sen"
       End If
    End If
    Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Function ratus(x As Currency, Posisi As Integer) As String
    Dim a100 As Integer, a10 As Integer, a1 As Integer
    Dim baca As String
    a100 = Int(x * 0.01)
    a10 = Int((x - a100 * 100) * 0.1)
    a1 = Int(x - a100 * 100 - a10 * 10)
    If a100 = 1 Then
       baca = "Seratus "
    Else
       If a100 > 0 Then
          baca = angka(a100, Posisi) + "ratus "
       End If
    End If
    If a10 = 1 Then
       baca = baca + angka(a10 * 10 + a1, Posisi)
    Else
       If a10 > 0 Then
          baca = baca + angka(a10, Posisi) + "puluh "
       End If
       If a1 > 0 Then
          baca = baca + angka(a1, Posisi)
       End If
    End If
    ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
    Select Case x
        Case 0: angka = "Nol"
        Case 1:
            If Posisi <= 1 Or Posisi > 2 Then
               angka = "Satu "
            Else
               angka = "Se"
            End If
        Case 2: angka = "Dua "
        Case 3: angka = "Tiga "
        Case 4: angka = "Empat "
        Case 5: angka = "Lima "
        Case 6: angka = "Enam "
        Case 7: angka = "Tujuh "
        Case 8: angka = "Delapan "
        Case 9: angka = "Sembilan "
        Case 10: angka = "Sepuluh "
        Case 11: angka = "Sebelas "
        Case 12: angka = "Duabelas "
        Case 13: angka = "Tigabelas "
        Case 14: angka = "Empatbelas "
        Case 15: angka = "Limabelas "
        Case 16: angka = "Enambelas "
        Case 17: angka = "Tujuhbelas "
        Case 18: angka = "Delapanbelas "
        Case 19: angka = "Sembilanbelas "
    End Select
End Function

Lihat Gbr

4. Simpan hasil pekerjaan anda (File --> Save).
Contoh Penggunaannya .
Pada lembar kerja Exel kolom A4 (atau terserah) ketikan angka sembarang , angka Bro.. bukan huruf ya....
Kemudian pada kolom B4 tuliskan rumus "=terbilang(A4)" (tidak pake tanda petik) kemudian Enterrrrrrrrr. Jadi deh...
Cekidot Gbr

Kalau ternyata ga jalan berarti ente salah masukan tulisan merah diatas pada editor visual Basicnya. (banyak kasus)

OK Selamat Menjajal....

Link and Search

Belum ada tanggapan untuk "Buat fungsi terbilang pada MS Exel"

Post a Comment