Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57620 / 76732 ←次へ | 前へ→

【23847】Re:行の挿入について
発言  YN61  - 05/4/5(火) 20:35 -

引用なし
パスワード
   ▼だいすけ さん:
これで行けると思いますが。
要は、合計の行に1〜複数行の挿入されて集計できるマクロと考えていますが…
間違っていますでしょうか?

例えば
− 項目
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

1 hits

【23723】行の挿入について だいすけ 05/4/2(土) 16:13 質問
【23725】Re:行の挿入について ぴかる 05/4/2(土) 17:04 発言
【23726】Re:行の挿入について だいすけ 05/4/2(土) 17:13 質問
【23727】Re:行の挿入について YN61 05/4/2(土) 17:35 回答
【23781】Re:行の挿入について だいすけ 05/4/4(月) 9:24 質問
【23803】Re:行の挿入について YN61 05/4/4(月) 22:07 発言
【23824】Re:行の挿入について だいすけ 05/4/5(火) 10:00 発言
【23827】Re:行の挿入について ウッシ 05/4/5(火) 12:02 回答
【23847】Re:行の挿入について YN61 05/4/5(火) 20:35 発言
【23869】Re:行の挿入について だいすけ 05/4/6(水) 9:16 お礼

57620 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free