Membuat fungsi Terbilang() di Excel

Excel 97|2000|2002|2003|2007

MS Excel juga bisa menampilkan angka secara terbilang. Bagimana caranya ?

Anda harus membuat fungsi terlebih dahulu di vba (dengan menekan tombol Alt+F11)
Copy-kan script berikut ini dalam vba anda.
---

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 = "<>"
Exit Function
End If
'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)

Read More

MENGGUNAKAN PIVOTTABLE DAN PIVOTCHART

Microsoft Excel 2003 menyediakan fasilitas PivotTable dan PivotChart
yang dapat digunakan untuk mengelola data yang jumlahnya banyak.
PivotTable dan PivotChart menyajikan data dalam tabel interaktif
sehingga Anda dapat menampilkan data tertentu atau keseluruhan
data. PivotTable menyajikan data dalam bentuk tabel, sedangkan
PivotChart menampilkan data dalam bentuk grafik.
Berikut ini akan dipraktekkan cara membuat PivotTable untuk
menyajikan data.
1. Masukkan data dan seleksilah semua data seperti contoh yang

...Download lengkap...>>>

Read More