EXCEL DASHBOARD : MOTOGP 2011

Dashboard lagi … dashboard lagi … semoga ndak bosyen2 

setelah kemarEn mbikin dashboard kloningan site stat WordPress kalE ini saya mbikin dashboard statistik motogp , langsung ajah berikot adalah penampakannya skrinsyutnya

WORKSHEET FUNCTION : MANGGIL FUNGSI BAWAAN EXCEL LEWAT MACRO

beberapa fungsi dalam worksheet excel ada padanannya dalam kode VBA yang dapat digunakan dalam membuWat macro … saya kasi contoh beberapa :

• fungsi TODAY dalam Worksheet Excel >>Date dalam kode VBA
• ROUND >>Round
• NOW >>Now
• CHAR >>ChR
• CODE >>Asc
• dan masEh banyak lagE

lha kalO ndak ada padanannya gimana ? … kalO ndak ada padananya ndak pa2 … kita bisa kok memanggil fungsi2 bawaan excel dalam macro yang kita buWat … bahkan sebagiYan besar bisa kita panggil loh … trus cara manggilnya gimana ? … saya kasi contoh fungsi VLOOKUP

PEMBULATAN EXCEL : BULETIN SEBULET SODARA PENGEN PAKE FUNGSI ROUND DKK DAN FLOOR

gambar asEli dari : http://hestihandayani.wordpress.com/2011/01/21/donat/

sungguh judul yang ndak mutu … mencerminkan isi artikelnya …

Bulet2 bolong tengahe … iku arane donaat … tapi sekarang saya ndak lagi mau makan donat … saya pengEn ngigau tentang bulat2nya angka di Excel … kalO ndak salah bulet itu basa Inggrise ROUND … di excel ada beberapa cem-macem fungsi yang dimulai dengan ROUND … beberapa sudah pernah saya senggol dalam artikel2 disini … silahkan cari di halaman fungsi excel … contoh :

ROUND … mbuletin keatas kalO yang mau angka terakhir yang mau dibuletin lebih besar sama dengan 5 … dan kebawah kalO lebih kecil dari 5

ROUNDUP … pasti mbuletin ke atas

ROUNDDOWN … mbuletin ke bawah pastinya

contoh sederhana penggunaan fungsi2 tersebut …

• cell A1 diisi angka pecahan terserah sOdara
• cell B1 diisi banyaknya digit dibelakan koma yang mau dipakE
• cell C1 diisi formula =ROUND(A1;B1)
• cell D1 diisi formula =ROUNDUP(A1;B1)
• cell E1 diisi formula =ROUNDDOWN(A1;B1)
• cell2 C1, D1 dan E1 diformat biYar bisa nampilin angka dibelakang koma sesuE yang kita pengEn
  

silahkan digonta-ganti cell A1 dan B1 nya … dan amati hasilnya pada cell2 C1, D1 dan E1

VARIASI-KOMBINASI ADD-IN TERBILANG

Fungsi terbilang nyang saya bikin bole jadi kliwat sederhana bangeth, karena cuman bisa mengubah dari format angka menjadi kalimat terbilang, bahkan dibandingin dengan fungsi rupiah nyang telah lebih dolo saya bikin, nyang dapat menghasilkan satuan nyang telah ditentukan dibelakang kalimat terbilang. Namun ada beberapa kelebihan fungsi terbilang 23 baris yang saya udah bikin :

1. cuman 23 baris kode, nyang sebenarnya dapat saya singkat menjadi 20 baris aja
2. sanggup menangani sampai dengan 15 digit angka dengan nilai maksimal 999.999.999.999.999 (“Sembilanratus Sembilanpuluh Sembilan Triliun Sembilanratus Sembilanpuluh Sembilan Miliar Sembilanratus Sembilanpuluh Sembilan Juta Sembilanratus Sembilanpuluh Sembilan Ribu Sembilanratus Sembilanpuluh Sembilan “).
3. penulisan sudah sesuai dengan EYD ….  MDLMDL(Monggo Dipun Leresaken Menawi Dalem Lepat)

ini kodenyah yang 20 baris:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Function terb20(x As Double) As String ANGKA = Array(“”, “Se”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”, “Duabelas”, “Tigabelas”, “Empatbelas”, “Limabelas”, “Enambelas”, “Tujuhbelas”, “Delapanbelas”, “Sembilanbelas”) LEVEL = Array(“Triliun “, “Miliar “, “Juta “, “Ribu “, “”) For i = 0 To 4 TEMPRP = “” If Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 1 + (3 * i), 1) > 0 Then TEMPRP = ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 1 + (3 * i), 1)) & “ratus “ If Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 2 + (3 * i), 2) < 20 Then TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 2 + (3 * i), 2)) Else TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 2 + (3 * i), 1)) & “puluh ” & ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 3 + (3 * i), 1)) End If If Right(TEMPRP, 1) ” ” Then TEMPRP = TEMPRP & ” “ BERILEVEL: If TEMPRP ” ” Then TEMPRP = TEMPRP & LEVEL(i) If TEMPRP = “Se Ribu ” Then TEMPRP = “Seribu “ If TEMPRP ” ” Then terb20 = Application.WorksheetFunction.Substitute(terb20 & TEMPRP, “Se “, “Satu “) Next i If Abs(Round(x, 0)) = 0 Then terb20 = “Nol “ If x < 0 Then terb20 = “Minus ” & terb20 End Function

bukannya nantangin pinter2 excel tapi kalo ada nyang lebih pendek dengan spek kaya diatas saya pengen belajar, sungguh ….