[stratis63]

Αυτη η συναρτηση μετατρεπει ενα Ποσο απο Αριθμο σε Λέξεις Ολογραφως,
Δουλευει Σωστα για ακεραιους αριθμους,
Δεν δουλευει σωστα οταν ο αρθμος εχει δεκαδικο στοιχειο (Πηδαει ενα νουμερο)
Βαλτε την στο Β2 πχ και το Αρθμο στο Α2 να τη δοκιμασετε
Δεδομενου οτι το αχειο θα ειναι στο cloud δεν ηθελα να βαλω macroentolh


=IF(AND(A2>=1000;A2<2000);"Χίλια "&CHOOSE(MID(TEXT(A2;"000000000");7;1)+1;"Εκατ ό";"Διακόσια";"Τριακόσια";"Τε� �ρακόσια";"Πεντακόσια";"Εξακ� �σια";"Επτακόσια";"Οκτακόσια" ;"Εννιακόσια")
&IF(--MID(TEXT(A2;"000000000");7;1)=0;;IF(AND(--MID(TEXT(A2;"000000000");8;1)=0;--RIGHT(TEXT(A2;"000000000"))=0);" ";" "))&
CHOOSE(MID(TEXT(A2;"000000000");8;1)+1;;;"Είκο σι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(A2;"000000000");8;1)<>1;CHOOSE(RIGHT(TEXT (A2;"000000000"))+1;;"Ενα";"Δύο";"Τρία"; "Τέσσερα";"Πέντε";"Εξι";"Επτά"; "Οκτώ";"Ενιά");CHOOSE(RIGHT(TEXT(A2;"00000 0000"))+1;"Δέκα";"Ενδεκα";"Δώδεκα" ;"Δεκατρία";"Δεκατέσσερα";"Δε καπέντε";"Δεκαεξι";"Δεκαεπτά ";"Δεκαοκτώ";"Δεκαεννιά"))&" Ευρώ "&IF(RIGHT(TEXT(A2;"000000000,00");2)="00";""; " Ευρώ & "&RIGHT(TEXT(A2;"000000000,00");2)&"/100");CHOOSE(LEFT(TEXT(A2;"000000000"))+1;;"Εκα τό";"Διακόσια";"Τριακόσια";"Τ� �τρακόσια";"Πεντακόσια";"Εξα� �όσια";"Επτακόσια";"Οκτακόσι� �";"Εννιακόσια")
&IF(--LEFT(TEXT(A2;"000000000"))=0;;IF(AND(--MID(TEXT(A2;"000000000");2;1)=0;--MID(TEXT(A2;"000000000");3;1)=0);" ";" "))
&CHOOSE(MID(TEXT(A2;"000000000");2;1)+1;;;"Είκ� �σι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(A2;"000000000");2;1)<>1;CHOOSE(MID(TEXT(A 2;"000000000");3;1)+1;;"Ενα";"Δύο";"Τρία ";"Τέσσερα";"Πέντε";"Εξι";"Επτά ";"Οκτώ";"Ενιά");CHOOSE(MID(TEXT(A2;"00000 0000");3;1)+1;"Δεκα";"Ενδεκα";"Δώδε� �α";"Δεκατρία";"Δεκατέσσερα";" Δεκαπέντε";"Δεκαέξι";"Δεκαεπ τά";"Δεκαοκτώ";"Δεκαεννιά"))
&IF((--LEFT(TEXT(A2;"000000000"))+MID(TEXT(A2;"000000000" );2;1)+MID(TEXT(A2;"000000000");3;1))=0;;IF(AND((--MID(TEXT(A2;"000000000");4;1)+MID(TEXT(A2;"0000000 00");5;1)+MID(TEXT(A2;"000000000");6;1)+MID(TEXT(A 2;"000000000");7;1))=0;(--MID(TEXT(A2;"000000000");8;1)+RIGHT(TEXT(A2;"00000 0000")))>0);" Εκατομμύρια ";" Εκατομμύρια "))
&CHOOSE(MID(TEXT(A2;"000000000");4;1)+1;;"Εκατ ό";"Διακόσια";"Τριακόσια";"Τε� �ρακόσια";"Πεντακόσια";"Εξακ� �σια";"Επτακόσια";"Οκτακόσια" ;"Εννιακόσια")
&IF(--MID(TEXT(A2;"000000000");4;1)=0;;IF(AND(--MID(TEXT(A2;"000000000");5;1)=0;--MID(TEXT(A2;"000000000");6;1)=0);" ";" "))
&CHOOSE(MID(TEXT(A2;"000000000");5;1)+1;;;"Είκ� �σι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(A2;"000000000");5;1)<>1;CHOOSE(MID(TEXT(A 2;"000000000");6;1)+1;;"Ενα";"Δύο";"Τρία ";"Τέσσερα";"Πέντε";"Εξι";"Επτά ";"Οκτώ";"Ενιά");CHOOSE(MID(TEXT(A2;"00000 0000");6;1)+1;"Δεκα";"Ενδεκα";"Δώδε� �α";"Δεκατρία";"Δεκατέσσερα";" Δεκαπέντε";"Δεκαέξι";"Δεκαεπ τά";"Δεκαοκτώ";"Δεκαεννια"))
&IF((--MID(TEXT(A2;"000000000");4;1)+MID(TEXT(A2;"0000000 00");5;1)+MID(TEXT(A2;"000000000");6;1))=0;;IF(OR( (--MID(TEXT(A2;"000000000");7;1)+MID(TEXT(A2;"0000000 00");8;1)+RIGHT(TEXT(A2;"000000000")))=0;--MID(TEXT(A2;"000000000");7;1)=1);" χιλιάδες ";" Χιλιάδες "))
&CHOOSE(MID(TEXT(A2;"000000000");7;1)+1;;"Εκατ ό";"Διακόσια";"Τριακόσια";"Τε� �ρακόσια";"Πεντακόσια";"Εξακ� �σια";"Επτακόσια";"Οκτακόσια" ;"Εννιακόσια")
&IF(--MID(TEXT(A2;"000000000");7;1)=0;;IF(AND(--MID(TEXT(A2;"000000000");8;1)=0;--RIGHT(TEXT(A2;"000000000"))=0);" ";" "))&
CHOOSE(MID(TEXT(A2;"000000000");8;1)+1;;;"Είκο σι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(A2;"000000000");8;1)<>1;CHOOSE(RIGHT(TEXT (A2;"000000000"))+1;;"Ενα";"Δύο";"Τρία"; "Τέσσερα";"Πέντε";"Εξι";"Επτά"; "Οκτώ";"Ενιά");CHOOSE(RIGHT(TEXT(A2;"00000 0000"))+1;"Δεκα";"Ενδεκα";"Δώδεκα" ;"Δεκατρία";"Δεκατέσσερα";"Δε καπέντε";"Δεκαέξι";"Δεκαεπτά ";"Δεκαοκτώ";"Δεκαεννιά"))&" Ευρώ "&IF(RIGHT(TEXT(A2;"000000000,00");2)="00";""; " & "&RIGHT(TEXT(A2;"000000000,00");2)&"/100"))