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