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

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

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

Τάσος