Opmerking: de andere talen van de website zijn door Google vertaald. Terug naar Engels
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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.
kte tabblad 201905

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!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan · 1 years ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ryan,
      If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

      Sub Print_Pages()
      Dim xPage As String
      Dim xYesorNo As Integer
      Dim xI As String
      Dim xPArr() As String
      Dim xIS, xIE, xF, xNum As Integer
      xPage = ActiveCell.Value
      xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
      If xYesorNo = vbYes Then
      xPArr() = Split(xPage, "-")
      If UBound(xPArr) = 0 Then
      If IsEmpty(xPage) And IsNumeric(xPage) Then
      MsgBox "Please specify a cell and enter a page in cell"
      Exit Sub
      End If
      xNum = Int(xPage)
      ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
      ElseIf UBound(xPArr) = 1 Then
      On Error GoTo Err01
      xIS = Int(xPArr(0))
      xIE = Int(xPArr(1))
      If xIS < xIE Then
      For xF = xIS To xIE
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      Else
      For xF = xIE To xIS
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      End If
      Else
      MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
      Exit Sub
      End If
      Else
      Exit Sub
      End If
      Exit Sub
      Err01:
      MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
      End Sub
      • To post as a guest, your comment is unpublished.
        Manny · 5 months ago
        Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.
        Can you please advise