Wie drucke ich bestimmte Seiten oder Arbeitsblätter basierend auf dem Zellenwert in Excel?
Haben Sie jemals versucht, bestimmte Seiten oder Arbeitsblätter basierend auf einem Zellenwert in Excel zu drucken? Und wie erreicht man das? Die Methoden in diesem Artikel können Ihnen helfen, das Problem im Detail zu lösen.
Drucken Sie eine bestimmte Seite basierend auf dem Zellenwert mit VBA-Code
Drucken Sie ein bestimmtes Arbeitsblatt basierend auf dem Zellenwert mit VBA-Code
Drucken Sie eine bestimmte Seite basierend auf dem Zellenwert mit VBA-Code
Sie möchten beispielsweise, dass eine bestimmte Seite wie Seite 1 des aktuellen Arbeitsblatts automatisch gedruckt wird, wenn Sie die Seitennummer 1 in Zelle A1 des aktuellen Arbeitsblatts eingeben. Sie können wie folgt vorgehen, um dies zu erreichen.
1. Wählen Sie die Zelle aus, die die Seitenzahl enthält, auf der Sie drucken möchten, und drücken Sie dann Andere und F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster. Dann klick Insert > Modul.
2. Dann die Microsoft Visual Basic für Applikationen Das Fenster öffnet sich. Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das ein Code Fenster.
VBA-Code: Seite basierend auf dem Zellenwert drucken
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. Drücken Sie F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Klicken Sie im Dialogfeld auf die Schaltfläche Ja Klicken Sie auf die Schaltfläche, um die bestimmte Seite zu drucken, oder klicken Sie auf Nein Klicken Sie auf die Schaltfläche, um das Dialogfeld zu schließen, wenn Sie nicht drucken möchten. Siehe Screenshot:
Dann öffnet sich das Vorschaufenster der bestimmten Seite des aktuellen Arbeitsblatts. Klicken Sie auf Drucken Taste, um den Druckvorgang zu starten.
Drucken Sie eine bestimmte Seite basierend auf dem Zellenwert mit VBA-Code
Angenommen, Sie möchten das aktive Arbeitsblatt drucken, wenn der Wert in Zelle B2 dieses Blattes gleich 1001 ist. Sie können dies mit dem folgenden VBA-Code erreichen. Bitte gehen Sie wie folgt vor.
1. Klicken Sie mit der rechten Maustaste auf Blatt Tab dass Sie basierend auf dem Zellenwert drucken möchten, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.
2. Dann die Microsoft Visual Basic für Applikationen Das Fenster wird geöffnet. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Arbeitsblatt basierend auf dem Zellenwert drucken
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: Sie können die Zelle und den Zellenwert im Code nach Bedarf ändern.
3. Drücken Sie Andere + Q schließen Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie die Nummer 1001 in die Zelle B2 eingeben, a Kutools for Excel Das Dialogfeld wird angezeigt. Klicken Sie auf Ja Taste, um den Druckvorgang zu starten. Oder klicken Sie auf Nein Schaltfläche, um das Dialogfeld direkt ohne Drucken zu verlassen. Siehe Screenshot:
In Verbindung stehende Artikel:
- Wie erstelle ich einen dynamischen Druckbereich in Excel?
- Wie drucke ich nur die letzte Seite eines Arbeitsblatts in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!