Λειτουργίες χειρισμού συμβολοσειρών VBA & Operaκορμοί

Συμβολοσειρά VBA Operaκορμοί

Τα δεδομένα συμβολοσειράς χρησιμοποιούνται για τη διατήρηση δεδομένων που αποτελούνται από αριθμούς, χαρακτήρες και σύμβολα. Το "Jul-2015" είναι ένα παράδειγμα δεδομένων συμβολοσειράς. Αποτελείται από

• Χαρακτήρες (Ιούλιος)
• Σύμβολο (-)
• Numbers (2015)

Οι τελεστές συμβολοσειρών χρησιμοποιούνται για τον χειρισμό δεδομένων συμβολοσειρών. Για παράδειγμα, μπορείτε να συνδέσετε την τιμή Ιουλίου-2015 από τα 3 πρώτα γράμματα του μήνα και του έτους όπως "Ιούλιος-2015".

Ο παρακάτω πίνακας δείχνει τον τελεστή συμβολοσειράς συνένωσης VBA.

Παράδειγμα Πηγή Code

MsgBox "John " & "Doe", vbOKOnly, "Concatenate Operator"

Η εκτέλεση του παραπάνω κώδικα παράγει το ακόλουθο αποτέλεσμα

Το σύμβολο "και" δεν είναι το μόνο σύμβολο που εμφανίζεται για να ενώσει κείμενο και η διαφορά μεταξύ των δύο έχει σημασία όταν εμπλέκονται αριθμοί.

Διαφορά μεταξύ & και + για τη συνένωση συμβολοσειρών

Η VBA δέχεται τόσο το σύμβολο "και" όσο και το σύμβολο "συν" μεταξύ δύο τιμών κειμένου, επομένως οι αρχάριοι συχνά τα αντιμετωπίζουν ως εναλλάξιμα. Συμπεριφέρονται διαφορετικά μόλις ένας τελεστής είναι αριθμός ή κενή τιμή και μόνο ένας από αυτούς είναι ασφαλής.

💡 Συμβουλές: Να χρησιμοποιείτε πάντα το σύμβολο "και" για τη συνένωση και να διατηρείτε το σύμβολο "συν" για αριθμητικές πράξειςΤοποθετήστε ένα κενό πριν και μετά το σύμβολο "και", επειδή η σύνταξη της συνάρτησης Total& διαβάζεται από την VBA ως χαρακτήρας δήλωσης τύπου Long.

Λειτουργίες χειρισμού συμβολοσειρών VBA

Ο χειρισμός συμβολοσειρών VBA είναι ένα σημαντικό στοιχείο σε Excel VBA για προγραμματισμό Macro και λειτουργίες συμβολοσειράς. Το Excel παρέχει διάφορους τύπους συναρτήσεων χειρισμού συμβολοσειρών VBA όπως:

• Αριστερό: χρησιμοποιείται για να εξηγηθείtract χαρακτήρες από την αριστερή πλευρά της συμβολοσειράς
• Δεξί: χρησιμοποιείται για να εξηγηθείtract χαρακτήρες από τη δεξιά πλευρά της συμβολοσειράς
• Στα μέσα: χρησιμοποιείται για να εξηγηθείtracta υποσυμβολοσειρά από τη μέση μιας συμβολοσειράς
• Len: χρησιμοποιείται για να βρει το μήκος μιας συμβολοσειράς
• InStr: χρησιμοποιείται για να βρει τη θέση μιας υποσυμβολοσειράς σε μια συμβολοσειρά
• Περικοπή: χρησιμοποιείται για την αφαίρεση κενών και από τα δύο άκρα μιας συμβολοσειράς
• Αντικαταστήστε: χρησιμοποιείται για την αντικατάσταση κάθε εμφάνισης μιας υποσυμβολοσειράς με μια άλλη
• UCase / LCase: χρησιμοποιούνται για τη μετατροπή μιας συμβολοσειράς σε κεφαλαία ή πεζά γράμματα

Ο παρακάτω πίνακας δείχνει τη σύνταξη κάθε συνάρτησης με ένα λειτουργικό παράδειγμα, ώστε να μπορείτε να αντιγράψετε το μοτίβο απευθείας σε μια μακροεντολή.

Η παρακάτω μακροεντολή συνδυάζει αρκετές από αυτές τις συναρτήσεις για να ανακατασκευάσει μια ετικέτα ημερομηνίας από τα μέρη της.

Sub StringFunctionsDemo()
    Dim Source As String
    Dim MonthPart As String
    Dim YearPart As String

    Source = "July-2015"

    ' Take the first three characters
    MonthPart = Left(Source, 3)
    ' Take the last four characters
    YearPart = Right(Source, 4)

    MsgBox MonthPart & "-" & YearPart, vbOKOnly, "String Functions"
End Sub

