Excelにて、フッターにシートの合計を印刷したいのですが、初心者で、マクロコードが
分からず苦慮しております。お分かりになる方ご教授願います。
詳細
右フッターの、 数量合計( ) の括弧の中に合計を印刷したい
画像参照願います。
合計する範囲は、 Range("G2:G41") Range("G42:g81") Range("G82:G121")
Range("G122:G161") Range("G162:G201") Range("G202:G241")
Range("G82:G121")のように39セルの合計を数量合計の括弧の中に印刷したいです
00( ) 111( ) 222( )
数量合計(1234 )
印
という形で印刷したいのですが、分からずご教授願います。
1ページ目を下記コードを作ってみたのですがうまくいきません。
Sub Footer()
With ActiveSheet.PageSetup
.RightFooter = "有効( ) 未使用( ) 書損( ) " & Chr(10) & _
"数量合計( )" & Chr(10) & "印"& Chr(10)_
Format(Application.WorksheetFunction.Sum(Range("G2:G42")), "#,##0")
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
よろしくお願いします。
No.5ベストアンサー
- 回答日時:
こんにちは
そういう事ですか・・・すでに回答にある通り 同じシートに設定した
印刷設定の各ページ設定は、手動のダイアログを見て分かる通りできません
フッターで表示したい部分を新規にセル範囲を設けて、それを含め印刷範囲
余白設定、ページ設定をして印刷するなどを検討してください。
どうしても新たに行を挿入できない場合は、
1ページごとに印刷範囲、各設定をして、印刷、を繰り返すなどの方法になると思います。(規則性があるのならループで容易に処理できると思いますが、処理時間は増えます)
このコードサンプルは範囲設定が分からないので割愛します
参考に画像を添付します。(各ページのオプション設定がありません)
No.3
- 回答日時:
Accessのレポート機能のようなヘッダ/フッタをご希望のようですが、Excelではできないと思います。
早めに諦めて、軌道修正した方が良いですよ。
No.2
- 回答日時:
こんばんは
ご質問の意味が良く分からないのですが・・
カッコ内の値を書き出す方法が知りたいのでしょうか?
参照先が沢山あるようでしたら、コードが長くなるので一旦変数に代入するのが良いと思います。
Sub Footer()
Dim sum1, sum2, sum3, sum4, sum5
sum1 = Application.WorksheetFunction.Sum(Range("G2:G42"))
sum2 = Application.WorksheetFunction.Sum(Range("G2:G42"))
sum3 = Application.WorksheetFunction.Sum(Range("G2:G42"))
sum4 = Application.WorksheetFunction.Sum(Range("G2:G42"))
sum5 = Application.WorksheetFunction.Sum(Range("G2:G42"))
With ActiveSheet.PageSetup
.RightFooter = "有効(" & sum1 & ") 未使用(" & sum2 & ") 書損(" & sum3 & ")" & Chr(10) & _
"数量合計(" & sum4 & ")" & Chr(10) & "印" & Chr(10) & Format(sum5, "#,##0")
End With
ActiveWindow.SelectedSheets.PrintPreview
Range("G2:G42")についてはどこに何をが分からなかったので
取り敢えず 同じですが、変えてみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロで変数を用いてセルを選択し、そのセル内の数値を計算式に入れる方法 3 2021/12/27 22:59
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) 選択セルのみ印刷 VBA 1 2021/11/19 21:37
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- PowerPoint(パワーポイント) エクセルのマクロ設定について教えてください。 2 2021/10/29 11:36
- Excel(エクセル) マクロでセル内の文字列と同じ名前ファイルを選択し、コピペする方法 2 2021/12/31 15:15
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 転記VBA エラーが出ます 2 2021/11/15 16:08
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルでページ毎の小計から最終ページで合計を出したい。
Access(アクセス)
-
エクセルでページ毎の計をつけて印刷したい
Excel(エクセル)
-
エクセルのフッターについて
Excel(エクセル)
-
-
4
Excelで印刷!集計行をすべてのページに
Excel(エクセル)
-
5
ヘッダー
Excel(エクセル)
-
6
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
7
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
8
エクセルで、ヘッダーに特定セル内容を指定して印刷したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで負の数を足さずに0以上...
-
Excelでかなり横長の表を作って...
-
中学数学をなめてはいけないな...
-
以下の問題ってどう解くのです...
-
ACCESS 前年比
-
Excelにて、フッターにシートの...
-
エクセルで右下に合計を出す方法?
-
天秤の問題
-
トランプを5枚選んで46以上にな...
-
Excelの関数、マイナスになった...
-
大,中,小3個のさいころを投げ...
-
ケーキの9等分
-
らせん階段の手すりの長さ
-
【数学】反比例、逆数、逆比例...
-
1から9までの番号をつけた9枚の...
-
0.1は10パーセントなら1.0は何...
-
高1です!次の問題を分かりやす...
-
√2が無理数であることを証明
-
エナメル線の電流容量 教えて...
-
数学
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで負の数を足さずに0以上...
-
以下の問題ってどう解くのです...
-
天秤の問題
-
2行おきの合計、VBAでど表現す...
-
中学数学をなめてはいけないな...
-
VBAで各列の"+"と"o"の合計数を...
-
SPIの問題について質問です。 P...
-
千円引きと20%引き
-
トランプの数値の合計数を計算...
-
Excelでかなり横長の表を作って...
-
Excelにて、フッターにシートの...
-
Excelの関数、マイナスになった...
-
2桁のチェックデジット求め方...
-
エクセルVBAで複数の図に名前を...
-
4で割ると1余り、5で割ると2余...
-
エクセルで右下に合計を出す方法?
-
A〜Eの5人で数学のテスト結果を...
-
リンゴ5個ミカン3個を購入し合...
-
二項係数の和で、二項定理を使...
-
異なる4つの数字を選び作れる整...
おすすめ情報
ありがとうございます
1ページめは何とか形にはなりましたが、2ページ、3ページへのつなぎ方がわかりません
合計範囲は、1ページ→Range("G2:G41") 2ページ→Range("G42:g81")
3ページ→Range("G82:G121") 4ページ→Range("G122:G161")
5ページ→Range("G162:G201") 6ページ→Range("G202:G241")
7ページ→Range("G82:G121")と続きます
今回下記のように変更して、1ページはできたのですが、2ページ以降がわかりません
文字数オーバーしたので、次につづきます
Sub Footer()
Dim sum1, sum2, sum3, sum4, sum5
sum4 = Application.WorksheetFunction.Sum(Range("G2:G41"))
With ActiveSheet.PageSetup
.RightFooter = "有効( ) 未使用( ) 書損( )" & Chr(10) & _
"数量合計(" & sum4 & ")" & Chr(10) & "印" & Chr(10)
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
すみませんよろしくお願いいたします。