Hoe drukt u specifieke werkbladen af op basis van celwaarden in Excel?
Hebt u ooit geprobeerd om specifieke werkbladen af te drukken op basis van een celwaarde? In dit artikel geef ik enkele voorbeelden om dit probleem op te lossen. Als u geïnteresseerd bent, lees dan verder.
Werkblad afdrukken op basis van een cel met VBA
Werkblad afdrukken op basis van de aangrenzende cel met VBA
Werkblad afdrukken op basis van een cel met VBA
Stel dat u twee werkbladen hebt en Werkblad1, Werkblad2 of beide wilt afdrukken op basis van de waarde in cel A1 van Werkblad1. Volg dan de onderstaande stappen:
Voer in dit geval 1 in om het eerste werkblad af te drukken, 2 voor het tweede werkblad en 3 om beide werkbladen af te drukken.
1. Voer 1, 2 of 3 in, afhankelijk van wat u nodig hebt, in cel A1 van het eerste werkblad en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in het Module-script. Zie schermafbeelding:
VBA: Werkblad afdrukken op basis van celwaarde
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. Druk op F5 om het/de werkblad(en) direct af te drukken.
Werkblad afdrukken op basis van de aangrenzende cel met VBA
Als u meerdere werkbladen hebt in een werkmap en u één of meerdere werkbladen wilt afdrukken op basis van celwaarden uit deze werkmap, kunt u als volgt te werk gaan:
1. Maak een nieuw werkblad aan met de naam Control Sheet in de werkmap die u gebruikt, en vermeld alle werkbladnamen in kolom A (inclusief of exclusief het controleblad, naar wens). Zie de schermafbeelding:
2. Typ „print” in de cel naast de werkbladnaam als u deze wilt afdrukken. Zie de getoonde schermafbeelding.
3. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen en klik op Invoegen > Module. Zie schermafbeelding：
4. Plak de onderstaande code in de module en druk op F5 om de code uit te voeren.
VBA: Afdrukken op basis van aangrenzende cel
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
Nadat u de code hebt uitgevoerd, worden de werkblad(en) onmiddellijk afgedrukt en tegelijkertijd vervangt een nieuw controleblad het oude.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins