< návrat zpět

MS Excel


Téma: Vytištění změn v dokumentu rss

Zaslal/a 30.5.2013 14:31

Dobrý den, v příloze mám soubor, který pomocí VBA vytiskne pouze vyplněné formuláře. Ve sloupci "H" se objeví příznak ("x" pro začátek a "y" pro konec tištěné oblasti) podle toho, zda je daná stránka vyplněna nebo ne. Potom tlačítko "Tisk" spustí modul VBA, který přečte daný příznak a podle něj vytiskne vyplněnou stránku.

Já bych potřeboval, aby program dokázal vytisknout také pouze změny, které se udály od posledního vytištění ( nejlépe tím, že zapíše příznak "x" do sloupce I, pak už to zvládnu propojit).

Prostě někdo vytiskne vyplněný dokument a zavře ho. Pak příjde například za týden a udělá v něm jen nějakou změnu, třeba přepíše v jednom měsíci jedno jméno a já potřebuji, aby to VBA poznal a označil stránku, ve které byla provedena změna. Po vytištění, aby se vynuloval a zapsal každou další změnu až do dalšího vytištění, kdy se zase vynuluje a tak dále...

Příloha: zip13527_priklad2.zip (16kB, staženo 29x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#013545
avatar
tak som sa nato kukol :)

- v tisk som doplnil ze ked prebehne makro tak vycisti H stlpec
- potom tam je v sheet(1) doplneny event na change "zmenu"

pozri sa nato potom napis ci vyhovuje
Příloha: zip13545_priklad2.zip (16kB, staženo 28x)
citovat
#013557
avatar
Ahoj Palooo,

díky za snahu, ale to tvé řešení nefunguje tak, jak potřebuju (navíc při eventu to vyhazuje chybu). Není to ono.citovat
#013568
avatar
ano, je tam chyba 9 sorry uz som ju opravil
Příloha: zip13568_priklad2.zip (14kB, staženo 28x)
citovat
#013578
avatar
Tak super, už to funguje. Díky za pomoc Palooo. 5citovat
#013580
avatar
A mám tu ještě jednu chuťovku:

Kdyby dokument neměl všechny strany stejně dlouhé (tzn. se stejným počtem řádků, jako je to teď v příloze) dalo by se VBA přimět k tomu, aby rozpoznalo kde stránka začíná a končí a podle toho zapsalo příznaky "x" a "y" pro označení oblasti tisku? Začátek a konec stránky jsem označil do sloupce F, který je již mimo tisknutelnou oblast, písmeny "z" jako začátek a "k" jako konec - toto označení by mohlo být trvale vedle tisknutelné oblasti a nastavil bych ho pro kažsou stránku ručně. Podle toho by VBA poznalo, kde strana začíná a končí. Šlo by to?citovat
#013581
avatar
Ještě ten upravený soubor...
Příloha: zip13581_priklad3.zip (14kB, staženo 28x)
citovat
#013582
avatar
jj slo, len bacha aby si na tie odrazky nezabudol :)))
Příloha: zip13582_priklad3.zip (14kB, staženo 30x)
citovat
#013600
avatar
Super, funguje to! Sice to moc nechápu ten poslední zápis, přibyly tam jen dva řádky. Ale to nevadí, funguje to parádně.

díky Palooocitovat
#013618
avatar
pre vysvetlenie je to len viac krokov zapisane v jednom vzorci

Cells(Cells(Target.Row, 6).End(xlUp).Row, 8) = "x"
Cells(Cells(Target.Row, 6).End(xlDown).Row, 8) = "y"

musis sa nato poyerat najprv zvonku a potom to postupne rozbalovat

1. cells() = "x" // takze v nejakej bunke dopise "x"
2. cells: cells(tu sa zapisuje riadok, tu sa zapisuje stlpec)
3. target.row je zobraty udaj(object) z eventu kde si vyberem len cislo riadku kde sa kurzor nachadza
4. Cells(Target.Row, 6).End(xlDown).Row ... tento udaj konci row .. aj ked to vypada ze sa odkazuje na bunku bere z nej len udaj riadku
5. Cells(riadok, 8 je stlpec)

asi tak v skratke ... ja viem nerad sa rozpisujem

pre zaujimavost skus si nahrat makro a na nejakej bunke stlac: end + hore sipkacitovat
#013656
avatar
Ok, už to trochu chápu. Zkusím si s tím ještě pohrát. Moc jsi mi pomohl, děkuju Palooocitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09