Číslování buněk Vyřešeno

[JirkaT]

Zdravim všechny, potřeboval bych poradit s jednim oříškem. Vytvářim v excelu malý formulář tak, že se mi vejde 6x na stránku. Na každém z nich potřebuju udělat pořadové číslo ale tak, že se mi při každém tisku periodicky zvětší. Nevím jestli něco takového jde vůbec vytvořit. Můžete mi prosím někdo poradit?

[Reklama]

[navstevnik]

Pokud budes tisknout "rucne" - Ctrl-P, pak zbyva pouze vkladat cislovani do formulare (mimochodem neuvadis, v jakem prvku je to cislo vlozeno - textove pole, popisek,..).
Pro automatickou inkrementaci je potreba pouzit proceduru VBA, ktera nacte posledni cislo, inkrementuje a posle na tiskarnu (priadne obracene - vytiskne a pak pro dalsi tisk inkrementuje).
Protoze, jak pisi vyse, neuvedls nic blizsiho, je odpoved takto obecna.
Bylo bu dobre, kdybys pripojil testovaci soubor s formularem.

[mike007]

Přesně tak. Aby jsme tu nevymýšleli zbytečnosti, nějaký příklad je nezbytný.

[JirkaT]

OK, v příloze je malý příklad. Bohužel mi nejde přiložit xls.soubor, tak to přikládám jako obrázek. Číslování formulářů je pouze jako číslo v buňce, ale to není podmínkou, lze to upravit tak, jak bude potřeba. Jde o to, že těchto formulářů se bude tisknout více uživateli poměrně velké množství, proto bych byl rád, aby se čísla měnila automaticky. Na příkladu je uvedeno číslování 1,2,3,4 a já by potřeboval takovou úpravu že, když to teď vytisknu, tak se mi změní číslování na 5,6,7,8.

[Jan Pašek]

V příloze je příklad. Makro bylo vytvořeno za pomoci záznanu maker.
Pokud se makru přidělí klávesová zkratka Ctrl+P překryje zkratku pro normální tisk a spustí se tisk přes makro.

Postup vytvoření makra:

1. Spust záznam makra
2. Kopie (Ctrl+C) poslední buňky v pořadí tedy buňky s nejvyšším číslem
3. Přesun na buňku s nejnižším číslem
4. Funkce vložit jinak - vložit pouze hodnoty
5. Příkaz pro spuštění tisku
6. Ukonči záznam makra

Edit: soráč nevím proč ještě sem to zkusil jednou spustit a bohužel tam něco chybí zřejmě přepočet listu před tiskem F9 bo jako spuštené makrem mi to nefunguje

[navstevnik]

V prilozenem sesitu je upravena procedura, slouzi pro demo. Podle potreby si proceduru uprav (nazev kistu, adresy bunek, aktivuj radek PrintOut) a nakopiruj do sveho sesitu do modulu VBA.

Doplneno:
pokud budes chtit tisknout opakovane, pak pouzij:

Kód: Vybrat vše

Sub PrintRepeat()
  Dim i As Integer
  For i = 1 To 10
    TiskAZmenCislo
  Next i
End Sub