ぴちゃん かわいい Blog: Terbilang Desimal di Excel
free counters

Menu Bar

Terbilang Desimal di Excel

Jumat, 08 Oktober 2010



"Bagi seluruh wali kelas agar membagikan Raport Bayangan untuk MID kali ini, kemudian seluruh guru bidang study harus mengumpulkan analisis nilai per anak secara terperinci dan dikumpulkan dalam 3 hari lagi" kata-kata bapak KepSek seketika membuat gempar telinga. Whats? Yang bener aja...harus analisa per individu....Secara gw pegang 11 kelas dengan jumlah anak perkelas masih konvensional yang rata2 35-40....Ditambah gw wali kelas jugaa......Bisa mati kutu ne tangan nginput datanya....Apalagi waktu ngetik terbilang desimal di excel coz si BOSS minta nilainya puluhan...~(~_~)~
Akhirnya dalam 2 hari 2 malam ngebut input data ke Excel trus nyambi gugling nyari refrensi.... Waktu dapet codenya rata2 pecahan buat duit....Waktu nemu buat pecahan desimal dicoba di kompie ga bisa2....ckckckc....Kenapa nyeh?
Akhirnya ada seorang teman yang membantu.....Jreng...jreng.....
Dia ngajak TelNet-an dan cek kenapa punyaku ga bisa....Sama temen gw diotak atik sebentar kok bisa?! Inilah bedanya ahlinya ma nyang bukan ekekek~ (sedihnya gw :'( )
nah, buat yang butuh list programna, ne PiChan kasih :

==================================================
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 satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + IIf(sen > 0, "Koma ", " ")
Else
baca = baca + IIf(sen > 0, "Koma ", " ")
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + ""
Else
baca = baca + "Koma Nol Nol"
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)
'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
Else
baca = baca + "Nol"
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 = "Dua Belas "
Case 13: angka = "Tiga Belas "
Case 14: angka = "Empat Belas "
Case 15: angka = "Lima Belas "
Case 16: angka = "Enam Belas "
Case 17: angka = "Tujuh Belas "
Case 18: angka = "Delapan Belas "
Case 19: angka = "Sembilan Belas "
End Select
End Function

=====================================================
Tau kan dimasukin kemana neh code?
Caranya,
1. buka Ms. Excel
2. Kemudian Tekan Alt+F11

3. Kemudian klik kanan menu sheet, maka akan muncul Insert trus pilih Modul
4. Masukan list program diatas
5. Save, kemudian tutup modulenya dan kembali ke layar utama excel
6. Coba di Excel nya dengan cara =terbilang(cellnya)

7. Enter


Maka kita akan langsung liat hasilnya ekekekek~~
BTW eniwei buswei tengkyu mayu buat my plen atas bantuannye....Sekarang mo data sebanyak apapun hayooookkkk....hajar bleh ekekekek~~ (mulai nggaya, padahal sempet depresi tau kenyataan 500an anak harus dianalisis dewean) :)) En, padahal gara2 ne juga ga bisa ber blogging ria en cetingan juga pesbukan akakakaka~~~ Lebay mode ON

** Inpo Tambahan (setelah beberapa lama neh postingan di dunia maya :)) )
Temen gw dah nyoba di Open Office (lupa seri berapa hahahaha) bisa, yg pasti OS nya dia make Linux Ubuntu 9.10 (gag ngaruh kali ya... hahahaaha~~)
Trus, listing yg gw kasih membaca satuan, for example 3,24 dibaca Dua Koma Dua Empat, bukan Dua Koma Dua Puluh Empat. Kalo mau dibaca puluhannya juga, bisa sedikit rubah codenya...:)



Credit:
BIG THANKS for Si Jack (tp bukan JACK THE RIPPER lo ya :P),
TimeViewer.com as my partner to solving my problem :P,
Own Experience....

1 Komentar:

Anonim mengatakan...

itu yang 7.08 kenapa terbaca sebagai "Tujuh Koma Delapan" kan jauh tuh artinya

Posting Komentar

"Open Mind and Share everything in Ur Mind without SARA"