Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come stampare determinate pagine o fogli di lavoro in base al valore della cella in Excel?

Author Siluvia Last modified

Ti è mai capitato di dover stampare pagine specifiche o fogli di lavoro in Excel in base al valore di una cella? Che si tratti di stampare un particolare numero di pagina o un intero foglio di lavoro quando viene soddisfatta una condizione, questa guida fornisce metodi passo-passo per farlo.

Stampa una determinata pagina in base al valore della cella con il codice VBA
Stampa un determinato foglio di lavoro in base al valore della cella con il codice VBA

Stampa una determinata pagina in base al valore della cella con il codice VBA

Ad esempio, vuoi che una certa pagina, come la pagina 1 del foglio di lavoro corrente, venga stampata automaticamente quando inserisci il numero di pagina 1 nella cella A1 del foglio di lavoro corrente. Puoi fare quanto segue per raggiungere questo obiettivo.

1. Seleziona la cella che contiene il numero di pagina che desideri stampare, quindi premi contemporaneamente i tasti Alt e F11 per aprire la finestra Microsoft Visual Basic for Applications. Quindi fai clic su Inserisci > Modulo.

2. Successivamente, si aprirà la finestra Microsoft Visual Basic for Applications; copia e incolla il seguente codice VBA nella finestra Codice.

Codice VBA: Stampa pagina in base al valore della cella

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. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools for Excel che appare, fai clic sul pulsante Sì per stampare la pagina specifica, oppure fai clic sul pulsante No per uscire dalla finestra di dialogo se non vuoi stampare. Vedi screenshot:

A screenshot of the Kutools for Excel dialog box for printing a specific page based on a cell value

Quindi si aprirà la finestra di anteprima della pagina specifica del foglio di lavoro corrente; fai clic sul pulsante Stampa per iniziare la stampa.

A screenshot of the Print Preview window

Stampa una determinata pagina in base al valore della cella con il codice VBA

Supponiamo che tu voglia stampare il foglio di lavoro attivo quando il valore nella cella B2 di questo foglio è uguale al numero 1001. Puoi ottenere ciò con il seguente codice VBA. Procedi come segue.

1. Fai clic con il tasto destro sulla Scheda Foglio che desideri stampare in base al valore della cella, quindi fai clic su Visualizza Codice dal menu contestuale.

2. Si aprirà la finestra Microsoft Visual Basic for Applications; copia e incolla il seguente codice VBA nella finestra Codice.

Codice VBA: Stampa foglio di lavoro in base al valore della cella

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

A screenshot showing where to insert VBA code for printing based on a cell value in Excel

Nota: Puoi modificare la cella e il valore della cella nel codice secondo necessità.

3. Premi Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

Quando inserisci il numero 1001 nella cella B2, apparirà una finestra di dialogo Kutools for Excel; fai clic sul pulsante Sì per avviare la stampa. Oppure fai clic sul pulsante No per uscire direttamente dalla finestra di dialogo senza stampare. Vedi screenshot:

A screenshot of the Kutools for Excel dialog box for confirming worksheet printing based on cell value

Suggerimento: Se vuoi stampare direttamente pagine non consecutive come le pagine 1, 6 e 9 nel foglio di lavoro corrente, o stampare solo tutte le pagine pari o dispari, puoi provare l'utilità Stampa pagine specifiche di Kutools for Excel come mostrato nello screenshot qui sotto.

A screenshot of the Kutools for Excel Print Specified Pages utility for selective printing

Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora

Articoli correlati:

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l’analisi dei dati grazie a: Esecuzione intelligente | Genera codice | Crea formule personalizzate | Analizza dati e crea grafici | Attiva Funzioni avanzate…
Funzionalità più usate: Trova, evidenziazione o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda senza formula...
Super RICERCA.VERT: Ricerca VERT per criteri multipli | Ricerca VERT per valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestore colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia stato di visibilità delle colonne nascoste | Confronta intervalli & colonne...
Funzionalità in primo piano: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestore di cartelle di lavoro & fogli | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email per elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
Top15 strumenti:12 strumenti Testo (Aggiungi testo, Elimina Caratteri Specifici, ...) |50+ tipi di grafico (Diagramma di Gantt, ...) |40+ formule pratiche (Calcola letà in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti Unione & Dividi (Unione avanzata righe, Dividi celle, ...) | ... e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...

Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
  • Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!

Tutti gli add-in Kutools. Un solo programma di installazione

La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
  • Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
  • Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
  • Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in