Come stampare pagine specifiche o un intero foglio di lavoro in base al valore contenuto in una cella di Excel?
Hai mai avuto la necessità di stampare pagine specifiche o interi fogli di lavoro in Excel in base al valore contenuto in una cella? Che tu debba stampare un numero preciso di pagine o un intero foglio non appena una determinata condizione è soddisfatta, questa guida ti illustra passo dopo passo come farlo.
Stampa una pagina specifica in base al valore di una cella con codice VBA
Stampa un foglio di lavoro specifico in base al valore di una cella con codice VBA
Stampa una pagina specifica in base al valore di una cella con codice VBA
Ad esempio, vuoi che venga stampata automaticamente una pagina specifica—come la pagina 1 del foglio di lavoro corrente—non appena inserisci il numero 1 nella cella A1 dello stesso foglio. Ecco come puoi ottenere questo risultato.
1. Seleziona la cella contenente il numero di pagina che vuoi stampare, quindi premi contemporaneamente i tasti Alt e F11 per aprire la finestra di Microsoft Visual Basic for Applications. Fai clic su Inserisci > Modulo.
2. Si aprirà la finestra di Microsoft Visual Basic for Applications; copia e incolla il seguente codice VBA nella finestra Codice.
Codice VBA: Stampa pagina in base al valore di una 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 Sub3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel che si apre, fai clic sul pulsante Sì per stampare la pagina specificata oppure sul pulsante No per chiudere la finestra senza stampare. Vedi screenshot:
Si aprirà quindi l'anteprima della pagina specificata del foglio di lavoro corrente; fai clic sul pulsante Stampa per avviare la stampa.
Stampa una pagina specifica in base al valore di una cella con codice VBA
Immagina di voler stampare il foglio attivo ogni volta che il valore nella cella B2 di quel foglio è esattamente 1001. Puoi raggiungere questo obiettivo con il seguente codice VBA. Ecco come procedere.
1. Fai clic con il pulsante destro del mouse sulla scheda del foglio che desideri stampare in base al valore di una cella, quindi seleziona Visualizza codice dal menu contestuale.
2. Si aprirà la finestra di Microsoft Visual Basic for Applications; copia e incolla il seguente codice VBA nella finestra del codice.
Codice VBA: Stampa foglio di lavoro in base al valore di una 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
Nota: puoi personalizzare la cella e il relativo valore nel codice in base alle tue esigenze.
3. Premi Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications.
Quando inserisci il numero 1001 nella cella B2, si apre la finestra di dialogo Kutools per Excel: fai clic sul pulsante Sì per avviare la stampa oppure sul pulsante No per chiudere immediatamente la finestra senza stampare. Vedi screenshot:
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Articoli correlati:
- Come creare un’area di stampa dinamica in Excel?
- Come stampare solo l’ultima pagina di un foglio di lavoro in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi