• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Mě fce SendKeys "^{HOME}" NUMLOCK nemění.
Jak psal eLCHa proč měnit či neměnit ?
Když už mění, zkuste něco z tohoto příkladu.

Něco jsem už zkoušel, ale chybí mi informace, zda se v mailu má objevit:
a/ funkční excelovský list s vybranou oblastí buněk (ostatní tam nebude) formát xxx.xlsm
b/ prostý textový výpis tabulky ve formátu xxx.txt
c/ tabulka jako xxx.pdf

Pomocí VBA lze napsat podmíněný formát a měnit rozsah lze taky.

?

ABBYY Fine Reader. Stojí sice nějakých 170$, ale myslím, že to není za tu kvalitu vysoká cena. Čte bez chyb. Zkus trial verzi. Spustit se dá přímo z Excelu. Čte až 170 jazykových verzí. Pokud potřebuješ jen pár stránek, nemá to ale cenu.

Já bych nastavil jinam ukotvení příček a to pod ř.29 a do Thisworkbook dal makro:

Private Sub Workbook_Open()
Worksheets("List1").ScrollArea = "B29:P2500"
End Sub

tím je umožněn jen pohyb po vymezených buňkách a jinde se kurzor nedá přesunout, takže nejde ani přepisovat.

to eLCHa:
myslel jsem jinak než psal , samozřejmě ptákovina.

řádky v makru:
ActiveWorkbook.Names("jmena").Comment = ""
jsou zde k ničemu, možno odstranit

Hlášení o počtu listů k tisku je předělané. Počet řádků na list je 8. Lze změnit v makru3 (proměnná "rr").
S tím mailem nevím, možná nerozumím.
V makrech nejsou definovány proměnné, není nutné.

Nevím jak makrem říct, aby mi vždy odeslalo všechny řádky. na to mrknu.

Pro inspiraci jak lze vyhodnocovat časy a pořadí.

Vykoušej, pokud tam bude něco zlobit, dej vědět.

Podívej se na to, jestli to takhle vyhovuje. Vytiskne to libovolný počet řádků, po šesti.

Jestli jsem správně pochopil, tak asi takto.

Co je lepší čas ?
Ve sportu asi ten kratší, v sexu ???

Na to by měla stačit fce =MIN(xx:xx) nebo =MAX(xx:xx)

na řádku makra
ActiveSheet.Range ("A9: Q11"). Select
nastavit oblast A9:Q11 podle požadované oblasti, která se má vybrat

pro tisk je myslím jedno, jestli jsou řádky vysoké tak či onak, důležité je aby se vešly na jednu stránku. pro běžný tisl stačí makro:

Sub tisk1_tisk()
ActiveSheet.PageSetup.PrintArea = "$B$10:$J$16"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

zde je opět nutné nastavit oblast tisku B10:J16

lepší by se to nastavovalo na příkladu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje