Excelでセルの値に基づいて特定のシートを印刷するにはどうすればよいですか？

Author Sun Last modified 2025-08-26

セルの値に基づいて特定のシートを印刷しようとしたことはありますか？この記事では、その問題に対処するためにいくつかの例を提供します。興味がある場合は、ぜひ引き続きお読みください。

VBAを使用してセルに基づいてシートを印刷する

2つのシートがあり、Sheet1のセルA1に基づいてSheet1またはSheet2、または両方のシートを印刷したいとします。以下のように操作してください：

この場合、1を入力すると最初のシートが印刷され、2を入力すると2番目のシートが印刷され、3を入力すると両方のシートが印刷されます。

1. 最初のシートのA1に必要に応じて1、2、または3を入力し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. クリックします挿入 > モジュールそして、以下のコードを モジュール スクリプトに貼り付けます。スクリーンショットをご覧ください：
A screenshot of inserting a Module in the VBA window

VBA: セルの値に基づいてシートを印刷する

Sub PrintStuff()
'UpdayebyExtendoffice20180811
    Dim xRgVal As Variant
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    xRgVal = xSheets(1).Range("A1").Value
    If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
        Select Case xRgVal
            Case 1
                xSheets(1).PrintOut
            Case 2
                xSheets(2).PrintOut
            Case 3
                xSheets(1).PrintOut
                xSheets(2).PrintOut
            Case Else
                MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
                Exit Sub
            End Select
    Else
        Exit Sub
    End If
End Sub

A screenshot of VBA code inserted in the Module window

3. F5キーを押して直接シートを印刷します。

隣接するセルに基づいてVBAでシートを印刷する

ワークブックに複数のシートがあり、このワークブックのセル値に基づいて1つまたは複数のシートを印刷したい場合、以下のように操作できます：

1. 使用しているワークブックに「 コントロールシート 」という新しいシートを作成し、列Aにすべてのシート名をリストします（必要に応じてコントロールシートを含むか除外します）。スクリーンショットをご覧ください：
A screenshot showing the 'Control Sheet' with sheet names listed in column A in Excel

2. 印刷したいシート名の隣のセルに「print」と入力します。表示されているスクリーンショットをご覧ください。
A screenshot of the 'Control Sheet' with 'print' values entered in the adjacent cells next to the sheet names

3. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にし、クリックします挿入 > モジュール。スクリーンショットをご覧ください：
A screenshot of inserting a Module in the VBA window

4. 以下のコードをモジュールに貼り付け、F5キーを押してコードを実行します。

VBA: 隣接するセルに基づいて印刷する

Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Control Sheet"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "Print" Or xRgVal = "print" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    xCSheet.Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Control Sheet"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Sheet Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Print?"
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

A screenshot of VBA code inserted in the Module window

コードを実行すると、シートはすぐに印刷され、同時に新しいコントロールシートが古いものに置き換わります。

ヒント: Kutools for Excelを持っている場合、リンクテーブルの作成機能を使用して、クリック可能なリンク付きの新しいシートですべてのシート名のリストをすばやく作成できます。

A screenshot of a Control Sheet with clickable links to sheet names after using Kutools

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数