Η εκτέλεση της μακροεντολής εμφανίζει τον Ιούλιο του 2015. Κάθε συνάρτηση επιστρέφει μια νέα τιμή και αφήνει την αρχική συμβολοσειρά ανέπαφη, γι' αυτό και τα αποτελέσματα μπορούν να συνδυαστούν με ασφάλεια σε μία μόνο έκφραση.

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

Πώς να διαχωρίσετε και να ενώσετε συμβολοσειρές σε VBA

Τα δεδομένα που επικολλώνται στο Excel συχνά φτάνουν ως μία μεγάλη τιμή με ένα διαχωριστικό μεταξύ κάθε στοιχείου, όπως "Pepsi, Coca-Cola, Fanta, Juice". Η ανάγνωση αυτού με Mid και InStr είναι αργή και εύθραυστη. Η VBA παρέχει ένα αντίστοιχο ζεύγος συναρτήσεων ακριβώς για αυτήν την εργασία.

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

Sub SplitAndJoinDemo()
    Dim Source As String
    Dim Items() As String
    Dim i As Long

    Source = "Pepsi,Coke,Fanta,Juice"

    ' Break the value into an array on every comma
    Items = Split(Source, ",")

    For i = LBound(Items) To UBound(Items)
        Sheet1.Cells(i + 1, 1).Value = Items(i)
    Next i

    ' Rebuild the list with a different separator
    MsgBox Join(Items, " | "), vbOKOnly, "Joined List"
End Sub

Ο βρόχος γράφει κάθε ποτό στη δική του σειρά φύλλου εργασίας και το πλαίσιο μηνύματος εμφανίζει στη συνέχεια Pepsi | Coke | Fanta | Juice. Τρία σημεία καθιστούν αυτό το μοτίβο αξιόπιστο στον κώδικα παραγωγής:

• Αποτέλεσμα με βάση το μηδέν: Η συνάρτηση Split επιστρέφει πάντα έναν πίνακα με αριθμό από το 0, ανεξάρτητα από την τιμή στην οποία έχει οριστεί η Option Base, επομένως οδηγήστε τον βρόχο με LBound και UBound αντί για έναν σταθερό αριθμό.
• Δήλωση ως String(): Αντιστοιχίστε το αποτέλεσμα σε έναν δυναμικό πίνακα String. Η δήλωση ενός σταθερού μεγέθους προκαλεί πρώτα ένα σφάλμα μεταγλώττισης.
• Κενή εισαγωγή: Ο διαχωρισμός μιας κενής συμβολοσειράς επιστρέφει έναν πίνακα χωρίς στοιχεία, επομένως δοκιμάστε με UBound πριν διαβάσετε την εντολή Items(0).

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

Συνηθισμένα σφάλματα συμβολοσειρών VBA και πώς να τα διορθώσετε

Τα περισσότερα σφάλματα συμβολοσειρών στο Excel VBA προέρχονται από μια σύντομη λίστα αιτιών. Η αναγνώριση του συμπτώματος εξοικονομεί μια μακρά περίοδο λειτουργίας εντοπισμού σφαλμάτων.

• Ασυμφωνία τύπου κατά τη συνένωση: Χρησιμοποιήθηκε ένα σύμβολο συν μεταξύ κειμένου και ενός αριθμού. Αντικαταστήστε το με ένα εμπορικό "και", το οποίο μετατρέπει τον αριθμό αυτόματα.
• Η InStr επιστρέφει 0: Η δευτερεύουσα συμβολοσειρά δεν βρέθηκε. Το InStr επιστρέφει 0 αντί για -1 σε περίπτωση αποτυχίας, επομένως ελέγξτε για τιμή μεγαλύτερη από το μηδέν πριν περάσετε το αποτέλεσμα στο Mid.
• Μη έγκυρη κλήση διαδικασίας στη μέση ή στα αριστερά: Το ζητούμενο μήκος είναι αρνητικό ή η αρχική θέση είναι κάτω από το 1. Προστατέψτε την κλήση με το Len, ώστε το μήκος να μην υπερβαίνει ποτέ τη συμβολοσειρά.
• Συγκρίσεις που θα έπρεπε να ταιριάζουν αλλά δεν ταιριάζουν: Τα τελικά κενά από τα εισαγόμενα δεδομένα σπάνε την ισότητα. Τυλίξτε και τις δύο πλευρές στο Trim και χρησιμοποιήστε το StrComp όταν η πεζά-κεφαλαία πρέπει να αγνοηθεί.
• Κείμενο που δεν θα γίνει αριθμός: Μια τιμή όπως «1,200» αποτυγχάνει στην αριθμητική λόγω του διαχωριστή. Αφαιρέστε την με την επιλογή «Replace» πριν τη μετατροπή με την επιλογή «CLng».

Κατεβάστε το Excel που περιέχει τον παραπάνω κώδικα

Κατεβάστε το παραπάνω αρχείο Excel Code

Συχνές Ερωτήσεις