| |
▼だいすけ さん：
これで行けると思いますが。
要は、合計の行に１〜複数行の挿入されて集計できるマクロと考えていますが…
間違っていますでしょうか？
例えば
− 項目
AAA 11
BBB 22
CCC 33
合計 66
↓↓↓↓のような場合も同じ集計ができる…っと考えて作りましたが。
− 項目
AAA 11
BBB 22
CCC 33
…一行から複数行の空きができる…
合計 66
このような場合でも合計が66と成るようにすることですね。
>▼YN61 さん：
>色々とアドバイスをいただきありがとうございます。
>YN61さんの方法も試しましたが、やはり、うまく行きません。
>マクロからの挿入を行うとセルに注意を促すボックスが出てきます。
>（隣接したセルを参照していない・・と）
>ワークシート上で挿入する際にはこのメッセージを無視して行っている
>と言うことなのでしょうか？
>後で、再計算するしか無い様に思えてきました。
これを一度使ってください…行けると思いますが。
A列で行の長さをﾁｪｯｸさせ、B2からA列の「合計」の右に集計させています。
一度試してみてください。
Sub 合計()
Dim endR As Long
endR = Range("A65536").End(xlUp).Row
Range("B" & endR).Select
ActiveCell.Formula = "=SUM(B2:B" & endR - 1 & ")"
End Sub
|
|
YN61
- 05/4/5(火) 20:35 -
