Madhabi desidera stampare quattro copie di un foglio di lavoro, ma cambia il valore della cella A7 per ogni copia. I quattro valori sono “Original”,

“Duplica”, “File” e “Driver”. Tutti gli altri dati sono gli stessi, Madhabi si chiede come può cambiare il testo della cella A7 durante la stampa.

Un possibile approccio consiste nel creare quattro diversi fogli di lavoro che contengono essenzialmente le stesse informazioni. I fogli di lavoro da 2 a 4 potrebbero fare tutti riferimento alle celle del foglio di lavoro 1, ad eccezione della cella A7 che potrebbe essere impostata su ogni foglio di lavoro con un valore diverso (“Originale”,

“Duplica”, ecc.).

Un approccio migliore, tuttavia, sarebbe creare una macro veloce da utilizzare per la stampa. La macro potrebbe gestire la modifica del valore della cella A7 appena prima che il foglio di lavoro venga stampato ogni volta. Ecco un semplice esempio:

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

La macro inserisce i quattro valori destinati alla cella A7 in una matrice. La macro quindi passa attraverso ciascuno dei quattro elementi della matrice, inserendo il valore nella cella A7 e quindi stampando il foglio di lavoro. La stampa viene eseguita su qualunque sia la stampante predefinita nel sistema.

La macro potrebbe essere facilmente assegnata a un tasto di scelta rapida o alla barra di accesso rapido (come descritto in altri ExcelTips) in modo da poter stampare rapidamente tutte e quattro le copie.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (9962) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.