Smandanova's Blog

Just another WordPress.com weblog

PEMAKAIAN FUNGSI TERBILANG DAN FUNGSI LOOKUP VALUE DALAM EXCEL

4 Komentar

Contoh Pemanfaatan fungsi terbilang dan fungsi lookup value dalam excel kali ini saya mencoba mengaplikasikan untuk pembuatan kuitansi sederhana, mudah-mudahan bermanfaat bagi yang membutuhkannya.

Fungsi yang saya bahas kali ini dapat dipergunakan pada hal lainnya yang memerlukan konversi dari angka atau bilangan menjadi teks atau sebutan dari sebuah angka atau bilangan.

Dalam aplikasi sehari-hari kuitansi menjadi penting adanya sebagai alat bukti pendukung sebuah transaksi, dan biasanya dicatat dalam buku kas keluar dan biasanya pula bagi yang mempunyai otoritas terhadap transaksi tersebut selain dicatat pada buku juga direkam dalam file dengan menggunakan alat bantu komputer.

Pada aplikasinya diperlukan worksheet dalam excel yang memuat tabel transaksi dan form kuitansi yang akan digunakan seperti gambar dibawah ini :

kuitansi

kuitansi

tabel

tabel

didalamnya kita menggunakan fungsi VLOOKUP atau lookup value yang sudah tersedia dalam excel dan fungsi terbilang yang harus dibuat sendiri berupa macro yang ditulis di visual basic editor seperti dibawah ini…..untuk pengembangan dan penyempurnaannya apabila dirasa kurang dapat pembaca lakukan sesuai dengan kreasi masing-masing.

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
‘Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
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)
‘Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + “triliun “
End If
‘Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + “milyar “
End If
‘Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + “juta “
End If
‘Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + “ribu “
End If
‘Baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + ratus(satu, 1)
End If
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ” Rupiah ” + ratus(sen, 0) + “sen”
End If
End If
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + ” Rupiah “
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)
‘Baca Bagian Ratus
If a100 = 1 Then
baca = “Seratus “
Else
If a100 > 0 Then
baca = angka(a100, 2) + “ratus “
End If
End If
‘Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + “puluh “
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
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 = 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

Contoh aplikasi yang sudah tersedia silahkan klik disini

About these ads

Author: ndienross

hmmmmmmmmmmmm

4 thoughts on “PEMAKAIAN FUNGSI TERBILANG DAN FUNGSI LOOKUP VALUE DALAM EXCEL

  1. Enjoy reading your blog.Btw, this is first time I visit to your blog :)

    ________________________
    Why pay $1000’s for solar or wind power when you can build your ownprofessional system for less than $200?! (in your own backyard)

  2. THX AYAS INFONYA YANG TELAH DI SHARING -KAN….

    Sama sama….ditunggu masukannya…

  3. ane sedot ye bozzzz,,,,,, di tgu program POS nye heeeee

  4. Klo ente tak kesini…..ane tak kan buatin….ane coba pake java….otrehhhh….

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.