| |
▼takenokotaro さん：
こんばんは。
>こんにちは。今回も助けていただきたく投稿させていただきました。
>以下のような表の縦計算(合計)をそれぞれマクロで処理したいのですが
>どのようにすればよろしいでしょうか？宜しくお願いいたします。
この「項目1」がアクティブシートのセルＡ１から始まっているとして、
>項目１ 項目２ 項目３ 項目４
>ＡＡ 10000 20000 10000
>ＢＢ 10000 10000 30000
>ＣＣ 5000 0 5000
>ＤＤ 65000 30000 70000
>ＥＥ 0 2500 8000
>合計
>
>ただし、レコード数は増えたり減ったりその都度変動します。
>項目１のレコードが空欄になったら合計の計算を処理するといったマクロが希望です。
>どうか宜しくお願いいたします。
'=====================================================
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
確認してみて下さい。
|
|
ichinose
- 04/9/28(火) 19:33 -
