Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  29 30 31 32 33 34 35 36 37   další » ... 45
vzorec pro výpočet pouze nočních hodin (8.9.2020 19:14)

Jednoduše. 1

Najít poslední řádek+zapsat do příslušné buňky (1.9.2020 11:04)

robert13 napsal/a:

lugr a čo tak proti preblikávaniu použiť

Application.ScreenUpdating=False

Jo to je dobrý nápad, ale i tak to elninoslov má lepší.

Najít poslední řádek+zapsat do příslušné buňky (1.9.2020 6:02)

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

Najít poslední řádek+zapsat do příslušné buňky (31.8.2020 21:45)

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

Najít poslední řádek+zapsat do příslušné buňky (31.8.2020 18:04)

Tak?

číslo na slovní vyjádření (30.8.2020 22:31)

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

číslo na slovní vyjádření (30.8.2020 20:23)

elninoslov napsal/a:

OT: Nie neživím sa Excelom, a nieje to ani koníček, ale skôr poriadna kobyla


5 5 5 5

Je vidět, že Vás to baví a hlavně, že máte rád výzvy. Já jsem začátečník, samouk a pro VBA bohužel neumím anglicky, ale potom co jsem poznal kouzlo Excelu, tak je to můj milášek. 5 5

číslo na slovní vyjádření (30.8.2020 19:07)

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. 1

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

číslo na slovní vyjádření (30.8.2020 17:24)

Zase excelentně elninoslov jako vždy. 1

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

číslo na slovní vyjádření (30.8.2020 12:17)

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éřů"

číslo na slovní vyjádření (28.8.2020 22:15)

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.

Tlačítko - kopírování (28.8.2020 18:04)

Jiří497 napsal/a:

Možná by bylo lepší testovat celou oblast místo jen řádku 6. Toto ...Sheets("List1").Cells(6, i + 3).. bych nahradil tímto...Sheets("List1").Cells(45, i + 3)... Místo 6 dát 45.


Ano správně, moje chyba. 8

Děkuju Jiří497

číslo na slovní vyjádření (27.8.2020 22:08)

No možná jsou tam ještě mouchy, ale to už si vyzkoušejte Vy. 1

Tlačítko - kopírování (27.8.2020 17:25)

Řádky navíc jsem tedy zrušil. Nyní by to mělo být jak chcete.

Tlačítko - kopírování (27.8.2020 7:33)

Takhle?

A ještě jsem Vám tam vložil aby na Listu2 našel všechny data.

Snad to bude tak v pořádku.


Strana:  1 ... « předchozí  29 30 31 32 33 34 35 36 37   další » ... 45

Uživatelské menu

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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje