< návrat zpět
MS Excel
Téma: Dvě různé číselné řady stránkování v záhlaví
Zaslal/a pavelo 3.8.2021 10:49
Ahoj všem,nevím si rady s problémem a prosím o pomoc. Potřebuji do záhlaví na 2 různá místa číslo stránky, ale s tím, že v levém záhlaví bude standardní číselná řada od hodnoty 1 a v pravém číslování bude začínat od hodnoty 26. Jiné řešení, jak makro nejspíš není. Něco jsem zkoušel, ale skončil jsem na tom, že se konstanta přičítá k číslu stránky vycházející z kódu "&P" ne podle mých představ. Na první stránce se místo hodnoty 26 objeví 35, na druhé 45 atd. Ve VBA nejsem kovaný, takže problém je, hádám, mezi židlí a klávesnicí.
Sub Zahlavi()
With Sheets("List2").PageSetup
.RightHeader = "strana &P+25"
.LeftHeader = "strana &P"
End With
End Sub
Ještě potřebuji, aby velikost písma byla 6, font Arial.
Makro mám vložené do Objektu "List2".
pavelo(3.8.2021 12:22)#051079 Tak mi asi hrabe, teď to funguje, včera to nefungovalo. Konečná verze je tato:
Sub Zahlavi()
With Sheets("List2").PageSetup
.RightHeader = "&6 strana &P+25"
.LeftHeader = "&6 strana &P"
End With
End Sub
citovat
Pavlus(3.8.2021 12:55)#051080 Přesnou příčinu jsem nezkoumal, ale evidentně ti Excel v určitých momentech nebral zadaný inkrement jako jedno číslo (25), ale jako číslo 2 plus znak 5 (proto 1+2 & 5 = 35; 2+2 & 5 = 45 apod.). Při testování jsem se s tím taktéž setkal.
Preventivní opatření/řešení je jednoduché, definuj si v kódu daný inkrement jako konstantu.
Každopádně, pokud se jedná o jednorázové řešení, tak pro definování záhlaví není potřeba znalost VBA, vše lze nastavit přímo v Excelu = karta Rozložení stránky / Tisk názvů / Záhlaví a zápatí / Vlastní záhlaví...
P.
Ukázka kódu s konstantou:
Sub Zahlavi()
Const inkrement As Byte = 25
With Sheets("List2").PageSetup
.RightHeader = "&""Arial""&6strana &P+" & inkrement
.LeftHeader = "&""Arial""&6strana &P"
End With
End Subcitovat
eLCHa(3.8.2021 13:27)#051081 Nepotřebujete vůbec VBA
Do levého záhlaví (přes vzhled stránky) vložte
&[Stránka]a do pravého
&[Stránka]+25+mezera (bez té mezery to počítá divně)
citovat
pavelo(3.8.2021 22:36)#051082 Děkuji Pavlus a eLCHa za přínosné reakce. Jsem nakonec rád, že problém není zase tak triviální. Samozřejmě jsem to napřed zkoušel nastavit přímo v Excelu, ale chovalo se to s tím podivným přičítáním dvouciferné konstanty stejně jako s makrem.
citovat