Jak vytvořit hlavičku šablony v aplikaci Excel pomocí VB6

Záhlaví aplikace Excel označují horní část tabulky při tisku. Tyto hlavičky můžete navrhnout pomocí grafického rozhraní aplikace Excel, ale můžete také použít funkci jazyka pro nastavení šablony záhlaví a rozšíření informací, které mohou obsahovat hlavičky. Každá hlavička může například obsahovat název vaší společnosti, název dokumentu a číslo stránky. Však jazyka může přidávat proměnné do šablony záhlaví a načíst hodnoty každé proměnné z jiné části tabulky.

1.

Stisknutím klávesy "Alt-F11" otevřete Editor jazyka Visual Basic. Poklepáním na list v okně projektu otevřete okno s kódem.

2.

Zadejte následující kód pro otevření procedury VBA:

Sub CreateHeaderTemplate ()

3.

Zadejte následující otevřete smyčku, která běží v každém listu:

Pro každý ws V ActiveWorkbook.Worksheets

4.

Zadejte následující blok, který se bude spouštět na každém listu:

S ws.PageSetup .LeftHeader = "a" .CenterHeader = "b" .RightHeader = "c" Konec s

5.

Nahraďte "a", "b" a "c" s obsahem pro levé, střední a pravé záhlaví. Chcete-li například vpravo umístit frázi "Jacob & Sons", obsah buňky A10 uprostřed a číslo stránky vpravo, změňte kód na:

S ws.PageSetup .LeftHeader = "Jacob & Sons" .CenterHeader = ws.Range ("A10") .RightHeader = "& P" End With

6.

Pro uzavření smyčky zadejte následující řádek:

Další ws

7.

Pro ukončení procedury zadejte následující řádek:

End Sub

8.

Stisknutím klávesy "F5" spustíte postup a použijete hlavičky.

 

Zanechte Svůj Komentář