Να τη ξερω τη λυση με
vba
ειναι εξαιρετική προσπαθω να στήσω μιαλύση με φορμουλες μιαπου τα αρχεια ειναι στο δικτυο και πολλες φοροες τα antivirus κοβουν τα macros για λογους ασφαλείας.
Σε καθε περίπτωση η λυση αυτη δουλευει αφου αναγκαστικα να κανω αρκετα workaround γατι το mid δε δουλευει σωστα σε δεκαδικα
=IF(AND(INT(A1)>=1000;INT(A1)<2000);"Χίλια "&IF(--MID(TEXT(INT(A1);"000000000");7;3)=100;"Eκατο" ;CHOOSE(MID(TEXT(INT(A1);"000000000");7;1)+1;;"Ε ατόν";"Διακόσια";"Τριακόσια" ;"Τετρακόσια";"Πεντακόσια";"Ε ξακόσια";"Επτακόσια";"Οκτακό σια";"Εννιακόσια"))
&IF(--MID(TEXT(INT(A1);"000000000");7;1)=0;;IF(AND(--MID(TEXT(INT(A1);"000000000");8;1)=0;--RIGHT(TEXT(INT(A1);"000000000"))=0);" ";" "))&
CHOOSE(MID(TEXT(INT(A1);"000000000");8;1)+1;;;"Ε κοσι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(INT(A1);"000000000");8;1)<>1;CHOOSE(RIGHT (TEXT(INT(A1);"000000000"))+1;;"Ενα";"Δύο";" Τρία";"Τέσσερα";"Πέντε";"Εξι";" Επτά";"Οκτώ";"Εννέα");CHOOSE(RIGHT(TE XT(INT(A1);"000000000"))+1;"Δέκα";"Ενδεκ ";"Δώδεκα";"Δεκατρία";"Δεκατέ σσερα";"Δεκαπέντε";"Δεκαεξι"; "Δεκαεπτά";"Δεκαοκτώ";"Δεκαε νέα"))&" Ευρώ "&IF(RIGHT(TEXT((A1);"000000000,00");2)="00";" ";" Ευρώ & "&RIGHT(TEXT((A1);"000000000,00");2)&"/100");CHOOSE(LEFT(TEXT(INT(A1);"000000000"))+1;;" κατό";"Διακόσια";"Τριακόσια" ;"Τετρακόσια";"Πεντακόσια";"Ε ξακόσια";"Επτακόσια";"Οκτακό σια";"Εννιακόσια")
&IF(--LEFT(TEXT(INT(A1);"000000000"))=0;;IF(AND(--MID(TEXT(INT(A1);"000000000");2;1)=0;--MID(TEXT(INT(A1);"000000000");3;1)=0);" ";" "))
&CHOOSE(MID(TEXT(INT(A1);"000000000");2;1)+1;;;"Ε ίκοσι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(INT(A1);"000000000");2;1)<>1;CHOOSE(MID(T EXT(INT(A1);"000000000");3;1)+1;;"Ενα";"Δύο" ;"Τρία";"Τέσσερα";"Πέντε";"Εξι" ;"Επτά";"Οκτώ";"Εννέα");CHOOSE(MID(TE XT(INT(A1);"000000000");3;1)+1;"Δεκα";"Ενδ κα";"Δώδεκα";"Δεκατρία";"Δεκα τέσσερα";"Δεκαπέντε";"Δεκαέξ ι";"Δεκαεπτά";"Δεκαοκτώ";"Δεκ εννέα"))
&IF((--LEFT(TEXT(INT(A1);"000000000"))+MID(TEXT(INT(A1);" 000000000");2;1)+MID(TEXT(INT(A1);"000000000");3;1 ))=0;;IF(AND((--MID(TEXT(INT(A1);"000000000");4;1)+MID(TEXT(INT(A1 );"000000000");5;1)+MID(TEXT(INT(A1);"000000000"); 6;1)+MID(TEXT(INT(A1);"000000000");7;1))=0;(--MID(TEXT(INT(A1);"000000000");8;1)+RIGHT(TEXT(INT( A1);"000000000")))>0);" Εκατομμύρια ";" Εκατομμύρια "))
&IF(--MID(TEXT(INT(A1);"000000000");4;3)=100;"Eκατο" ;CHOOSE(MID(TEXT(INT(A1);"000000000");4;1)+1;;"Ε ατόν";"Διακόσιες";"Τριακόσι ς";"Τετρακόσιες";"Πεντακόσι ";"Εξακόσια";"Επτακόσια";"Οκτ ακόσια";"Εννιακόσια"))
&IF(--MID(TEXT(INT(A1);"000000000");4;1)=0;;IF(AND(--MID(TEXT(INT(A1);"000000000");5;1)=0;--MID(TEXT(INT(A1);"000000000");6;1)=0);" ";" "))
&CHOOSE(MID(TEXT(INT(A1);"000000000");5;1)+1;;;"Ε ίκοσι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(INT(A1);"000000000");5;1)<>1;CHOOSE(MID(T EXT(INT(A1);"000000000");6;1)+1;;"Μια";"Δύο" ;"Τρεις";"Τέσσερεις";"Πέντε";" ξι";"Επτά";"Οκτώ";"Εννέα");CHOOSE( MID(TEXT(INT(A1);"000000000");6;1)+1;"Δεκα";" νδεκα";"Δώδεκα";"Δεκατρεις";" Δεκατέσσερεις";"Δεκαπέντε";" Δεκαέξι";"Δεκαεπτά";"Δεκαοκτ ώ";"Δεκαεννέα"))
&IF((--MID(TEXT(INT(A1);"000000000");4;1)+MID(TEXT(INT(A1 );"000000000");5;1)+MID(TEXT(INT(A1);"000000000"); 6;1))=0;;IF(OR((--MID(TEXT(INT(A1);"000000000");7;1)+MID(TEXT(INT(A1 );"000000000");8;1)+RIGHT(TEXT(INT(A1);"000000000" )))=0;--MID(TEXT(INT(A1);"000000000");7;1)=1);" Χιλιάδες ";" Χιλιάδες "))
&IF(--MID(TEXT(INT(A1);"000000000");7;3)=100;"Eκατο" ;CHOOSE(MID(TEXT(INT(A1);"000000000");7;1)+1;;"Ε ατόν";"Διακόσια";"Τριακόσια" ;"Τετρακόσια";"Πεντακόσια";"Ε ξακόσια";"Επτακόσια";"Οκτακό σια";"Εννιακόσια"))
&IF(--MID(TEXT(INT(A1);"000000000");7;1)=0;;IF(AND(--MID(TEXT(INT(A1);"000000000");8;1)=0;--RIGHT(TEXT(INT(A1);"000000000"))=0);" ";" "))&
CHOOSE(MID(TEXT(INT(A1);"000000000");8;1)+1;;;"Ε κοσι ";"Τριάντα ";"Σαράντα ";"Πενήντα ";"Εξήντα ";"Εβδομήντα ";"Ογδόντα ";"Ενενήντα ")
&IF(--MID(TEXT(INT(A1);"000000000");8;1)<>1;CHOOSE(RIGHT (TEXT(INT(A1);"000000000"))+1;;"Ενα";"Δύο";" Τρία";"Τέσσερα";"Πέντε";"Εξι";" Επτά";"Οκτώ";"Εννέα");CHOOSE(RIGHT(TE XT(INT(A1);"000000000"))+1;"Δεκα";"Ενδεκ ";"Δώδεκα";"Δεκατρία";"Δεκατέ σσερα";"Δεκαπέντε";"Δεκαέξι"; "Δεκαεπτά";"Δεκαοκτώ";"Δεκαε νέα"))&" Ευρώ "&IF(RIGHT(TEXT((A1);"000000000,00");2)="00";" ";" & "&RIGHT(TEXT((A1);"000000000,00");2)&"/100"))