【Excel】エクセルにてページ番号をセルに表示（挿入）させる方法【関数を使用？】

この記事では「エクセルにてページ番号をセルに表示（挿入）させる方法」について解説していきます。

方法としては下記を用いて実現することになるでしょう。

・get.document(50)関数

・VBAマクロ

それでは、具体例を用いて解説しましょう。

エクセルにてページ番号をセルに表示(挿入)させる方法1【関数使用】
エクセルにてページ番号をセルに表示(挿入)させる方法2【マクロの使用】
まとめ　エクセルにてページ番号をセルに表示（挿入）させる方法

エクセルにてページ番号をセルに表示(挿入)させる方法1【関数使用】

それではエクセルにてページ番号をセルに表示（挿入）する方法について確認します。

まずはget.document(50)関数を使用した手法を紹介します。

下記サンプルでは、各ページの左角に「ページ番号 / 総ページ数」を書き出すことを想定しています。

まずは総ページ数を出力するための準備をします。

リボンより「数式」-「名前の定義」をクリックします。

「名前の管理」ダイアログが開くので「新規作成」ボタンをクリックします。

「新しい名前」ダイアログが開いたら、参照範囲に「get.document(50)」と入力します。

なお、名前は任意で日本語でも構いません。

コメントについては入力していなくても動作には無関係ですが、

「何のために作った?」

「どんな動作をする?」

といったことは忘れてしまいがちなので、書いておく方がベターです。

「OK」ボタンを押すと新しい名前が追加されます。

「名前の管理」ダイアログですることはここまでなので、このまま閉じてOKです。「閉じる」ボタンか右角の×を押すと閉じることができます。

ここまでできたら、該当のセルに関数を入力します。

1ページ目の左角にあたるセルA1に「=INT(COLUMN() / 8)+1 & ” / ” & PageTotal」と入力します。

登場する関数の意味を解説していきます。

INT関数は、引数として指定した数値の整数部分を取り出す関数であり、

=INT(数値)

と入力します。

COLUMN関数は列番号を求める関数で引数は不要です。

数式でしていることは

「列番号を8で割った値の整数値に1を加算する」

といったところです。

各ページの左角の列番号=1,9,17,…となるので、数式は1,2,3,…を出力し、これに「& ” / ” & PageTotal」を加えることで、本題の「ページ番号 / 総ページ数」を書き出すことができます。

ENTERを押すと、1ページ目について目的を果たすことができました。

続いて2,3ページの当該セルにも数式をコピーし、完成です。

エクセルにてページ番号をセルに表示(挿入)させる方法2【マクロの使用】

次に、VBAマクロを使用して実現する方法を紹介します。

前例では「セルの幅はデフォルトのまま使用しなければならない」といった制約が付き、非常に大きな弱点といえます。

このような制約を取り払い、さらに柔軟に対応したいとなれば、マクロしかありません。

前例と同じく、各ページの左角に「ページ番号 / 総ページ数」を書き出すこと想定で解説します。

マクロを利用する準備として、VBE(Visual Basic Editor)を起動する必要があります。

キーボードで「Alt+F11」と同時押し、下記画面を開きます。

左側のツリーの「VBAProject…」を右クリックし、コンテキストメニューより「挿入」→「標準モジュール」を選択します。

「標準モジュール」-「Module1」をクリックし、エディタ画面を開きます。

そこへ下記コードを記述します。

Sub Work()

    Dim i As Integer

    Dim Num As Integer: Num = Sheet7.VPageBreaks.Count

    Range("A1") = Str(1) & "/" & Str(Num + 1)

    For i = 1 To Num

        Sheet7.VPageBreaks(i).Location.Value = Str(i + 1) & "/" & Str(Num + 1)

    Next

End Sub