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

セルの値に基づいてExcelで特定のページやワークシートを印刷する必要がありましたか？ 特定のページ番号や条件が満たされたときにワークシート全体を印刷する場合でも、このガイドではそれを実現するためのステップバイステップの方法を提供します。

VBAコードを使用してセルの値に基づいて特定のページを印刷する
VBAコードを使用してセルの値に基づいて特定のワークシートを印刷する

VBAコードを使用してセルの値に基づいて特定のページを印刷する

例えば、現在のワークシートのセルA1にページ番号「1」を入力すると、現在のワークシートの1ページ目が自動的に印刷されるようにしたいとします。 以下のように操作することでこれを実現できます。

1. 印刷したいページ番号が含まれているセルを選択し、AltキーとF11キーを同時に押して Microsoft Visual Basic for Applicationsウィンドウを開きます。次に、挿入 > モジュールをクリックします。

2. Microsoft Visual Basic for Applicationsウィンドウがポップアップ表示されたら、次のVBAコードをコピーしてコードウィンドウに貼り付けます。

VBAコード: セルの値に基づいてページを印刷する

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. F5キーを押してコードを実行します。Kutools for Excelダイアログボックスがポップアップ表示されたら、該当するページを印刷する場合は「はい」ボタンをクリックし、印刷したくない場合は「いいえ」ボタンをクリックしてダイアログボックスを終了します。スクリーンショットをご覧ください：

現在のワークシートの該当するページのプレビューウィンドウが開いたら、「印刷」ボタンをクリックして印刷を開始してください。

VBAコードを使用してセルの値に基づいて特定のページを印刷する

このシートのセルB2の値が1001に等しい場合にアクティブなワークシートを印刷したいと仮定します。以下のVBAコードを使用してこれを実現できます。以下のように操作してください。

1. セルの値に基づいて印刷したいシートタブを右クリックし、右クリックメニューから「 コードの表示」をクリックします。

2. Microsoft Visual Basic for Applicationsウィンドウがポップアップ表示されたら、次のVBAコードをコピーしてコードウィンドウに貼り付けます。

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

注釈: 必要に応じてコード内のセルとセルの値を変更できます。

3. Alt + Qキーを押してMicrosoft Visual Basic for Applicationsウィンドウを閉じます。

セルB2に数値1001を入力すると、Kutools for Excelダイアログボックスがポップアップ表示されます。「はい」ボタンをクリックして印刷を開始するか、「いいえ」ボタンをクリックしてダイアログボックスを直接終了して印刷をキャンセルします。スクリーンショットをご覧ください：

ヒント: 現在のワークシートでページ1、6、9などの非連続ページのみを印刷したり、すべての偶数ページまたは奇数ページのみを印刷したい場合は、下のスクリーンショットに示すように、Kutools for Excelの「指定したページを印刷する」機能を試してみてください。

関連記事：

• Excelで動的な印刷範囲を作成するにはどうすればよいですか？
• Excelでワークシートの最後のページのみを印刷するにはどうすればよいですか？