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

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

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

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

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

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

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

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

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

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

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

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

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

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

2. 印刷したいシート名の隣のセルに「print」と入力します。表示されているスクリーンショットをご覧ください。

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

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

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

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