Δημιουργός: Γιώργος Καπετανόπουλος (έτος 2016)
Πρόβλημα
Ας υποθέσουμε ότι το κείμενο κάποιων κελιών αποτελείται από ακολουθίες ψηφίων και ακολουθίες μη αριθμητικών χαρακτήρων.
Για παράδειγμα το κείμενο "aaa1bbb123cccc", αποτελείται από:
- Το μη αριθμητικό τμήμα "aaa"
- Το αριθμητικό τμήμα "1"
- Το μη αριθμητικό τμήμα "bb"
- Το αριθμητικό τμήμα "123"
- Το μη αριθμητικό τμήμα "cccc"
Ζητείται να διαιρέσουμε το κείμενο σε αμιγή τμήματα μόνο ψηφίων ή μόνο μη αριθμητικών χαρακτήρων.
Για την επίλυση του παραπάνω προβλήματος δημιουργήθηκαν, με κώδικα
VBA, οι συναρτήσεις SplitText και SpliTextItem.
Η συνάρτηση SplitTex(TextToSplit As Strin), δέχεται ως όρισμα το κείμενο που θα διασπαστεί και επιστρέφει όλα τα τμήματα.
Επειδή είναι συνάρτηση πίνακα, θα πρέπει, μετά την εισαγωγή, να πατήσουμε Alt+Shift+Enter
Η συνάρτηση SplitTextItem(TextToSplit As String, numSection As Long) δέχεται ως ορίσματα το κείμενο που θα διασπαστεί και τον α/α του ζητούμενου τμήματος και επιστρέφει μόνο το συγκεκριμένο τμήμα.
Στο συνημμένο αρχείο, εκτός από τον κώδικα, δίνονται και παραδείγματα χρήσης των συναρτήσεων.
Φιλικά/Γιώργος