Wie druckt man bestimmte Blätter basierend auf Zellwerten in Excel?

Haben Sie jemals versucht, bestimmte Blätter basierend auf einem Zellenwert zu drucken? In diesem Artikel werde ich einige Beispiele zur Lösung dieses Problems vorstellen. Wenn Sie interessiert sind, lesen Sie bitte weiter.

Blatt basierend auf einer Zelle mit VBA drucken

Blatt basierend auf einer benachbarten Zelle mit VBA drucken

Blatt basierend auf einer Zelle mit VBA drucken

Angenommen, es gibt zwei Blätter, und Sie möchten Blatt1 oder Blatt2 oder beide Blätter basierend auf Zelle A1 in Blatt1 drucken. Bitte gehen Sie wie folgt vor:

In diesem Fall bedeutet die Eingabe von 1, das erste Blatt zu drucken, die Eingabe von 2, das zweite Blatt zu drucken, und 3, um beide Blätter zu drucken.

1. Geben Sie je nach Bedarf 1, 2 oder 3 in Zelle A1 im ersten Blatt ein, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul Skript ein. Siehe Screenshot:

VBA: Blatt basierend auf Zellenwert drucken

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. Drücken Sie die Taste F5, um das/die Blatt/Blätter direkt zu drucken.

Blatt basierend auf einer benachbarten Zelle mit VBA drucken

Wenn Sie mehrere Blätter in einer Arbeitsmappe haben und eines oder mehrere Blätter basierend auf Zellenwerten aus dieser Arbeitsmappe drucken möchten, können Sie wie folgt vorgehen:

1. Erstellen Sie ein neues Blatt namens Kontrollblatt in der von Ihnen verwendeten Arbeitsmappe, und listen Sie alle Blattnamen in Spalte A auf (einschließlich oder ausschließlich des Kontrollblatts, je nach Bedarf). Siehe Screenshot:

2. Geben Sie „Drucken“ in die benachbarte Zelle neben dem Blattnamen ein, wenn Sie es drucken möchten. Siehe den gezeigten Screenshot.

3. Drücken Sie die Tasten Alt + F11 um das Fenster Microsoft Visual Basic for Applications zu aktivieren, und klicken Sie auf Einfügen > Modul. Siehe Screenshot：

4. Fügen Sie den folgenden Code in das Modul ein, und drücken Sie die Taste F5, um den Code auszuführen.

VBA: Drucken basierend auf einer benachbarten Zelle

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

Nachdem Sie den Code ausgeführt haben, wird/die Blätter sofort gedruckt, und gleichzeitig wird ein neues Kontrollblatt das alte ersetzen.

Tipp: Wenn Sie Kutools für Excel haben, können Sie mit dem Hilfsprogramm Verknüpfungstabelle erstellen schnell eine Liste aller Blattnamen in einem neuen Blatt mit einem anklickbaren Link erstellen.