terima kasih penjelasannya pak.. sekarang saya paham.. wassalam,
-dwint- Pada 14 Agustus 2012 08:16, hendrik karnadi <[email protected]>menulis: > ** > > > Perbedaannya adalah, sub totalnya akan berbentuk value sehingga untuk data > yang banyak kerja Excel tidak lambat > > Salam, > Hendrik Karnadi > > ------------------------------ > *From:* dwint ruswanto <[email protected]> > *To:* [email protected] > *Sent:* Tuesday, 14 August 2012, 7:00 > *Subject:* Re: Fw: [belajar-excel] latihan macro lagi (membuat SUB TOTAL > secara acak) > > > Pak Hendrik, terima kasih atas masukan dan koreksinnya.. > > ada yang ingin saya tanyakan untuk hal di bawah ini > > i.Offset(0, 1).Value = i.Offset(0, 1).Value, agar nilai sumnya menjadi > value > > saya tidak melihat adanya perbedaan yang terjadi (di worksheet) antara > menambahkan code tsb atau tidak, bisa tolong dishare ilmunya ke saya pak.. > karena untuk macro saya masih baru. > > wassalam, > > -dwint- > > Pada 13 Agustus 2012 21:48, hendrik karnadi <[email protected]>menulis: > > ** > > 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 <[email protected]> > *To:* "[email protected]" <[email protected]> > *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 <[email protected]> > *To:* [email protected] > *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 <[email protected]>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 > > > > > > > > > > > >
