![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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(エクセル)
-
VBAでExcelのヘッダーに文字列+セルの値を入れたい
Visual Basic(VBA)
-
-
4
エクセルで、ヘッダーに他のシートのセルの内容を表示させたいのですが。
Excel(エクセル)
-
5
Excel VBAで、 ヘッダーへのセル値の「位置」「フォントサイズ」変更は?
Visual Basic(VBA)
-
6
エクセルで、分かれた行を印刷タイトルに設定したいです。
Windows 7
-
7
Excelのヘッダー表示を変数で指定する場合
Excel(エクセル)
-
8
印刷時に、複数ページに共通な部分(下部)をつけたいです!!
Excel(エクセル)
-
9
エクセルでのヘッダーをページごとにかえられますか?
Excel(エクセル)
-
10
Excelでヘッダに前日の日付を表示したい!
Excel(エクセル)
-
11
エクセルのフッター(右)に入力した文字の後にスペースを入れたい
Excel(エクセル)
-
12
EXCELのフッターにオートシェイプで作成した押印欄を挿入したい
Excel(エクセル)
-
13
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
14
エクセルでページごとにヘッダー・フッターを設定できますか?
Excel(エクセル)
-
15
Excel ページ設定-ヘッダーの編集でファイル名の拡張子を出力しないようにするには?
Excel(エクセル)
-
16
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
17
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
エクセルでエラーが出て困っています。
Excel(エクセル)
-
20
エクセル関数で日付かどうかの確認?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について教えて...
-
Excelカスタム関数(アドイン登...
-
Excelデータをコピペして、ペー...
-
Excel関数-文字列で自動作成さ...
-
スプレッドシート、Excelでの数...
-
Excelで50個のセルに同じ文字を...
-
Microsoft Officeの中古は信用...
-
スプレッドシートで使う数式を...
-
エクセルVBA、別ブックへ転記す...
-
エクセルで会社の従業員のデー...
-
エクセルで不等号記号(≠)が上に...
-
エクセルの表で1年間の曜日を...
-
A列とB列を参照してC列に連番を...
-
エクセルの空欄をつめて、次の...
-
エクセルでの特別な文字を上に...
-
エクセルでセルに標準で入力さ...
-
エクセル日付 文字列の関数がエ...
-
エクセル2013で月間勤務表から...
-
エクセルの日付を編集する
-
EXCELの質問です 119から足した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報