[VBA] Ερώτηση για INWORDS (αριθμοί σε ολογράφως)

[Sotirisgr89]

Καλησπέρα σας,

χρησιμοποιώ την παραπάνω συνάρτηση του φορουμ για μετατροπή αριθμού σε ολογράφως και θα ήθελα να ρωτήσω αν γίνεται τα δικά να τα εμφανίζει σε ''εκατοστά'' και όχι λεπτά.
Πως μπορώ να το κάνω;

Σας ευχαριστώ εκ των προτέρων!

[Tasos]

Καλησπέρα Σωτήρη!

Αντικατάστησε τις λέξεις του αποτελέσματος της συνάρτησης:
λεπτό και λεπτά
με τις αντίστοιχες
εκατοστό και εκατοστά.

Μπορείς επίσης να αντικαταστήσεις τη λέξη ευρώ με τον ενικό ή τον πληθυντικό της λέξης που επιθυμείς.

Παράδειγμα για τιμή από το κελί A1:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(inWords(A1);"λεπτά";"εκατοστά");"λεπτό";"εκατοστό");"ευρώ";
IF(AND(A1>=1;A1<2);"μέτρο";",μέτρα"))

Καλή συνέχεια!

Τάσος

[Sotirisgr89]

Αρχική Δημοσίευση από Tasos

Καλησπέρα Σωτήρη!

Αντικατάστησε τις λέξεις του αποτελέσματος της συνάρτησης:
λεπτό και λεπτά
με τις αντίστοιχες
εκατοστό και εκατοστά.

Μπορείς επίσης να αντικαταστήσεις τη λέξη ευρώ με τον ενικό ή τον πληθυντικό της λέξης που επιθυμείς.

Παράδειγμα για τιμή από το κελί A1:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(inWords(A1);"λεπτά";"εκατοστά");"λεπτό";"εκατοστό");"ευρώ";
IF(AND(A1>=1;A1<2);"μέτρο";",μέτρα"))

Καλή συνέχεια!

Τάσος

Ευχαριστώ πολύ για την απάντηση!

Υπάρχει περίπτωση να μπορούμε να πειράξουμε τον κώδικα ώστε να το βγάζει αυτόματα;

[Tasos]

Θα πρέπει να βρεις στη συνάρτηση InWords() όλες τις ακόλουθες συμβολοσειρές και να τις αντικαταστήσεις με τις δικές σου προσθέτοντας
εισαγωγικά πχ "εκατοστά":

λεπτό: ChrW(955) & ChrW(949) & ChrW(960) & ChrW(964) & ChrW(972)

λεπτά: ChrW(955) & ChrW(949) & ChrW(960) & ChrW(964) & ChrW(940)

εκατοστό: ChrW(949) & ChrW(954) & ChrW(945) & ChrW(964) & ChrW(959) & ChrW(963) & ChrW(964) & ChrW(972)

εκατοστά: ChrW(949) & ChrW(954) & ChrW(945) & ChrW(964) & ChrW(959) & ChrW(963) & ChrW(964) & ChrW(940)

ευρώ: ChrW(949) & ChrW(965) & ChrW(961) & ChrW(974)

Ωστόσο θα αντιμετωπίσεις πρόβλημα αν θελήσεις να αλλάξεις τη λέξη ευρώ με άλλη λέξη που κλίνεται και στον πληθυντικό.

Τάσος