Příspěvky uživatele

Pokud vím, nepletete se. Ale kódem by to určitě šlo.

@elninoslov

Musel byste více rozvést. Sice také z Wordem skoro nedělám, ale:
Word má podle mne velmi dobře propracovaný systém Stylů - co přesně znamená změnit barvu písma po stisku?
Také Automatické opravy se dají využít jinak - stejně je většina lidí vypíná.
No a pokud byste trval na PressKey, ten tam opravdu není, ale pokud byste si pohrál, určitě by šlo nějak využít API.

To co píšete umí samotný word pomocí Automatických oprav. Nicméně by to fungovalo pro všechny dokumenty a při každém napsání slova. Šlo by si pomáhat zapínáním a vypínáním Autooprav.

Jsem si jistý, že to někdo dokáže vytvořit. Ale nejsem si vůbec jistý, že by se to mohlo hodit ještě někomu jinému než Vám.

A vlastně i tady platí to co jsem psal tady

Zrušte okraje pro záhlaví a pak ho můžete zkusit simulovat pomocí možnosti Nahoře opakovat řádky ve vzhledu stránky.

Mno - šílenostem se meze nekladou ;)))
activewindow.caption=" hodnota aktivní buňky je: " & activecell.Value

aha - mno teď mi to došlo - tohle asi nechcete, že. To bych se taky divil ;)))
Asi budete muset použít Before_Print ;))

ActiveSheet.PageSetup.LeftHeader = Range(XY).Value

Učinil jsem pokus. Nemám žádný soubor, který by byl sdílený tímto způsobem. Respektive mám, ale jsem 4 a tak není problém si ty lidi obvolat, takže to nemám odzkoušeno. Nicméně jsem na to narazil již několikrát a vždycky jsem si říkal, jestli by to nešlo řešit externě. To mi totiž umožní následující věci:
- mít sešit bez kódu
- mít na pozadí kód, který neustále kontroluje, zda je soubor otevřený, aniž by to ovlivnilo samotnou práci v excelu ("nekonečná" smyčka).

Taky se mi nelíbí onen zápis uživatele do buňky - to totiž znamená nutnost okamžitého uložení sešitu. U malého souboru to problém není, ale u většího už je to viditelná a zbytečná operace. Takže to řeším textovým souborem. To může mít další výhodu, že si ho lze všimnout v adresáři a pro zjištění, kdo má sešit otevřen mi stačí kouknout do texťáku.

No a teď co znamená externě. Je tu možnost napsat si jednoduchou a tedy i spolehlivou aplikaci ve Visual Studiu. To tu nemám, tak jsem to zkusil přes VBScript. Ten lze zase snadno editovat v textovém editoru a rychle upravit na kterémkoliv PC bez nutnosti instalace čehokoliv. Naopak zase používám něco, co je určeno pro krátké a rychlé operace na operaci dlouhodobou a tak nevím, zda se na to lze spolehnout. To je třeba odzkoušet.

Takže ukázka -
Sešit je nutné otevřít poklikáním na soubor scriptu (WorkbookOpen.vbs). Ten zpřístupní pracovní listy a skryje list se zprávou, že takto ne. Poté neustále kontroluje, zda je sešit otevřen. Po jeho uzavření jej ještě jednou skrytě otevře, skryje pracovní listy a zviditelní ten se zprávou a uloží.
Pokud tedy otevřete Sešit1 - nebude možné v něm pracovat. Pro některé - samozřejmě, kdy by chtěl, dokázal by - ale to se prostě nepředpokládá.

Nejdříve je třeba editovat soubor skriptu a upravit cestu k souboru.

Nj - jenomže 1112313430000A není číslo...

Doufám, že jsem na nic nezapomněl...

Hmmm...

Uložto mám blokované v PC a blokované i v hlavě. ;)

@marjankaj
Nesouhlasím s Vámi, ale na tom nezáleží.

nula sa neberie ako kladná hodnota, čiže reťazec neprerušuje.
Takže má to číslo být menší nebo rovno 0 - tedy nekladné ;) .
Já jsem ho zkusil - a podle popisu nefunguje správně. Ale hlavně, že je spokojený. Nebo se brzy ozve.

Zkuste se odhlásit a při přihlášení odškrtnout zabezpečené. Toto hodně zlobí.

Velmi zmatené zadání, ze kterého pak vyplývá spousta doplňujících dotazů.
Ve výsledku to stejně nakonec nedává požadovaný výsledek

Chápu dotaz jako
Najdi největší počet nekladných čísel jdoucích za sebou a vrať jejich součet.

Takže pro řadu
3;0;-2;2;3;-1,5;-6;39;40;-1;-1;-1;-1;-1;-1;-1;-1;-1;-1;30;-30;-20;-10;0;-30;-19;-10;15

by výsledek měl být -10 (10x -1) a ne -119 (-30;-20;-10;0;-30;-19;-10) - těch je jen 7

Čtete důkladně?
Jakou velikost má Vaše příloha?

Max. velikost souboru: 256 kB, povolené typy souborů: .gif .jpg .png .txt .zip .rar .tar .7z

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje