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

Excelのセル値に基づいて特定のページまたはワークシートを印刷しようとしたことがありますか？ そしてそれを達成する方法は？ この記事のメソッドは、それを詳細に解決するのに役立ちます。

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

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

たとえば、現在のワークシートのセルA1にページ番号1を入力すると、現在のワークシートのページ1などの特定のページが自動的に印刷されるようにします。 あなたはそれを達成するために次のようにすることができます。

1.印刷するページ番号が含まれているセルを選択し、を押します。 他の • F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。 次にクリック インセット > モジュール.

2.次に、 アプリケーション向け Microsoft Visual Basic ウィンドウがポップアップします。次のVBAコードをコピーして貼り付けてください。 Code 窓。

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 ウィンドウがポップアップします。次の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

Note：必要に応じて、コード内のセルとセルの値を変更できます。

3。 押す 他の + Q を閉じる アプリケーション向け Microsoft Visual Basic 窓。

セルB1001に番号2を入力すると、 Kutools for Excel ダイアログボックスが表示されたら、をクリックしてください 可 ボタンをクリックして印刷を開始します。 またはをクリックします いいえ ボタンを押して、印刷せずにダイアログボックスを直接終了します。 スクリーンショットを参照してください：

ヒント： 現在のワークシートの1、6、9ページなどの連続していないページを直接印刷する場合、またはすべての偶数ページまたは奇数ページのみを印刷する場合は、 指定されたページを印刷する ユーティリティpf Kutools for Excel 以下のスクリーンショットのように。 あなたは行くことができます 30 日間、制限なしでソフトウェアを無料でダウンロードできます.

関連記事:

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