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