Come stampare fogli specifici in base ai valori delle celle in Excel?
Hai mai provato a stampare fogli specifici in base al valore di una cella? In questo articolo ti mostrerò alcuni esempi pratici per risolvere proprio questo problema. Se ti interessa, continua a leggere!
Stampa foglio in base a una cella con VBA
Stampa foglio in base alla cella adiacente con VBA
Stampa foglio in base a una cella con VBA
Supponiamo che tu abbia due fogli e desideri stampare Foglio1, Foglio2 o entrambi in base al valore della cella A1 nel Foglio1. Procedi come segue:
In questo caso, inserisci 1 per stampare il primo foglio, 2 per stampare il secondo foglio e 3 per stampare entrambi.
1. Inserisci 1, 2 o 3 nella cella A1 del primo foglio, quindi premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nello script del Modulo. Vedi screenshot:
VBA: Stampa foglio in base al valore della cella
Sub PrintStuff()
'UpdayebyExtendoffice20180811
Dim xRgVal As Variant
Dim xSheets As Sheets
Set xSheets = ActiveWorkbook.Worksheets
xRgVal = xSheets(1).Range("A1").Value
If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
Select Case xRgVal
Case 1
xSheets(1).PrintOut
Case 2
xSheets(2).PrintOut
Case 3
xSheets(1).PrintOut
xSheets(2).PrintOut
Case Else
MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
Exit Sub
End Select
Else
Exit Sub
End If
End Sub
3. Premi il tasto F5 per stampare direttamente il/i foglio/i.
Stampa foglio in base alla cella adiacente con VBA
Se hai più fogli in una cartella di lavoro e desideri stamparne uno o più in base ai valori delle celle presenti nella stessa cartella, procedi come segue:
1. Crea un nuovo foglio denominato Foglio di controllo nella cartella di lavoro in uso ed elenca tutti i nomi dei fogli nella colonna A (includi o escludi il Foglio di controllo a seconda delle tue esigenze). Vedi screenshot:
2. Digita «print» nella cella accanto al nome del foglio che desideri stampare. Guarda lo screenshot qui sotto.
3. Premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications, quindi fai clic su Inserisci > Modulo. Vedi screenshot:
4. Incolla il codice seguente nel modulo e premi il tasto F5 per eseguire il codice.
VBA: Stampa in base alla cella adiacente
Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
Dim i As Integer
Dim xCSheetRow As Integer
Dim xSName As String
Dim xCSheet As Variant
Dim xRgVal As String
On Error Resume Next
xSName = "Control Sheet"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xCSheet = ActiveWorkbook.Worksheets(xSName)
xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
For i = 2 To xCSheetRow
xRgVal = xCSheet.Range("B" & i).Value
If xRgVal = "Print" Or xRgVal = "print" Then
If xCSheet.Range("A" & i).Value <> "" Then
ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
End If
End If
Next
xCSheet.Delete
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Control Sheet"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Sheet Name"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Print?"
For i = 1 To ActiveWorkbook.Worksheets.Count
Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
Next
Cells.Columns.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Dopo l'esecuzione del codice, il foglio (o i fogli) verrà immediatamente stampato e, contemporaneamente, un nuovo Foglio di controllo sostituirà quello precedente.
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
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