Senin, 13 Agustus 2012

[belajar-excel] Digest Number 1728

4 New Messages

Digest #1728

Messages

Mon Aug 13, 2012 4:22 am (PDT) . Posted by:

"agam_tole@yahoo.com" agam_tole


salam,
Mohon bantuan cara menghitung nominal uang 2 angka di belakang
misal Rp. 190,- menjadi Rp. 100,-
Karna angka Rp 90,- tidak ada kembalian maka Rp. 90 tersebut menjadi tabungan di bulan berikutnya..

Untuk bantuan dan pengajarannya saya ucapkan terima kasih sebelumnya..

Salam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

Mon Aug 13, 2012 4:27 am (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

Coba gunakan fungsi floor.
Misal akan dibulatkan ke kelipatan 1000 (ribuan) dibawahnya :
=Floor( nilainya , 1000 )

Sedangkan nilai sisanya (yang dibulatkan) dapat diperoleh dengan :
=nilainya - Floor( nilainya , 1000 )
atau
=Mod( nilainya , 1000 )

nilainya bisa diganti dengan rujukan cell atau hasil kalkulasi tertentu
untuk mendapatkan nilai yang akan dibulatkan.

Wassalam
Kid.

2012/8/13 <agam_tole@yahoo.com>

> **
>
>
>
> salam,
> Mohon bantuan cara menghitung nominal uang 2 angka di belakang
> misal Rp. 190,- menjadi Rp. 100,-
> Karna angka Rp 90,- tidak ada kembalian maka Rp. 90 tersebut menjadi
> tabungan di bulan berikutnya..
>
> Untuk bantuan dan pengajarannya saya ucapkan terima kasih sebelumnya..
>
> Salam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
>

Mon Aug 13, 2012 4:41 am (PDT) . Posted by:

"agam_tole@yahoo.com" agam_tole

Alhamdulillah,, berhasil.. Terima kasih Mod Mr.Kid Membantu pekerjaan saya..

Salam..
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 13 Aug 2012 18:27:26
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghitung nominal uang yang berjumlah sen
menjadi pembulatan

Coba gunakan fungsi floor.
Misal akan dibulatkan ke kelipatan 1000 (ribuan) dibawahnya :
=Floor( nilainya , 1000 )

Sedangkan nilai sisanya (yang dibulatkan) dapat diperoleh dengan :
=nilainya - Floor( nilainya , 1000 )
atau
=Mod( nilainya , 1000 )

nilainya bisa diganti dengan rujukan cell atau hasil kalkulasi tertentu
untuk mendapatkan nilai yang akan dibulatkan.

Wassalam
Kid.

2012/8/13 <agam_tole@yahoo.com>

> **
>
>
>
> salam,
> Mohon bantuan cara menghitung nominal uang 2 angka di belakang
> misal Rp. 190,- menjadi Rp. 100,-
> Karna angka Rp 90,- tidak ada kembalian maka Rp. 90 tersebut menjadi
> tabungan di bulan berikutnya..
>
> Untuk bantuan dan pengajarannya saya ucapkan terima kasih sebelumnya..
>
> Salam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
>

Mon Aug 13, 2012 7:48 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak Dwint, Macro yang Bapak buat berjalan lebih cepat (dengan For each) dibanding Macro yang saya buat (For i  = 1 to ....).
Kalau boleh usul, di bawah Code ini:

i.Offset(0, 1).Value = Total
ditambah dua Code
i.Offset(0, 1).Value = i.Offset(0, 1).Value, agar nilai sumnya menjadi value
Total = 0, agar yang ditampilkan adalah SUB TOTAL yang tidak akumulatif

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 13 August 2012, 16:28
Subject: Re: [belajar-excel] latihan macro lagi (membuat SUB TOTAL secara acak)


Boleh2 saja Pak, tinggal nanti Moderator yang memfinalkan, sehingga nantinya 1 + 1 bukan lagi 2 melainkan 3 karena masing mendapat tambahan setengah .....
dkl (dengan kata lain) macronya dan waktu prosesnya akan semakin pendek.....

Salam,
Hendrik Karnadi

________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 13 August 2012, 16:17
Subject: Re: [belajar-excel] latihan macro lagi (membuat SUB TOTAL secara acak)


 
Pak Hendrik, saya boleh ikut jawab ya.. kan masih dalam tahap belajar..  kalo salah tolong dikoreksi

Sub SubTtl()
    Dim Rng As Range
    Dim i As Range
    Dim Total As Integer
    
    Range("A1").Select
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    For Each i In Selection
        Total = Total + i
        If i.Borders(xlEdgeBottom).LineStyle = xlContinuous Then
            i.Offset(0, 1).Value = Total
        End If
    Next i
End Sub

maaf coding-nya agak berbeda dari yang diminta karena mau pake cara yang dibuat pak Hendrik masih bingung

wassalam,

-dwint-

Pada 13 Agustus 2012 15:43, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

> 
>Di dalam Excel kita kenal formula R1C1.
>Mari kita coba terapkan formula tersebut dalam macro.
>
>
>Lagi2 terinspirasi dari soal tetangga sebelah yang ingin membuat sub total pada baris yang ada "garis" nya.
>
>
>mis. Data ada di kolom A.
>Saya ingin membuat Sub Total di kolom B dengan membuat garis bawah tipis (border)  pada beberapa sel di kolom A secara acak.
>Sub Total berada pada kolom B disamping sel pada kolom A yang mempunyai border tersebut
>
>
>Saya coba buat Macro seperti ini
>Sub SubTtl()
>    Dim Rng As Range
>    Dim i As Long
>    Range("A1").Select
>    Set Rng = Range("A1").CurrentRegion
>    For i = 1 To Rng.Rows.Count
>        If ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous Then
>        baris kosong
>        End If
>    baris kosong   
>    Next i
>End Sub
>
>
>Formula dari Sub Total pertama yang ada di kolom B adalah sbb : 
>
>=SUM(A$1:$A4)-SUM(B$1:B3)
>
>dimana border pertamanya berada pada sel A4.
>
>
>Sambil nunggu buka puasa, silakan rekan2 melengkapi baris2 kosong tsb.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 10.03

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)