Mallin otsikon luominen Excelissä VB6: n avulla

Excel-otsikot merkitsevät laskentataulukoiden yläreunan tulostettaessa niitä. Voit suunnitella nämä otsikot Excelin graafisella käyttöliittymällä, mutta voit myös käyttää Visual Basic -ohjelmaa otsikkomallin määrittämiseen laajentamalla otsikoiden sisältämiä tietoja. Esimerkiksi mikä tahansa otsikko voi sisältää yrityksen nimen, asiakirjan nimen ja sivunumeron. Mutta Visual Basic voi lisätä muuttujia otsikkomalliinsa ja noutaa jokaisen muuttujan arvon muualta laskentataulukosta.

1.

Paina "Alt-F11" avataksesi Excelin Visual Basic -editorin. Avaa kaksoisnapsauttamalla Project-ikkunan arkkia, jos haluat avata koodin.

2.

Kirjoita seuraava koodi avataksesi VBA-menettelyn:

Sub CreateHeaderTemplate ()

3.

Voit avata jokaisessa laskentataulukossa olevan silmukan seuraavasti:

Jokaiselle ws: lle ActiveWorkbookissa

4.

Kirjoita seuraava lohko, joka toimii jokaisella arkilla:

Kun ws.PageSetup .LeftHeader = "a" .CenterHeader = "b" .RightHeader = "c" Lopeta

5.

Vaihda "a", "b" ja "c" vasemmalle, keskelle ja oikeaan otsikkoon. Jos haluat esimerkiksi asettaa lauseen "Jacob & Sons" vasemmalle, solun A10 sisältö keskellä ja sivunumero oikealla, vaihda koodi seuraavasti:

Kun ws.PageSetup .LeftHeader = "Jacob & Sons" .CenterHeader = ws.Range ("A10") .RightHeader = "& P" Lopeta

6.

Sulje silmukka kirjoittamalla seuraava rivi:

Seuraava ws

7.

Sulje menettely seuraavasti:

Lopeta Sub

8.

Suorita toimenpide painamalla "F5" ja lisää otsikot.

 

Jätä Kommentti