Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57745 / 76738

←次へ　｜　前へ→


	【23727】Re:行の挿入について

YN61 - 05/4/2(土) 17:35 -


	引用なし

	パスワード

▼だいすけさん：
こんにちは、こんなのであきませんでしょうか？
一度試してください。

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

このような感じで集計できますが
これは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