[Συναρτήσεις] Συνάρτηση inWords

[Θανάσης]

Αγαπητοί φίλοι,
είδα το αρχείο που ανεβάσετε στα Χρήσιμα αρχεία Μετατροπή αριθμού σε κείμενο ολογράφως.

Αφού πρώτα από όλα σας πω Μπράβο πολύ καλή δουλειά,
θα ήθελα να πω πως νομίζω ότι υπάρχει ένα πρόβλημα με τους αριθμούς όταν το ακέραιο μέρος είναι μηδέν.

Το =inwords(0,12) ή =inwords(0,12;TRUE) δουλεύει σωστά και μας δίνει "Δώδεκα λεπτά".
αλλά το =inwords(0,12;FALSE) δίνει "Δώδεκα" αντί "Μηδέν κόμα Δώδεκα" ή "Δώδεκα εκατοστά".

Για δείτο το μήπως μπορεί να διορθωθεί.

Ευχαριστώ.
Θανάσης

[Tasos]

Αγαπητέ Θανάση, καλημέρα!
Αν στο δεύτερο όρισμα της συνάρτησης δώσουμε μηδενική τιμή (ή FALSE),
μπορουμε να προσθέσουμε τη λέξη/φράση που θέλουμε τροποποιώντας την ίδια τη συνάρτηση ως εξής:

=IF(INT(A1)=A1;inwords(A1;0);inwords(A1;0)&" "&IF(MOD(A1;1)<=0,01;"εκατοστό";"εκατοστά"))

[gr8styl]

Καλησπέρα σας και από μένα.

Πολύ σωστά είπε ο Τάσος πως μπορούμε να ορίσουμε εμείς το τι θα γράφει το αποτέλεσμα.
Για να είμαστε όμως ολόσωστοι θα έλεγα, εγώ προτείνω το:

=IF(INT(A1)=A1;inwords(A1;0);inwords(A1;0)&" "&IF(INT((A1-INT(A1))*100)<=1;"εκατοστό";"εκατοστά"))

δηλαδή INT αντί MOD.
Έτσι θα πάρουμε σωστό αποτέλεσμα για το 120,01 (ένα από τα χιλιάδες νούμερα που το Excel χειρίζεται "παράξενα" λόγω "αριθμητικής κινητής υποδιαστολής") !!!

Τα λέμε
Θανάσης.

[Tasos]

Καλημέρα σε όλους!
Θανάση μου,

Με τη δεύτερη συνάρτηση, παίρνουμε το σωστό αποτέλεσμα αλλά μόνο για την τιμή ???.01
Αν βάλουμε ???,02 συνεχίζει να εμφανίζει: "εκατοστό" αντι για "εκατοστά"
Αν βάλουμε ???,03+ εμφανίζει κανονικά: "εκατοστά"

Με την πρώτη συνάρτηση, με την τιμή ???.01 εμφανίζει: "εκατοστά" (Excel και δεκαδικοί....)

Θα πρότεινα λοιπόν:

=IF(TRUNC(A1)=A1;inwords(A1;0);inwords(A1;0)&" "&IF(ROUND(MOD(A1;1);2)=0,01;"εκατοστό";"εκατοστά"))

[gr8styl]

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

Θα πρότεινα λοιπόν:

IF(TRUNC(A1)=A1;inwords(A1;0);inwords(A1;0)&" "&IF(ROUND(MOD(A1;1);2)=0,01;"εκατοστό";"εκατοστά"))

Πολύ σωστά Τάσο. Συμφωνώ απόλυτα.

ΥΓ. δεν κατάλαβα πως εξαφανίστηκε ο τύπος που είχα δώσει με INT στο προηγούμενο μήνυμά μου !!!

[Θανάσης]

Και πάλι ΜΠΡΑΒΟ παιδιά

Σας ΕΥΧΑΡΙΣΤΩ και τους δύο.

[Gian15]

παιδία ένα μεγάλο ΕΥΧΑΡΙΣΤΩ και από μένα.

[NIKOLAOS68]

Χρησιμοποιώ τη συγκεκριμένη συνάρτηση εδώ και καιρό.
Όμως από τη μέρα που πέρασα τα Windows 7 και το Office 2010, όταν ανοίγω το excel βγάζει μήνυμα ότι δεν τη βρίσκει και για να λειτουργήσει πρέπει να πάω στο κελί που έχω τη συνάρτηση, να διαγράψω τα περιεχόμενα και να ξαναορίσω τη συνάρτηση από την αρχή. Έτσι δουλεύει, αλλά αν κλείσω το Excel και το ξανανοίξω, κάνει τα ίδια.

[gr8styl]

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

Χρησιμοποιώ τη συγκεκριμένη συνάρτηση εδώ και καιρό.
Όμως από τη μέρα που πέρασα τα Windows 7 και το Office 2010, όταν ανοίγω το excel βγάζει μήνυμα ότι δεν τη βρίσκει και για να λειτουργήσει πρέπει να πάω στο κελί που έχω τη συνάρτηση, να διαγράψω τα περιεχόμενα και να ξαναορίσω τη συνάρτηση από την αρχή. Έτσι δουλεύει, αλλά αν κλείσω το Excel και το ξανανοίξω, κάνει τα ίδια.

Φίλε μου
ακολούθησε τα δυο παρακάτω βήματα που νομίζω θα σου λύσουν το πρόβλημα.

Βήμα 1
θα πρέπει να εγκαταστήσεις και να ενεργοποιήσεις το πρόσθετο (Add-In) στο Excel 2010 αν δεν το έχεις ήδη κάνει.

• Ξεκινάς το Excel
• Μέσω τού Μενου File/Option/Add-Ins
• Στο κάτω μέρος δίπλα από το Manage, όπου πρέπει να γράφει "Excel Add-Ins", πατάς "Go" και βρισκεις το αρχείο "Numbers2Text.xla" που πρέπει να έχεις κάπου πάνω στο δίσκο σου.
• Πατάς Ok και έγινε.

Βήμα 2
θα πρέπει να αντικαταστήσεις τις εξωτερικές αναφορές της inwords() διαγράφοντας το path που βρίσκεται μπροστά της (αν υπάρχει).
Αυτό μπορείς να το κάνεις είτε χειροκίνητα κάνοντας επεξεργασία των κελιών που περιέχουν την inwords(...) (αν κατάλαβα καλά αυτό έκανες μέχρι τώρα), ή μέσω της ενημέρωσης των εξωτερικών συνδέσμων.

• Μέσω του μενού Data/Edit Links Πατάς στο "Change source"
• Ψάχνεις να βρεις και επιλέγεις το "Numbers2Text.xla" αρχείο που χρησιμοποίησες στο βήμα 1.
• Πατάς Ok και έγινε

Το βήμα 1 χρειάζεται να γίνει μόνο μια φορά σε αντίθεση με το βήμα 2 που πρέπει να γίνει μια φορά για κάθε παλαιό αρχείο που χρησιμοποιεί την inwords()

Πες μας αν έγινε.
Θανάσης

[NIKOLAOS68]

Τα είχα ήδη κάνει όλα αυτά.
Τα ξαναέκανα ακολουθώντας κατά γράμμα τις οδηγίες, έφτιαξα και νέο αρχείο για δοκιμή, αλλά κάνει τα ίδια.
Νομίζω ότι είναι πρόβλημα των W 7, γιατί στον φορητό μου έχω W7 με office 2007 και παρουσιάζει τα ίδια.