Excel VBA質問箱 IV

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

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


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

59368 / 76807

←次へ　｜　前へ→


	【22144】Re:表の合計を計算

りすりす - 05/2/9(水) 21:53 -


	引用なし

	パスワード

▼igusukei さん：
>始めて投稿します。
>VBAは殆ど解らずで、マクロの記録などをしながらカット＆トライしていますが、なかなかうまく出来ません。
>何行あるか判らない表があり、L列の一番下に合計を出したい
>
>Sub Macro3()
>　　Dim endR As Long, endC As Long
>　　Sheets("Sheet1").Select
>　　endR = Range("A65536").End(xlUp).Row
>　　Range(endR + 1, L).Select
>　　ActiveCell.FormulaR1C1 = "sum(l2:l+endR)"
>End Sub
>
>L行のL2から最終行までの合計を最終行の下に表示したい。
>
>この式で何をしようとしているのか、判るでしょうか？
>説明が下手ですが、これを実行出来るようにしたいのですが、どなたかご教授お願いします。

Sub Macro3()
　　Dim endR As Long, endC As Long
　　endR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
　　Sheets("Sheet1").Range("L" & (endR + 1)).Value = "=sum(l2:l" + CStr(endR) + ")"
End Sub

0 hits

▼

【22143】表の合計を計算 igusukei 05/2/9(水) 21:21