Ανανέωση ιστοσελίδας

[kapetang]

Δημιουργός: Γιώργος Καπετανόπουλος (έτος 2016)

Πρόβλημα
Ας υποθέσουμε ότι το κείμενο κάποιων κελιών αποτελείται από ακολουθίες ψηφίων και ακολουθίες μη αριθμητικών χαρακτήρων.
Για παράδειγμα το κείμενο "aaa1bbb123cccc", αποτελείται από:

• Το μη αριθμητικό τμήμα "aaa"
• Το αριθμητικό τμήμα "1"
• Το μη αριθμητικό τμήμα "bb"
• Το αριθμητικό τμήμα "123"
• Το μη αριθμητικό τμήμα "cccc"

Ζητείται να διαιρέσουμε το κείμενο σε αμιγή τμήματα μόνο ψηφίων ή μόνο μη αριθμητικών χαρακτήρων.

Για την επίλυση του παραπάνω προβλήματος δημιουργήθηκαν, με κώδικα VBA, οι συναρτήσεις SplitText και SpliTextItem.

Η συνάρτηση SplitTex(TextToSplit As Strin), δέχεται ως όρισμα το κείμενο που θα διασπαστεί και επιστρέφει όλα τα τμήματα.

Επειδή είναι συνάρτηση πίνακα, θα πρέπει, μετά την εισαγωγή, να πατήσουμε Alt+Shift+Enter

Η συνάρτηση SplitTextItem(TextToSplit As String, numSection As Long) δέχεται ως ορίσματα το κείμενο που θα διασπαστεί και τον α/α του ζητούμενου τμήματος και επιστρέφει μόνο το συγκεκριμένο τμήμα.

Στο συνημμένο αρχείο, εκτός από τον κώδικα, δίνονται και παραδείγματα χρήσης των συναρτήσεων.

Φιλικά/Γιώργος