Καλησπέρα
Στο αρχείο που επισυνάπτω, έχω προσθέσει τις ακόλουθες συναρτήσεις χρήστη (συναρτήσεις που δημιουργήθηκαν με
VBA):
1) Την EvaluateText(strCell As String, ValueRange As Range) As Variant, που επιστρέφει την αξία του κειμένου strCell.
2) Την LeftNWords(strCell As String, Optional N As Long = 0) As Variant, η οποία επιστρέφει τις N πρώτες λέξεις του κειμένου strCell.
3) Την RemoveCharacters(strCell As String, CharsRemove As Range) As Variant, η οποία απομακρύνει τους ανεπιθύμητους χαρακτήρες.
4) Την SumDigits(strCell As String, Optional OneDigit As Boolean = False) As Variant, η οποία αθροίζει τα ψηφία που υπάρχουν στο κείμενο strCell.
Επίσης πρόσθεσα στον πίνακα τα κεφαλαία τονούμενα, που λείπουν.
Όλες οι συναρτήσεις χρήστη έχουν προστεθεί στη λειτουργική μονάδα «Functions».
Στο φύλλο «VBA» του βιβλίου γίνεται εφαρμογή των παραπάνω συναρτήσεων και δίνονται κάποιες πληροφορίες για τη χρήση τους.
Δημήτρη σου εύχομαι καλή συνέχεια και περιμένω το ανέβασμα στο φόρουμ της ολοκληρωμένης εφαρμογής.
Προσθήκη
Για τον περιορισμό των γραμμών, στον πίνακα με την αξία των χαρακτήρων, δεν περιλαμβάνονται τα πεζά τα οποία μετατρεπόμενα σε κεφαλαία υπάρχουν στον πίνακα.
Αυτό επιβάλλει, πριν από την αποτίμηση ενός κειμένου, τη μετατροπή του σε κεφαλαία.
Επειδή η μετατροπή του κειμένου στο περιβάλλον της
VBA με τις συναρτήσεις UPPER και UCase παρουσίασε προβλήματα τις αφαίρεσα από τον κώδικα.
Συνεπώς η μετατροπή θα γίνεται στο περιβάλλον του excel και η σχετική συνάρτηση θα εφαρμόζεται ως εξής:=EvaluateText(UPPER(A2);ValueChars)
Φιλικά/Γιώργος