Come creare un’intestazione del modello in Excel utilizzando VB6

Le intestazioni di Excel contrassegnano la parte superiore dei fogli di calcolo quando vengono stampati. È possibile progettare queste intestazioni utilizzando l’interfaccia grafica di Excel, ma è anche possibile utilizzare Visual Basic per impostare un modello di intestazione, espandendo le informazioni che possono contenere le intestazioni. Ad esempio, qualsiasi intestazione può includere il nome della tua azienda, il nome del documento e il numero di pagina. Ma Visual Basic può aggiungere variabili al proprio modello di intestazione e recuperare il valore di ciascuna variabile da un’altra parte del foglio di calcolo.

1

Premi “Alt-F11” per aprire l’editor di Visual Basic di Excel. Fare doppio clic su un foglio nella finestra del progetto per aprire una finestra del codice.

2

Digita il codice seguente per aprire una procedura VBA:

Sub CreateHeaderTemplate ()

3

Digitare quanto segue per aprire un ciclo che viene eseguito su ogni foglio di lavoro:

Per ogni ws In ActiveWorkbook.Worksheets

4

Digita il seguente blocco che verrà eseguito su ogni foglio:

Con ws.PageSetup .LeftHeader = “a” .CenterHeader = “b” .RightHeader = “c” Termina con

5

Sostituisci “a”, “b” e “c” con il contenuto per le intestazioni sinistra, centrale e destra. Ad esempio, per inserire la frase “Jacob & Sons” a sinistra, il contenuto della cella A10 al centro e il numero di pagina a destra, modificare il codice in:

Con ws.PageSetup .LeftHeader = “Jacob & Sons” .CenterHeader = ws.Range (“A10”) .RightHeader = “& P” Termina con

6

Digita la seguente riga per chiudere il ciclo:

La prossima ws

7

Digita la seguente riga per chiudere la procedura:

End Sub

8

Premere “F5” per eseguire la procedura e applicare le intestazioni.