Hoe bepaalde pagina's of werkbladen afdrukken op basis van de celwaarde in Excel?
Heb je ooit geprobeerd een bepaalde pagina of werkblad af te drukken op basis van een celwaarde in Excel? En hoe bereik je dat? De methoden in dit artikel kunnen u helpen het in detail op te lossen.
Druk een bepaalde pagina af op basis van de celwaarde met VBA-code
Druk een bepaald werkblad af op basis van de celwaarde met VBA-code
Druk een bepaalde pagina af op basis van de celwaarde met VBA-code
U wilt bijvoorbeeld dat een bepaalde pagina, zoals pagina 1 van het huidige werkblad, automatisch wordt afgedrukt wanneer u paginanummer 1 invoert in cel A1 van het huidige werkblad. U kunt het volgende doen om dit te bereiken.
1. Selecteer de cel met het paginanummer waarop u wilt afdrukken, en druk vervolgens op anders en F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster. Dan klikken Invoegen > module.
2. Vervolgens de Microsoft Visual Basic voor toepassingen venster verschijnt, kopieer en plak de volgende VBA-code in het Code venster.
VBA-code: pagina afdrukken op basis van celwaarde
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. druk op F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, klik op de Ja knop om de bepaalde pagina af te drukken, of klik op de Nee om het dialoogvenster te sluiten als u niet wilt afdrukken. Zie screenshot:
Vervolgens wordt het voorbeeldvenster van de bepaalde pagina van het huidige werkblad geopend, klik op de Print om te beginnen met afdrukken.
Druk een bepaalde pagina af op basis van de celwaarde met VBA-code
Stel dat u het actieve werkblad wilt afdrukken als de waarde in cel B2 van dit blad gelijk is aan nummer 1001. U kunt dit bereiken met de volgende VBA-code. Ga als volgt te werk.
1. Klik met de rechtermuisknop op het Blad Tab die u wilt afdrukken op basis van de celwaarde, en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.
2. Vervolgens de Microsoft Visual Basic voor toepassingen venster verschijnt, kopieer en plak de volgende VBA-code in het codevenster.
VBA-code: werkblad afdrukken op basis van celwaarde
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
Opmerking:: U kunt de cel- en celwaarde in de code naar behoefte wijzigen.
3. druk op anders + Q om de te sluiten Microsoft Visual Basic voor toepassingen venster.
Bij het invoeren van nummer 1001 in cel B2, een Kutools for Excel dialoogvenster verschijnt, klik dan op het Ja om te beginnen met afdrukken. Of klik op het Nee om het dialoogvenster direct te verlaten zonder af te drukken. Zie screenshot:
Tip: Als u niet-opeenvolgende pagina's zoals pagina 1, 6 en 9 in het huidige werkblad rechtstreeks wilt afdrukken of alleen alle even of oneven pagina's wilt afdrukken, kunt u de Druk gespecificeerde pagina's af hulpprogramma pf Kutools for Excel zoals hieronder getoond screenshot. Je kan gaan naar gratis download de software zonder beperking in 30 dagen.
Gerelateerde artikelen:
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
