Tady se obávám, že excel předem neví na kolik stránek bude tisknout a tudíž ani takovou funkci neobsahuje, ale třeba se mýlím :-)citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Číslo stránky v buňce
MS Excel
Téma: Číslo stránky v buňce 
Zaslal/a WasekW 28.8.2009 19:34
Jak prosím zadám číslování stran do konkrétní buňky? Jde mi to jen do záhlaví a zápatí...
To zjistím takhle. To by problém nebyl. V MSO 2007 to chodí, ale už ne v MSO 2003 
Sub ZobrazitPocetStranek()
Dim PocetStranek As Integer
Dim list As Worksheet
PocetStranek = 0
For Each list In Worksheets
PocetStranek = PocetStranek + (list.HPageBreaks.Count + 1) * _
(list.VPageBreaks.Count + 1)
Next list
Range("bStCelk") = PocetStranek
End Subcitovat
Sub ZobrazitPocetStranek()
Dim PocetStranek As Integer
Dim list As Worksheet
PocetStranek = 0
For Each list In Worksheets
PocetStranek = PocetStranek + (list.HPageBreaks.Count + 1) * _
(list.VPageBreaks.Count + 1)
Next list
Range("bStCelk") = PocetStranek
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články