< návrat zpět

MS Excel


Téma: Dvě různé číselné řady stránkování v záhlaví rss

Zaslal/a 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".

Zaslat odpověď >

#051079
avatar
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
#051080
avatar
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 Sub
citovat
icon #051081
eLCHa
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
#051082
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje