Excel - zvýšení čísla o 1 při tisku

Od: Datum: 24.01.13 21:37 odpovědí: 6 změna: 28.01.13 19:37

Dobrý den,

mám v excelu tabulku a v jedné buňce určité číslo.

Potřeboval bych, aby pokaždé, když vytisknu tabulku se mi to číslo zvýšilo o hodnotu 1.

Nevíte někdo jak to udělat? Jde to nějak vůbec?

Pokud budete vědět strašně moc rád budu za radu.

Hezký včer přeji


Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Od: koukolik
Datum: 25.01.13 07:47

Přes standardní tisk to asi nepůjde. Šlo by to ale řešit makrem, které spustí tisk dokumentu a inkrementuje zvolenou buňku. Makro se spustí tlačítkem umístěným v listu. Bude jenom potřebné si zvyknout na to, že tisknu tímto tlačítkem a ne z menu Excelu.

Ohodnoceno: 0x
 
Od: koukolik
Datum: 25.01.13 07:54

... velmi jednoduše by to šlo takto:

Sub Makro1()
ActiveWindow.SelectedSheets.PrintOut
Range("A1").Select
ActiveCell = ActiveCell + 1
End Sub

Makro vytiskne aktivní list excelu na výchozí tiskárnu ve windows a buňku A1 zvětší o 1

Ohodnoceno: 0x
 
Datum: 25.01.13 08:13
avatar

ještě jednodušeji je to možné udělat tady tak :

Makro umístěte do objektu ThisWorkbook, BeforePrint, přesně tak, jak vidíte na obrázku.

Tisk listu vám zvýší hodnotu v buňce A1 o jedničku.

*

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("a1").Value = Range("a1").Value + 1
End Sub

Ohodnoceno: 3x
 
Od: koukolik
Datum: 25.01.13 08:24

*palec* pěkné, tohle jsem neznal, člověk se prostě pořád učí. Koukám jenom, že to má jednu nevýhodu: buňka se inkrementuje i v případě, že dám tisk a následně ho stornuji. Nebo i když dám jenom zobrazit náhled tisku. Existuje i něco jako AfterPrint? Nebo způsob jak to ošetřit?

Ohodnoceno: 0x
 
Od: luke237
Datum: 28.01.13 19:37
Ohodnoceno: 0x
 
Od: lenndy
Datum: 28.01.13 19:13

Jste fakt dobří, moooc děkuji.

 

 

 

 

Přihlásit se k odběru odpovědí z této otázky:

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.