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

Příspěvky uživatele

Trochu prasárnička, ale funguje to.

Já dělával stejnou chybu.

Člověk se pořád učí.

Jak píše Stalker

stačí změnit z tohoto:

Range("R2").Value = Format(Now, "d.m.yyyy")

na toto:

Range("R2") = Date

Tak?

=IFERROR(INDEX(N8:Y8;1;POZVYHLEDAT($B$3;$N$6:$Y$6;0));"")

Jednoduše.

Problikávání monitoru je způsobené bohužel právě Copy+PasteValues.

Možná malinko rychlejší a pro úpravu přehlednější.

Tak?

I já rád pomohl, alespoň trochu.

Já ten Váš soubor zkoušel a vypadá to výborně. Samozřejmě variant je spousty. Nicméně detaily už si může doladit lopi007. Důležitý je základ a ten máte super, palec nahoru.

Můžu se zeptat, jestli se živíte prací s Excelem nebo je to jen Váš koníček?

Zase excelentně elninoslov jako vždy.

Teď se stydím, že jsem se tu vůbec ztrapňoval.

Jen tak narychlo a se skloňováním jsem se nezaobíral.

=ZVOLIT(ZLEVA(HODNOTA.NA.TEXT(B3;"000000000,00"))+1;;"jedna";"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět")
&KDYŽ(--ZLEVA(HODNOTA.NA.TEXT(B3;"000000000,00"))=0;;KDYŽ(A(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");2;1)=0;--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");3;1)=0);" sto";" sto "))
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");2;1)+1;;;"dvacet ";"třicet ";"čtyřicet ";"padesát ";"šedesát ";"sedmdesát ";"osmdesát ";"devadesát ")
&KDYŽ(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");2;1)<>1;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");3;1)+1;;"jedna";"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět");
ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");3;1)+1;"deset";"jedenáct";"dvanáct";"třináct";"čtrnáct";"patnáct";"šestnáct";"sedmnáct";"osmnáct";"devatenáct"))
&KDYŽ((--ZLEVA(HODNOTA.NA.TEXT(B3;"000000000,00"))+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");2;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");3;1))=0;;KDYŽ(A((--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");4;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");5;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");6;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");7;1))=0;(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");8;1)+ZPRAVA(HODNOTA.NA.TEXT(B3;"000000000,00")))>0);" milión ";" milión "))
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");4;1)+1;;"jedna";"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět")
&KDYŽ(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");4;1)=0;;KDYŽ(A(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");5;1)=0;--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");6;1)=0);" sto";" sto"))
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");5;1)+1;;;" dvacet";" třicet";" čtyřicet";" padesát";" šedesát";" sedmdesát";" osmdesát";" devadesát")
&KDYŽ(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");5;1)<>1;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");6;1)+1;;" jedna";" dva";" tři";" čtyři";" pět";" šest";" sedm";" osm";" devět");ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");6;1)+1;" deset";" jedenáct";" dvanáct";" třináct";" čtrnáct";" patnáct";" šestnáct";" sedmnáct";" osmnáct";" devatenáct"))
&KDYŽ((--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");4;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");5;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");6;1))=0;;KDYŽ(NEBO((--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");7;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");8;1)+ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");9;1))=0;--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");7;1)<>0);" tisíc ";" tisíc a "))
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");7;1)+1;;"jedno";"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět")
&KDYŽ(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");7;1)=0;;KDYŽ(A(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");8;1)=0;--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");9;1)=0);"sto ";"sto "))&
ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");8;1)+1;;;"dvacet ";"třicet ";"čtyřicet ";"padesát ";"šedesát ";"sedmdesát ";"osmdesát ";"devadesát ")
&KDYŽ(--ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");8;1)<>1;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");9;1)+1;;"jedna";"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět");ZVOLIT(ČÁST(HODNOTA.NA.TEXT(B3;"000000000,00");9;1)+1;"deset";"jedenáct";"dvanáct";"třináct";"čtrnáct";"patnáct";"šestnáct";"sedmnáct";"osmnáct";"devatenáct"))

&" Korun a "&ZPRAVA(HODNOTA.NA.TEXT(B3;"000000000,00");2)&" Haléřů"

Bohužel nic lepšího, než jsem Vám sem uložil nevypotím i když možností jsou milióny, takže já Vám nepomůžu. Sorry.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse