[VBA] Πρόβλημα με μετατροπή αριθμού σε ολογράφως

[ΔΗΜΗΤΡΗΣ8519]

Σας παρακαλώ θα ήθελα εάν μπορείτε να με βοηθήσετε σχετικά με τη μετατροπή αριθμού σε ολογράφως .Έχω βρει τύπους μακροεντολών VBA αλλά όταν βάζω αρνητικό πρόσημο το διαβάζει πράγμα που δεν το θέλω και δεύτερον όταν βάζω έναν αριθμό χωρίς δεκαδικό (π.χ.10,00 €) το διαβάζει δέκα ευρώ και λεπτά ενώ θα ήθελα να το διαβάζει 10 ευρώ. Σας επισυνάπτω excel με παράδειγμα.
Σας ευχαριστώ εκ των προτέρων.

[kapetang]

Καλημέρα

Δημήτρη από τον σύνδεσμο:

http://www.ms-office.gr/forum/excel-...olografos.html
μπορείς να κατεβάσεις και να εγκαταστήσεις το πρόσθετο Numbers2Text.xla.

Με την εγκατάσταση του πρόσθετου, γίνεται διαθέσιμη η συνάρτηση inWords η οποία αποδίδει ολογράφως έναν αριθμό.

Οδηγίες για τη χρήση της συνάρτησης και την προσαρμογή του αποτελέσματος δίνονται και στο σύνδεσμο.
http://www.ms-office.gr/forum/excel-...inwords-2.html

Αν στο κελί B1 βάλουμε τον τύπο =inWords(A1), τότε:

• Αν το Α1 περιέχει αρνητικό αριθμό, το Β1 θα είναι κενό.
• Αν το Α1 περιέχει 10,00 €, το Β1 θα εμφανίζει Δέκα ευρώ

Δηλαδή δίνει τα αποτελέσματα που θέλεις.

Αν θέλουμε να εμφανίζονται ολογράφως και οι αρνητικοί αριθμοί, τότε στο Β1 θα πρέπει να βάλουμε τον τύπο: =IF(A1<0;"μείον "; "") & inWords(ABS(A1))

[ΔΗΜΗΤΡΗΣ8519]

Σε ευχαριστώ