![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
どんなシートでもできるようにすると長くなるので、条件付きで書いてみました。
下は、Sheet1にある総頁数4のデータをセンターヘッダー(CenterHeader)を変えながら印刷する例です。
実際の頁数は設定して下さい。(AllPage = 4)
コード内にページ単位のヘッダーを登録するようにしています。
Case 1~ のところには1ページ目のヘッダーを書き込みます
5ページ目以降がある場合は
Case 5: .CenterHeader = "・・・・・・・"
Case 6: .CenterHeader = "・・・・・・・"
のようにして増やして下さい。別のシートに入力しておいて参照する方法もあります。
ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。
出てきたコードウインドウに下記マクロをコピーして貼り付けます。
標準モジュールに貼り付け(当方、Excel2000です)
↓
Sub InsatuHeaderSet()
Dim pg As Integer 'ページカウンタ
Const AllPage = 4 'ページ総数( 4ページの例です)
Worksheets("Sheet1").Activate
For pg = 1 To AllPage
With ActiveSheet.PageSetup
Select Case pg
'左のヘッダーなら .LeftHeader
'右のヘッダーなら .RightHeader
Case 1: .CenterHeader = "1頁めのヘッダーを定義○"
Case 2: .CenterHeader = "2頁めのヘッダーを定義●"
Case 3: .CenterHeader = "3頁めのヘッダーを定義☆"
Case 4: .CenterHeader = "4頁めのヘッダーを定義★"
'Case 5: .CenterHeader = " "
End Select
ActiveWindow.SelectedSheets.PrintOut From:=pg, To:=pg
End With
Next
End Sub
No.1
- 回答日時:
ヘルプには以下の記述がありました。
シートを分ける(或いは参照設定をする)とかやった方がいいかも。
独自のヘッダーやフッターを作成する
1 つのシートにユーザーが設定できるヘッダーおよびフッターは、それぞれ 1 つだけです。新しいヘッダーやフッターを作成すると、既存のヘッダーやフッターは新しいヘッダーやフッターに置き換えられます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- その他(Microsoft Office) エクセルのヘッダー番号を順番に &[ページ番号]にしておいて 最終ページだけ別なものにしたいのですが 3 2022/08/03 19:02
- Excel(エクセル) エクセルで 同じシートにある2ページに、おなじページをつけたい 3 2022/07/11 16:15
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- その他(パソコン・スマホ・電化製品) Webページの印刷 1 2023/04/17 14:01
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- ホームページ作成・プログラミング ホームページ作成について。「ワードプレスではありません」。 3 2023/08/13 14:44
- HTML・CSS インクルードした要素がヘッダーにかぶってしまう 3 2022/09/13 17:35
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルでのヘッダーをページごとにかえられますか?
Excel(エクセル)
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
ヘッダー
Excel(エクセル)
-
-
4
EXCEL-VBAで印刷時のページ番号を取得したい
Excel(エクセル)
-
5
Excelのヘッダー表示を変数で指定する場合
Excel(エクセル)
-
6
Excelで個別にフッター
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセルで、ヘッダーに特定セル内容を指定して印刷したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】PDF出力に任意のファイ...
-
エクセルで、ハイパーリンクの...
-
エクセルのシートごとに連番を...
-
Excelマクロ パスワードを入力...
-
エクセル VBAでシートのコピー...
-
エクセルでページごとにヘッダ...
-
エクセルで設定していないのに...
-
PowerPointの表内のカンマ
-
EXCELでタイトル行と一番下の行...
-
EXCELで縦の行全てに一括して文...
-
EXCEL 連動したドロップダウン...
-
LINEのこの空白ってどんな意味...
-
結合されたセルの一部を変更す...
-
エクセルでハイパーリンクのコピー
-
16桁以上の「0」に変換されてし...
-
エクセルでleft関数の結果が表...
-
Wordの差し込み印刷で空白行が...
-
Excelのテーブル上のセルの保護...
-
エクセルで休日の「休」という...
-
エクセルのセル内で改行コピー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】PDF出力に任意のファイ...
-
エクセルでページごとにヘッダ...
-
エクセルのシートごとに連番を...
-
excel串刺し計算で合計値が表示...
-
エクセルで設定していないのに...
-
エクセルで、ハイパーリンクの...
-
エクセル 大量のグラフ修正の仕方
-
既存ワークシートにピボットテ...
-
Access2010 Excelのエクスポー...
-
[EXCEL] あるフィールドをキー...
-
Excelマクロ パスワードを入力...
-
【VBA】#N/Aを無視して串刺し...
-
複数のEXCELシートの印刷順の指定
-
エクセル VBAでシートのコピー...
-
社内SEです。機種、ライセンス...
-
Excel2000 VBAで新規シート名を...
-
エクセル データベースからの引用
-
エクセルVBAのコードについて ...
-
EXCEL VBA 複数シートを指定回...
-
複数のシートに跨ってVLOOKUPす...
おすすめ情報