Excel VBA質問箱 IV

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

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


57739 / 76732 ←次へ | 前へ→

【23727】Re:行の挿入について
回答  YN61  - 05/4/2(土) 17:35 -

引用なし
パスワード
   ▼だいすけ さん:
こんにちは、こんなのであきませんでしょうか?
一度試してください。

>オートSUMのある行をワークシート上で挿入した場合は、
>行選択の範囲も変更してくれますが、マクロより行を挿入した場合
>選択行の範囲が変更されません。
>行の挿入時に何か付加することがあるのでしょうか?

このような感じで集計できますが
これはB2より下の行に入っている数字の合計です。
行の挿入後も計算は出来ます

Sub 合計()

Dim endR As Integer
Dim myRng As Range

endR = Cells(65536, 2).End(xlUp).Row
Set myRng = Range(Cells(2, 2), Cells(endR, 2))

Cells(endR + 1, 2) = Application.WorksheetFunction.Sum(myRng)
End Sub
0 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 お礼

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