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
Note: 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:
Gerelateerde artikelen:
- Hoe maak je een dynamisch afdrukgebied in Excel?
- Hoe kan ik alleen de laatste pagina van een werkblad in Excel afdrukken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!