[Συναρτήσεις] If right( επιστρεφει λάθος

[stratis63]

η συναρτηση αυτη μου επιστρεφει IF(RIGHT(TEXT(1;"000000000.00");2)="00";"";" & "&RIGHT(TEXT(1;"000000000.00");2)&"/100")
& 01/100

ενω επρεπε να μου επιστρεφει 00/100
Που ειναι το λαθος γιατι εχω σπαζοκεφαλιασει

[kapetang]

Καλησπέρα

Το σωστό:
=IF(RIGHT(TEXT(1;"000000000.00");2)="00";"";RIGHT( TEXT(1;"000000000.00");2)&"/100")

Προσθήκη:
Στα ελληνικά για το διαχωρισμό των δεκαδικών αντί για τελεία χρησιμοποιούμε το κόμμα

[stratis63]

Γιωργο μου ευχαριστω,
Προσπαθω να κανω με functions να μετατρεψω macro εντολη πο ποσο σε ολογραφως.
και εχω λιγο μπλεξει, Βεβαιω δε καταλαβα γιατι το ...00.00 επιστρεψε 1 και οχι μηδεν η λαθος.

[stratis63]

Ολες οι φορμες
=RIGHT(TEXT(7,7;"0000")+1) αυτη η φορμα επιστρεςφει 9 δεν επρεπε να επιστρεφει 8?

[kapetang]

Το 7,7 με τη μορφοποίηση που δε δέχεται δεκαδικά γίνεται 8

[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"))

[kapetang]

Στο φόρουμ έχει δοθεί λύση με κώδικα VBA

Μπορούμε να τη βρούμε στον παρακάτω σύνδεσμο:

https://www.ms-office.gr/forum/excel...olografos.html

[stratis63]

Να τη ξερω τη λυση με 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"))