印刷ごとにセルの値を自動でインクリメントする方法は？

著者Xiaoyang変更日2025-07-24

多くのビジネスや事務処理ワークフローでは、記録管理や追跡をスムーズに行うため、文書・請求書・小切手などの複数のコピーを、それぞれ一意のシリアル番号や識別子付きで印刷する必要があります。たとえば、Excel ワークシートが小切手または証憑のテンプレートとして設定されており、セル A1 に「Company-001」のような小切手番号が入力されているとします。このページを100 部印刷する場合、毎回手動で番号を更新するのは非常に面倒で、ミスも起こりやすくなります。理想的には、Excel が印刷アクションごとにセル A1 の値を自動的にインクリメントし、1 回目の印刷では「Company-001」、2 回目では「Company-002」、……、最終的には「Company-100」と表示されるようにしたいものです。

標準のExcel には、印刷ジョブごとにセルの値を自動的に増加させる機能は搭載されていません。ただし、VBA マクロを使えば、この自動化を簡単に実現できます。シリアルフォーム、チケット、小切手など、印刷ページごとに一意の識別子が必要なあらゆるシーンで、連続した番号付きの紙出力を効率よく生成したい場合、VBA は非常に実用的な解決策です。この方法により、手動入力によるミスを防ぎ、時間を節約しながら、各コピーに確実に一意の番号を付与できます。

以下では、印刷のたびにセルの値を自動でインクリメントする VBA の方法をご紹介します。また、本記事では、その効果的な活用法や注意点、そしてExcel ワークフローにおける一括印刷タスクを最適化するための実践的なヒントもお伝えしています。

VBA コードで印刷ごとにセルの値を自動インクリメントする

VBA コードで印刷ごとにセルの値を自動インクリメントする

Excel には、印刷ごとにセルの値を自動的にインクリメントするネイティブな機能は直接搭載されていません。このプロセスを自動化するには、VBA マクロを使用して指定された部数を効率よく印刷し、そのたびにセル A1 の識別子を自動増分できます。この方法は、小切手・ラベル・フォームなど、連番付きの個別紙出力を生成する用途に特に適しています。マクロを使用する際は、Excel 環境でマクロを有効にする必要がある場合があり、また VBA コードの実行がファイルのセキュリティ設定に影響を及ぼす可能性があることにご注意ください。コードを実行する前に、必ず作業内容を保存してください。

1．ALT + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。VBA を初めて使う場合は、Excel のリボンに開発タブを表示させる必要があるかもしれません。

2．VBA エディターで、挿入 > 標準モジュールをクリックして、新しいモジュールウィンドウを開きます。開いたモジュールに、以下の VBA コードをコピー＆ペーストしてください。このスクリプトにより、アクティブなワークシートから印刷するたびに印刷番号が自動的に1 ずつ増加します。

VBA コード：印刷ごとにセルの値を自動インクリメントする：

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

このコードは、ユーザーに印刷したい総部数を尋ね、各印刷サイクルでセル A1 の値を更新し、各バージョンを自動的に印刷します。

3．コードを貼り付けたら、ワークシートが正しく準備されており、アクティブセル（通常は A1）にベースとなるテキスト（例：「Company-001」）が入力されていることを確認してください。VBA エディターでF5キーを押すか、実行をクリックしてマクロを開始します。すると、印刷したい部数を尋ねるプロンプトボックスが表示されるので、希望する数値（例：100）を入力して確定してください。下のインターフェーススクリーンショットを参照してください：

印刷部数と連番を入力するプロンプトボックスのスクリーンショット

数値以外の値を入力したり［キャンセル］をクリックしたりすると、処理は中断され、何も実行されません。実行前にセル A1 の開始値を再度確認し、必ず数値のみを入力してください。

4．OKボタンをクリックすると、マクロが指定された回数だけワークシートを自動的に印刷し、セル A1 の連番を毎回更新します。これにより、各印刷ページが順番に番号付けされます（例：Company-001、Company-002、Company-003、…。入力内容とマクロ内の書式設定によっては、Company-100 まで対応可能）。

追加の注意点とヒント：コード内では、シリアル番号にセルA1が使用されています。セル A1 の既存の内容は、最初の新しいシーケンス番号によって上書きされるため、保持したい情報がある場合は、コード実行前に必ずこのセルをバックアップしてください。デフォルトの数値プレフィックス（「)Company-00」）は、VBA コード内で任意のシリアル書式に合わせて自由に調整可能です。テキストと数値の桁揃え（パディング）も、必要に応じて変更してください。共有ワークブックや保護されたワークブックでマクロを使用する際は特にご注意ください。マクロの実行には適切な権限が必要です。また、プリンターの速度が遅い場合は、プリントキューが過負荷にならないよう、非常に大きな部数での実行は避けてください。

印刷ジョブが開始されない、番号が正しくインクリメントされない、セル参照に関するエラーが発生するなどの問題が起きた場合は、マクロが有効になっており、かつワークシートが保護されていないことを改めてご確認ください。実行前に参照セル（この例では A1）が正しく設定されていることを確認のうえ、バッチ操作による意図しないデータ損失を防ぐため、ワークブックを事前に保存することを強くおすすめします。異なるセルや数値書式、ワークシートを使用するなど、さらなるカスタマイズが必要な場合は、VBA コード内のセル参照および書式設定の行を適宜調整してください。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。