メインコンテンツへスキップ

Excelのセル/ヘッダー/フッターにページ番号を挿入するにはどうすればよいですか?

Excelファイルを印刷する場合、印刷ファイルをきれいに読みやすくするために、ページ番号をページに挿入する必要がある場合があります。 この記事では、ページ番号をセル、ヘッダー、またはフッターに挿入するための簡単なトリックをいくつか紹介します。

XNUMXつのワークシートのヘッダー/フッターにページ番号を挿入します

複数のワークシートのヘッダー/フッターにページ番号を挿入します

VBAコードを使用してセルにページ番号を挿入します

Excelで一度にすべてのページ番号を削除します


矢印青い右バブル XNUMXつのワークシートのヘッダー/フッターにページ番号を挿入します

通常、ページ番号をヘッダーまたはフッターにすばやく挿入するには、 ヘッダーとフッター 機能、次のようにしてください:

1。 ページ番号をヘッダーまたはフッターに挿入するワークシートに移動します。

2。 次に、をクリックします インセット > ヘッダーとフッター、およびワークシートは ページレイアウト ビュー、スクリーンショットを参照してください:

ドキュメント挿入ページ番号1

3。 ページ番号を挿入するヘッダーまたはフッターをクリックしてから、 設計 タブ付き ヘッダーとフッターのツール リボンにが表示されたら、をクリックします 設計 > ページ番号、スクリーンショットを参照してください:

ドキュメント挿入ページ番号2

4。 そして、あなたはプレースホルダーを見ることができます &[ページ] 選択したセクションにが表示されたら、ヘッダーまたはフッター領域の外側をクリックしてページ番号を表示します。 スクリーンショットを参照してください:

ドキュメント挿入ページ番号3

5。 これで、をクリックして通常のビューにリセットできます。 View > ノーマル、このワークシートを印刷すると、選択したヘッダーまたはフッターにページ番号が挿入されていることがわかります。

Note:ページ番号を1 of 15、2 of 15形式で表示する場合は、これを直接入力する必要があります。 &[ページ]の&[ページ] ヘッダーまたはフッターのフィールドボックスに、スクリーンショットを参照してください。

ドキュメント挿入ページ番号4


矢印青い右バブル 複数のワークシートのヘッダー/フッターにページ番号を挿入します

上記の方法は、ページ番号をXNUMXつのワークシートに挿入するのに役立ちます。ワークブックのすべてのワークシートにページ番号を挿入して、すべてのページに順番に番号を付ける場合は、次のようにしてください。

1. すべてのシートタブを選択してから、 ページレイアウト タブをクリックして ダイアログボックスランチャーボタン のアイコン ページ設定 グループ、スクリーンショットを参照してください:

ドキュメント挿入ページ番号5

2。 の中に ページ設定 ダイアログボックスをクリックしてください ヘッダー/フッター タブ、[OK]をクリックします カスタムヘッダー or カスタムフッター 必要なヘッダーまたはフッターを設定するには、スクリーンショットを参照してください。

ドキュメント挿入ページ番号6

3。 とで ヘッダ or フッター ダイアログボックスで、ページ番号が挿入される場所を定義してください。 左セクション:, 中央部:または 右のセクション: 必要に応じてボックスを開き、[ ページ番号を挿入 アイコン、およびプレースホルダー &[ページ] が表示されます。 スクリーンショットを参照してください:

ドキュメント挿入ページ番号7

注: これを入力してください &[ページ]の&[ページ] ページ番号を1of 45、2 of 45として表示したい場合は、ヘッダーまたはフッターのフィールドボックスに入力します…

4. 次に、をクリックします。 OK > OK ダイアログボックスを閉じるには、このワークブックを印刷するときに、印刷プレビューで、すべてのページ番号がヘッダーまたはフッターに順番に挿入されていることを確認できます。


矢印青い右バブル VBAコードを使用してセルにページ番号を挿入します

ページ番号をヘッダーまたはフッターに挿入するのは簡単ですが、ページ番号をワークシートセルに挿入する必要がある場合は、直接行う方法はありません。 次のVBAコードは、この問題の解決に役立つ場合があります。

1。 このセルのページ番号を表示するセルをクリックします。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:現在のページ番号をセルに挿入します。

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4。 次に、 F5 このコードを実行するためのキーを押すと、このセルのページ番号が選択したセルに表示されます。スクリーンショットを参照してください。

ドキュメント挿入ページ番号8


矢印青い右バブル Excelで一度にすべてのページ番号を削除します

すべてのページ番号を削除するには、次の手順を適用できます。

1。 すべてのシートタブを選択し、 ページレイアウト リボンのタブをクリックし、をクリックします ダイアログボックスランチャーボタン のアイコン ページ設定 グループ、スクリーンショットを参照してください:

ドキュメント挿入ページ番号9

2。 の中に ページ設定 ダイアログボックスで、をクリックします。 ヘッダー/フッター タブをクリックし、 (なし) ヘッダ or フッター ドロップダウンリスト、スクリーンショットを参照してください:

ドキュメント挿入ページ番号10

3. 次に、をクリックします。 OK ボタンをクリックすると、すべてのページ番号がワークブックから一度に削除されます。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations