< návrat zpět
MS Excel
Téma: číslo na slovní vyjádření
Zaslal/a lopi007 27.8.2020 14:45
Ahojte.
Chtěl jsem se zeptat, zda někdo náhodou nemá sešit, kde by se mu čísla převáděla na text, ale pomocí vzorce, ne funkce.
Našel jsem jen toto od Pavla Lasáka (díky za jeho stránky). Ale bohužel to funguje jen do 9999.
Nenašel by se někdo kdo by to překopal do 100.000.000+haléře?
Příloha: 47819_pokus.xls (44kB, staženo 21x)
Stalker(27.8.2020 20:00)#047823
Lugr(27.8.2020 22:08)#047826 No možná jsou tam ještě mouchy, ale to už si vyzkoušejte Vy.
citovat
lopi007(27.8.2020 23:13)#047830
Supeer všem moc děkuji.
Stalker napsal/a:
https://www.youtube.com/watch?v=1HVLSuAZEtQ
V popisku má i odkaz na soubor.
Tady je to super v 1 vzorci jen se v tom vyznat. S češtin jsem měl vždy problém.
Ale přidám soubor a chtěl bych poprosit jestli by to někdo poupravil k obrazu jazyka českého.
Pro jistotu v originále. Bo ten můj výtvor by byl jen pro ostudu.
Příloha: 47830_numbers-as-words-1.xlsx (51kB, staženo 31x) citovat
lopi007(28.8.2020 21:21)#047833 Fakt se nikomu nechce s tím babrat. Tak to klidně i zadotuji. Pokud bude mít někdo tolik odvahy tak ať mi napíše.
Mě by to trvalo dloooooooooooooouho.
Odvážlivci předem děkuji.
citovat
Lugr(28.8.2020 22:15)#047834 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.
citovat
lopi007(29.8.2020 11:09)#047839 lugr napsal/a:
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.
To je v pohodě. Udělal jste víc, než dost.
Já jen hledám, někoho kdo by upravil tento vzorec do češtiny, klidně i za odměnu.
=CHOOSE(LEFT(TEXT(B3,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
&IF(--LEFT(TEXT(B3,"000000000.00"))=0,,IF(AND(--MID(TEXT(B3,"000000000.00"),2,1)=0,--MID(TEXT(B3,"000000000.00"),3,1)=0)," Hundred"," Hundred and "))
&CHOOSE(MID(TEXT(B3,"000000000.00"),2,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")
&IF(--MID(TEXT(B3,"000000000.00"),2,1)<>1,CHOOSE(MID(TEXT(B3,"000000000.00"),3,1)+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),
CHOOSE(MID(TEXT(B3,"000000000.00"),3,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"))
&IF((--LEFT(TEXT(B3,"000000000.00"))+MID(TEXT(B3,"000000000.00"),2,1)+MID(TEXT(B3,"000000000.00"),3,1))=0,,IF(AND((--MID(TEXT(B3,"000000000.00"),4,1)+MID(TEXT(B3,"000000000.00"),5,1)+MID(TEXT(B3,"000000000.00"),6,1)+MID(TEXT(B3,"000000000.00"),7,1))=0,(--MID(TEXT(B3,"000000000.00"),8,1)+RIGHT(TEXT(B3,"000000000.00")))>0)," Million and "," Million "))
&CHOOSE(MID(TEXT(B3,"000000000.00"),4,1)+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
&IF(--MID(TEXT(B3,"000000000.00"),4,1)=0,,IF(AND(--MID(TEXT(B3,"000000000.00"),5,1)=0,--MID(TEXT(B3,"000000000.00"),6,1)=0)," Hundred"," Hundred and"))
&CHOOSE(MID(TEXT(B3,"000000000.00"),5,1)+1,,," Twenty"," Thirty"," Forty"," Fifty"," Sixty"," Seventy"," Eighty"," Ninety")
&IF(--MID(TEXT(B3,"000000000.00"),5,1)<>1,CHOOSE(MID(TEXT(B3,"000000000.00"),6,1)+1,," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"),CHOOSE(MID(TEXT(B3,"000000000.00"),6,1)+1," Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eighteen"," Nineteen"))
&IF((--MID(TEXT(B3,"000000000.00"),4,1)+MID(TEXT(B3,"000000000.00"),5,1)+MID(TEXT(B3,"000000000.00"),6,1))=0,,IF(OR((--MID(TEXT(B3,"000000000.00"),7,1)+MID(TEXT(B3,"000000000.00"),8,1)+MID(TEXT(B3,"000000000.00"),9,1))=0,--MID(TEXT(B3,"000000000.00"),7,1)<>0)," Thousand "," Thousand and "))
&CHOOSE(MID(TEXT(B3,"000000000.00"),7,1)+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
&IF(--MID(TEXT(B3,"000000000.00"),7,1)=0,,IF(AND(--MID(TEXT(B3,"000000000.00"),8,1)=0,--MID(TEXT(B3,"000000000.00"),9,1)=0)," Hundred "," Hundred and "))&
CHOOSE(MID(TEXT(B3,"000000000.00"),8,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")
&IF(--MID(TEXT(B3,"000000000.00"),8,1)<>1,CHOOSE(MID(TEXT(B3,"000000000.00"),9,1)+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),CHOOSE(MID(TEXT(B3,"000000000.00"),9,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"))
&" Euro & "&RIGHT(TEXT(B3,"000000000.00"),2)&"/100"
citovat
Lugr(30.8.2020 12:17)#047845 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éřů"citovat
elninoslov(30.8.2020 15:48)#047846 Snáď vyskloňované dobre
=CHOOSE(MID(TEXT(A1;"000000000,00");1;1)+1;;"sto";"dvěstě";"třista";"čtyřista";"pětset";"šestset";"sedmset";"osmset";"devětset")
&CHOOSE(MID(TEXT(A1;"000000000,00");2;1)+1;;CHOOSE(MID(TEXT(A1;"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");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&IF(--(MID(TEXT(A1;"000000000,00");2;1))=1;"";CHOOSE(MID(TEXT(A1;"000000000,00");3;1)+1;;IF(--(MID(TEXT(A1;"000000000,00");1;3))=1;"jeden";"jedna");"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&IF(--(MID(TEXT(A1;"000000000,00");1;3))>4;"milionů";CHOOSE(--(MID(TEXT(A1;"000000000,00");1;3))+1;;"milion";"miliony";"miliony";"miliony"))
&CHOOSE(MID(TEXT(A1;"000000000,00");4;1)+1;;"sto";"dvěstě";"třista";"čtyřista";"pětset";"šestset";"sedmset";"osmset";"devětset")
&CHOOSE(MID(TEXT(A1;"000000000,00");5;1)+1;;CHOOSE(MID(TEXT(A1;"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");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&IF(--(MID(TEXT(A1;"000000000,00");5;1))=1;"";CHOOSE(MID(TEXT(A1;"000000000,00");6;1)+1;;IF(--(MID(TEXT(A1;"000000000,00");4;3))=1;"jeden";"jedna");"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&IF(--(MID(TEXT(A1;"000000000,00");4;3))>4;"tisíc";CHOOSE(--(MID(TEXT(A1;"000000000,00");4;3))+1;;"tisíc";"tisíce";"tisíce";"tisíce"))
&CHOOSE(MID(TEXT(A1;"000000000,00");7;1)+1;;"sto";"dvěstě";"třista";"čtyřista";"pětset";"šestset";"sedmset";"osmset";"devětset")
&CHOOSE(MID(TEXT(A1;"000000000,00");8;1)+1;;CHOOSE(MID(TEXT(A1;"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");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&IF(--(MID(TEXT(A1;"000000000,00");8;1))=1;"";CHOOSE(MID(TEXT(A1;"000000000,00");9;1)+1;;IF(--(MID(TEXT(A1;"000000000,00");7;3))=1;"jeden";"jedna");IF(INT(A1)=2;"dvě";"dva");"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&IF(INT(A1)>0;IF(INT(A1)=1;" koruna";IF(INT(A1)<5;" koruny";" korun")))
&IF(--(RIGHT(TEXT(A1;"000000000,00");2))=0;"";IF(INT(A1)>0;" a ";"")&CHOOSE(MID(TEXT(A1;"000000000,00");11;1)+1;;CHOOSE(MID(TEXT(A1;"000000000,00");12;1)+1;"deset";"jedenáct";"dvanáct";"třináct";"čtrnáct";"patnáct";"šestnáct";"sedmnáct";"osmnáct";"devatenáct");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&IF(--(MID(TEXT(A1;"000000000,00");11;1))=1;"";CHOOSE(MID(TEXT(A1;"000000000,00");12;1)+1;;IF(--(RIGHT(TEXT(A1;"000000000,00");2))=1;"jeden";"jedna");"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&IF(RIGHT(TEXT(A1;"000000000,00");2)+0=1;" haléř";IF(RIGHT(TEXT(A1;"000000000,00");2)+0<5;" haléře";" haléřů")))
EDIT: No dobre, tak som to aj preložil do CZ:
=ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");1;1)+1;;"sto";"dvěstě";"třista";"čtyřista";"pětset";"šestset";"sedmset";"osmset";"devětset")
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");2;1)+1;;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"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");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");2;1))=1;"";ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");3;1)+1;;KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");1;3))=1;"jeden";"jedna");"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");1;3))>4;"milionů";ZVOLIT(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");1;3))+1;;"milion";"miliony";"miliony";"miliony"))
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");4;1)+1;;"sto";"dvěstě";"třista";"čtyřista";"pětset";"šestset";"sedmset";"osmset";"devětset")
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");5;1)+1;;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"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");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");5;1))=1;"";ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");6;1)+1;;KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");4;3))=1;"jeden";"jedna");"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");4;3))>4;"tisíc";ZVOLIT(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");4;3))+1;;"tisíc";"tisíce";"tisíce";"tisíce"))
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");7;1)+1;;"sto";"dvěstě";"třista";"čtyřista";"pětset";"šestset";"sedmset";"osmset";"devětset")
&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");8;1)+1;;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"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");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");8;1))=1;"";ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");9;1)+1;;KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");7;3))=1;"jeden";"jedna");KDYŽ(CELÁ.ČÁSTA1)=2;"dvě";"dva");"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&KDYŽ(CELÁ.ČÁSTA1)>0;KDYŽ(CELÁ.ČÁSTA1)=1;" koruna";KDYŽ(CELÁ.ČÁSTA1)<5;" koruny";" korun")))
&KDYŽ(--(ZPRAVA(HODNOTA.NA.TEXT(A1;"000000000,00");2))=0;"";KDYŽ(CELÁ.ČÁSTA1)>0;" a ";"")&ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");11;1)+1;;ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");12;1)+1;"deset";"jedenáct";"dvanáct";"třináct";"čtrnáct";"patnáct";"šestnáct";"sedmnáct";"osmnáct";"devatenáct");"dvacet";"třicet";"čtyřicet";"padesát";"šedesát";"sedmdesát";"osmdesát";"devadesát")
&KDYŽ(--(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");11;1))=1;"";ZVOLIT(ČÁST(HODNOTA.NA.TEXT(A1;"000000000,00");12;1)+1;;KDYŽ(--(ZPRAVA(HODNOTA.NA.TEXT(A1;"000000000,00");2))=1;"jeden";"jedna");"dva";"tři";"čtyři";"pět";"šest";"sedm";"osm";"devět"))
&KDYŽ(ZPRAVA(HODNOTA.NA.TEXT(A1;"000000000,00");2)+0=1;" haléř";KDYŽ(ZPRAVA(HODNOTA.NA.TEXT(A1;"000000000,00");2)+0<5;" haléře";" haléřů")))Příloha: 47846_slo-slovami.xlsx (11kB, staženo 32x) citovat
Lugr(30.8.2020 17:24)#047847 Zase excelentně
elninoslov jako vždy.
Teď se stydím, že jsem se tu vůbec ztrapňoval.
citovat
elninoslov(30.8.2020 18:31)#047848 lugr napsal/a:
... stydím ...
???
To určite nieje prečo!
Za 1. nikto nepovedal, či to čo som spravil je správne, možno je to konina, a ešte k tomu čeština vyskloňovaná od slováka, čiže bársjaká blbosť tam môže byť. A za 2. keď vynakladáte snahu, nemôžete sa za ňu hanbiť. Mňa nakopol práve ten Váš vzorec.
citovat