Wie drucke ich ein bestimmtes Blatt basierend auf Zellenwerten in Excel?
Haben Sie jemals versucht, bestimmte Blätter basierend auf einem Zellenwert zu drucken? In diesem Artikel werde ich über einige Beispiele zu diesem Problem sprechen. Wenn Sie an diesem Problem interessiert sind, fahren Sie bitte fort.
Druckblatt basierend auf einer Zelle mit VBA
Druckblatt basierend auf benachbarter Zelle mit VBA
Druckblatt basierend auf einer Zelle mit VBA
Angenommen, es gibt zwei Blätter, möchten Sie Blatt1 oder Blatt2 oder beide Blätter basierend auf Zelle A1 in Blatt1 drucken. Bitte gehen Sie wie folgt vor:
In diesem Fall gibt 1 ein, um das erste Blatt zu drucken, 2, um das zweite Blatt zu drucken, und 3, um beide Blätter zu drucken.
1. Geben Sie im ersten Blatt 1, 2 oder 3 für A1 ein und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster. Siehe Screenshot:
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Skript. Siehe Screenshot:
VBA: Druckblatt basierend auf dem Zellenwert
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 F5 Taste zum direkten Drucken der Blätter.
Druckblatt basierend auf benachbarter Zelle mit VBA
Wenn eine Arbeitsmappe mehrere Blätter enthält und Sie ein oder mehrere Blätter basierend auf den Zellenwerten dieser Arbeitsmappe drucken möchten, haben Sie folgende Möglichkeiten:
1. Erstellen Sie ein neues Blatt mit dem Namen Lösungsblatt in der von Ihnen verwendeten Arbeitsmappe und listen Sie alle Blattnamen in Spalte A auf (schließen Sie das Kontrollblatt nach Bedarf ein oder aus). Siehe Screenshot:
2. Art "drucken”In der nebenstehenden Zelle neben dem Blattnamen, wenn Sie ihn drucken möchten. Siehe Abbildung gezeigt.
3. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
4. Fügen Sie den folgenden Code in das Modul ein und drücken Sie F5 Schlüssel zum Ausführen des Codes.
VBA: Drucken basierend auf benachbarter 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
Nach dem Ausführen des Codes werden die Blätter jetzt gedruckt, und gleichzeitig ersetzt ein neues Kontrollblatt das alte.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
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!