[[20170202203223]]　『「最終行にVBAで合計を入れたい(複数列)」[柳田]＝x（hotspa）　ページの最後に飛ぶ

『「最終行にVBAで合計を入れたい(複数列)」[柳田]　について』（hotspa）

投稿
以下のような表があります。行5以下にも罫線が引かれています。
カンファレンスを開催するのは定期的ではありませんのでどこまでこの表が伸びるのかわかりません。
最終行のBとD(どこになるかわからない最終行）に自動で合計を入れ、そこまでを印刷したいのですがVBAで出来るものでしょうか？
自分で合計及び印刷をするのでしたら手作業でやるのですが、パソコンやエクセルの操作に慣れていない人も作業するためワンクリックでその作業が出来るようにしたいのです。
ご教示いただければ幸いです。

　　A　　　　B　　　　　　C　　　D　　　　　E　　　　F
1　　　　　　　　　　カンファレンス
2　日時　　新規人数　　　名前　　累計　　　名前　　　参加者
3　1/5　　　　　1
4　2/10　　　　0
5　3/4　　　　　5

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 累計列各セルには式が入っているんですね。
 マクロでは最終行の合計のみを（式で）セットしています。

 Sub Sample()
    With Columns("A").Find("*", Range("A" & Rows.Count), xlFormulas, , xlByRows, xlPrevious).Offset(1)
        .Offset(, 1).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
        .Offset(, 3).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
    End With
 End Sub

（β） 2017/02/02(木) 21:07

 その行までの印刷を忘れていました。

 Sub Sample2()

    With Columns("A").Find("*", Range("A" & Rows.Count), xlFormulas, , xlByRows, xlPrevious).Offset(1)
        .Offset(, 1).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
        .Offset(, 3).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
        ActiveSheet.PageSetup.PrintArea = Range("A1", .Cells).EntireRow.Address
    End With

    ActiveSheet.PrintOut
    ActiveSheet.PageSetup.PrintArea = ""

 End Sub

（β） 2017/02/02(木) 21:14

早速の回答、ありがとうございます。
最終行の合計は出来ました。
本当に助かりました。
ありがとうございます。
ただ、印刷のところで表そのままの形で印刷したいのです。
教えていただいたVBAでは表の形態を成していないように思います。
それと、ワンクリックで実行したいので、例えばボタンの設置等は出来ませんでしょうか？
厚かましい質問で恐縮ですが、よろしくお願いします。
（hotspa） 2017/02/02(木) 22:32

＞えていただいたVBAでは表の形態を成していないように思います。

この意味がわからないのですが？
手作業で印刷したときと違った状態になるのでしょうか。

本題と関係ない所が気になるのですが
累計の列にはどんな数式が入力されているのでしょうか。
累計の合計？？？というのがわかりません。

（マナ） 2017/02/02(木) 23:33

 マナさん同様、

 >>表の形態を成していないように思います。

 これが、全く意味不明です。
 私のコードはシートの状態あるがままの印刷です。印刷要件に関する特段の提示がなかったので。

 具体的に、どんな形で印刷したいのですか？

 また、累計欄合計についても、どういう意味を持つ値なんだろうという気はします。
 もしかしたら、最終行に入れるべき式は "=R[-1]C" なのかなぁとも思ったりしています。

 >>例えばボタンの設置等は出来ませんでしょうか？

 もちろんできますよ。ただし、マクロではなく、hotspa さんが手作業でセットするんですよ。

 ・開発タブ　挿入　で、上のほうの　フォームコントロール　の中のボタン（一番左上にあるはず）をクリックし
 ・シート上の好きな場所にマウスを動かして好きな大きさにした上でマウスを離す
 ・マクロ登録画面が出てくるので、このマクロを選んでＯＫボタン

（β） 2017/02/03(金) 00:43

マナさん、βさん、ご返答ありがとうございます。
＞表の形態を成していないように思います。
ですが、macro2の実行をすると罫線が二重になったり広がったりしてしまいました。
ですが、プレビューを見ると正常な状態になっていました。
こちらのPCの環境のせいだったと思います。
お騒がせして申し訳ありませんでした。

ボタンの件、了解です。
ありがとうございました。
全て解決することが出来ました。
（hotspa） 2017/02/03(金) 21:19

コメント返信：

[ 一覧(最新更新順) ]

[[20170202203223]] 『「最終行にVBAで合計を入れたい(複数列)」[柳田]＝x（hotspa） ページの最後に飛ぶ

[[20170202203223]]　『「最終行にVBAで合計を入れたい(複数列)」[柳田]＝x（hotspa）　ページの最後に飛ぶ