No.1ベストアンサー
- 回答日時:
これはマクロを使わないとできませんね。
Alt+F11でVBAの画面を開き、左側のThisWorkBookというところをダブルクリックしてください。
右側の画面に以下のマクロをコピーして貼りつけてください。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1").Text
End With
End Sub
この例では左のヘッダーにセルA1の内容をセットしています。
マクロ中のセル番地はA1でなく実際のセルに置きかえてください。
また、LeftHeaderの部分も以下にしたがって適切なものに置きかえてください。
左ヘッダー LeftHeader
中ヘッダー CenterHeader
右ヘッダー RightHeader
左フッター LeftFooter
中フッター CenterFooter
右フッター RightFooter
マクロを記述したらその画面は閉じてしまってかまいません。
これで印刷時(または印刷プレビュー時)に、ヘッダーやフッターに指定したセルの内容が反映されます。
なお、マクロを設定した後、一度保存してExcelを終了し、もう一度ブックを開き直さないとマクロが有効にならないかもしれません。(なぜだかわからないですが、私が試したらそういう現象が起きたので、念のため)
この回答への補足
早速試しました。
右フッターに印字を指定し、きちんと印字されたのですが
ページ上部分の印字が、一部前ページの内容を表示したり
一部の枠が表示されなくなってしまいました。
どのように解消したらよいのでしょうか?
No.5
- 回答日時:
すみません、書き忘れがありました。
> 一部の枠が表示されなくなってしまいました。
申し訳ありませんが、これについてはちょっとわかりません。マクロの中ではヘッダーの設定をしているだけで、表自体は何もいじってないので…。
No.4
- 回答日時:
No1,3です。
補足拝見しました。> 同じシートでデータが長いため、改ページしています。
ということは、同じシート内で違うページの場合、違う値をヘッダーに表示したいということでしょうか。
そうだとすると、私のやり方ではうまくいきません。
質問文では、
> ヘッダー又はフッターに日時やファイル名・シート名は指定出来ますが、
> そのシートのセルに入力されている内容を指定することは出来ますか?
とあるので、印刷時にヘッダーに特定セルの内容をヘッダーにセットするようにしました。したがって、そのときそのセルに入っていた内容がヘッダーに表示され、それは同じシートなら、どうしてもどのページでも同じ文字列が入ってしまいます。(セルに数式が入っていたとしても、その値がヘッダーにセットされます)
同じシート内で印刷ページごとにヘッダーの内容を変える方法は、標準の印刷機能を使う限り、標準機能である「ページ数」などで指定する以外の方法は、申し訳ないですが私にはわかりません。ページごとにヘッダーに設定するセルを変えるのもマクロでは無理です。(というか、できるのかもしれませんが、私にはわかりません)
絶対にできないというわけではなく、印刷機能自体をマクロに作り込むことで実現可能だとは思いますが、ちょっと大変です。(ページ数を計算し、1ページごとにヘッダを設定して1ページごと印刷するマクロを組めばいいのですが…)
具体的にどういうことがやりたいか(ページごとに何をヘッダーにセットすればいいのか)補足していただけると、チャレンジしてみますが、ちょっとお時間をいただくかもしれません。
この回答への補足
ham_kamo様
本当に丁寧に教えて頂きまして、感謝しております。
シート内容が多いためページ数が増えてしまい、
対象名称を最初のページにしか入力していないため
2ページ以降の対象がわからなくなっていました。
シート自体は個別には保存せず、仮にAを記入し印刷後は
Bを記入、そしてC、、、というように都度打ち返るため
フッターで対象名称を確認する必要がありました。
ですので、シート内の各ページではなく、シート全てに同じ内容が
印刷できるといいため、教えて頂いた方法で問題ないと思います。
しかし、その後に行挿入や行削除を行い、項目を変更したところ
同じシート内の前ページの終わりの一部分(0.2行分くらい?)が
次のページに表示されるようになってしまいました。
枠に関しても、おそらくページ設定がずれたためかもしれないので
ページ設定の余白を修正して確認してみます。
エクセルがよくわからないので、ham_kamo様に何度もご迷惑をおかけして申し訳ありません。
No.3
- 回答日時:
No.1です。
補足拝見しました。> ページ上部分の印字が、一部前ページの内容を表示したり
とありますが、「前ページ」というのは「前シート」ということなのでしょうか?複数のシートをまとめて印刷しているのだとすると、No.1で回答したマクロでは不備があるので、以下のマクロに置きかえてください。("A1"は実際のセル番地に変えてください)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim W As Worksheet
For Each W In Worksheets
W.PageSetup.RightHeader = W.Range("A1").Text
Next
End Sub
それから、
> 一部の枠が表示されなくなってしまいました。
というのがよくわかりません。どこの枠が表示されなくなったのでしょうか?シート内のセルでしょうか。それともヘッダーに枠をつけているのでしょうか?(私が使用しているExcel2000にはそのような機能がないのでちょっとわからないのですが)
この点を補足していただけますか?
この回答への補足
いつもすばやいご回答ありがとうございます。
説明不足で申し訳ありません。
同じシートでデータが長いため、改ページしています。
枠は、結合したセルに枠をつけています。
宜しくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) 【エクセル】文中に別シートのセルの内容を自動入力したい 6 2022/11/17 11:30
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- その他(パソコン・スマホ・電化製品) Webページの印刷 1 2023/04/17 14:01
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
ヘッダー
Excel(エクセル)
-
エクセルで、ヘッダーに他のシートのセルの内容を表示させたいのですが。
Excel(エクセル)
-
-
4
VBAでExcelのヘッダーに文字列+セルの値を入れたい
Visual Basic(VBA)
-
5
Excel VBAで、 ヘッダーへのセル値の「位置」「フォントサイズ」変更は?
Visual Basic(VBA)
-
6
エクセルで、分かれた行を印刷タイトルに設定したいです。
Windows 7
-
7
Excelのヘッダー表示を変数で指定する場合
Excel(エクセル)
-
8
エクセルでのヘッダーをページごとにかえられますか?
Excel(エクセル)
-
9
印刷時に、複数ページに共通な部分(下部)をつけたいです!!
Excel(エクセル)
-
10
EXCELのフッターにオートシェイプで作成した押印欄を挿入したい
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
13
Excel ページ設定-ヘッダーの編集でファイル名の拡張子を出力しないようにするには?
Excel(エクセル)
-
14
条件付き書式で最終行に線を引きたい
Excel(エクセル)
-
15
Excelにて、フッターにシートの合計を入力したいのですが、分からずコードをご教授願います
Visual Basic(VBA)
-
16
エクセルでページごとにヘッダー・フッターを設定できますか?
Excel(エクセル)
-
17
Excelでヘッダに前日の日付を表示したい!
Excel(エクセル)
-
18
エクセル関数で日付かどうかの確認?
Excel(エクセル)
-
19
数字をカウントしながらエクセル印刷したい
Excel(エクセル)
-
20
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】スペースがいくつ入っ...
-
西暦や和暦の表示をyyyymmdd表...
-
【Microsoft Office Excel Comp...
-
Excelはなんで先頭の0を消すん...
-
Excelのセルを飛ばして入力する
-
別シートからの文字を変更
-
エクセルの行の抽出について質...
-
Excelのオートフィル
-
Excel 2019 のピボットテーブル...
-
スプレッドシート クエリ関数 1...
-
excelの不要な行の削除ができな...
-
Excel初心者です。 詳しい方、...
-
【Excel】セル内の時間帯が特定...
-
Excel初心者です。 詳しい方、...
-
EXACT関数とIF関数の組み合わせ...
-
Excelのグラフ軸について
-
スマートな関数を教えて下さい。
-
Excelで全角を半角にしたいので...
-
【マクロ】エクセルにかいてあ...
-
Excel:一部のフォントでセルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報