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