Sådan oprettes en skabelonhoved i Excel ved hjælp af VB6

Excel-overskrifter markerer toppen af ​​regneark, når du udskriver dem. Du kan designe disse overskrifter ved hjælp af Excels grafiske grænseflade, men du kan også bruge Visual Basic til at indstille en overskriftsskabelon og udvide de oplysninger, som overskrifterne kan indeholde. For eksempel kan enhver overskrift indeholde firmaets navn, dokumentets navn og sidenummer. Men Visual Basic kan tilføje variabler til sin header skabelon og hente hver variables værdi fra andre steder i regnearket.

1.

Tryk på "Alt-F11" for at åbne Excels Visual Basic-editor. Dobbeltklik på et ark i projektvinduet for at åbne et kodevindue.

2.

Indtast følgende kode for at åbne en VBA-procedure:

Sub CreateHeaderTemplate ()

3.

Indtast følgende for at åbne en loop, der kører på hvert regneark:

For hver ws I ActiveWorkbook.Worksheets

4.

Indtast følgende blok, der vil køre på hvert ark:

Med ws.PageSetup .LeftHeader = "a" .CenterHeader = "b" .RightHeader = "c" Slut med

5.

Udskift "a, " "b" og "c" med indhold til venstre, mellem og højre. For eksempel, for at placere sætningen "Jacob & Sons" til venstre, ændrer indholdet af celle A10 i midten og sidenummeret til højre, koden til:

Med ws.PageSetup .LeftHeader = "Jacob & Sons" .CenterHeader = ws.Range ("A10") .RightHeader = "& P" Slut med

6.

Indtast følgende linje for at lukke sløjfen:

Næste ws

7.

Indtast følgende linje for at lukke proceduren:

Slutdel

8.

Tryk på "F5" for at køre proceduren og anvende overskrifterne.

 

Efterlad Din Kommentar