|
▼takenokotaro さん:
こんばんは。
>こんにちは。今回も助けていただきたく投稿させていただきました。
>以下のような表の縦計算(合計)をそれぞれマクロで処理したいのですが
>どのようにすればよろしいでしょうか?宜しくお願いいたします。
この「項目1」がアクティブシートのセルA1から始まっているとして、
>項目1 項目2 項目3 項目4
>AA 10000 20000 10000
>BB 10000 10000 30000
>CC 5000 0 5000
>DD 65000 30000 70000
>EE 0 2500 8000
>合計
>
>ただし、レコード数は増えたり減ったりその都度変動します。
>項目1のレコードが空欄になったら合計の計算を処理するといったマクロが希望です。
>どうか宜しくお願いいたします。
'=====================================================
Sub main()
Dim rng As Range
Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
If rng.Row > 1 Then
Cells(rng.Count + 2, 1).Value = "合 計"
Range(Cells(rng.Count + 2, 2), Cells(rng.Count + 2, 4)).Formula = _
"=sum(" & rng.Offset(0, 1).Address(False, False) & ")"
End If
End Sub
確認してみて下さい。
|
|