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

EXCEL TIPS & TRICKS : MENCARI PECAHAN UANG PAKE EXCEL 2003

waduh … sekarang jaman excel 2010 emang maNGsih ada yang pakE excel 2003 … ada kok … termasuk saya pada beberapa kasus lebih senEng pakE excel 2003 …

artikel ini merupakan kelanjutan dari artikel ini

karena fungsi MOD bertingkat pada Excel 2003 terbatas maka harus diakali … caranya saya tambahkan fungsi RIGHT pada formulanya

fungsi RIGHT

fungsi ini akan mencari satu atau lebih karakter terakhir dari suatu STRING

=RIGHT(string;jumlah karakter)

• =RIGHT(“abcdefg”;3) … hasElnya efg
• =right(“norkuys”;2) … hasElnya ys

untuk excel 2003 kita akan kelompokkan pecahan uang sesuE jumlah digitnya … untuk memudahkan pengelompokan dalam tabel warna background cell saya bedakan untuk masing2 kelompok

• 6 digit : Rp 100.000
• 5 digit : Rp 50.000; Rp 20.000; Rp 10.000
• 4 digit : Rp 5.000; Rp 2.000; Rp 1.000
• 3 digit : Rp 500; Rp 100
• 2 digit+ : Rp. 50; Rp. 25; Rp 10; Rp 5
• 1 digit(-) : Rp 1

EXCEL TIPS & TRICKS : MENCARI PECAHAN UANG PAKE EXCEL 2007

sebelOm melanjutkan ada baEknya sOdara downloth dulu filenya UangPecahan.xlsx … tumben pakE excel 2007 … yang pasti ada alEsannya

sebagE pengantar ada komen yang isinya problema de EXCELlente  … maksuTnya masalah yang mau dipecahkan pakE excel gEtO ini komennya

evil_gw3n :

gimana caranya kalau saya ingin mendapatkan berapa lembar pecahan uang.contohnya….uang 1.321.200 terdiri dari 13 lembah uang 100rban, 1 lembar 20 rban, 1 lembar uang 1rban dan 2 uang 100an…tau ga caranya mas…thx before

komen tersebOt mengingatkan kerjaan saya yang dulu … pas dulu sama kantor disuruh bagE-bagiin uWang gaJiyan … biYasanya sih ama bank udah disiYapin uwang2 pecahan kecilnya jugaK …  tapi kadang ndak sesuE keperluWan atO pecahan tertetu yang kita butuh ndak ada di bank … terpaksa deh nukEr sendiri kemana-mana … tambah repot kita jugaK musti ngitung pecahan APA dan BERAPA jumlahnya yang kita perlukan … mana para pegawE udah ndak sabar pengEn segera gajiYan … peristiwa tersebut menginspirasi saya untuk membuWat tabel yang bisa ngasi taU saya pecahan APA dan BERAPA jumlahnya yang saya perlukan.

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 ….