Έχουμε ήδη κάνει μια εισαγωγή στις λειτουργίες συμβολοσειράς στο σεμινάριο VBA Strings and Substrings Functions. Τώρα θα εξετάσουμε πώς να συνδυάσουμε συμβολοσειρές κειμένου.
Συνδυασμένες χορδές
Μπορείτε να χρησιμοποιήσετε τον τελεστή & στο VBA για να ενώσετε συμβολοσειρές κειμένου.
| 1 | MsgBox "Συγχώνευση" & "Κείμενο" |
Συνενωμένα κύτταρα
Μπορείτε επίσης να συνδέσετε κύτταρα μαζί. Παρακάτω, έχουμε τις συμβολοσειρές κειμένου σε Α1 και Β1:
Ο ακόλουθος κώδικας σάς δείχνει πώς μπορείτε να ενώσετε συμβολοσειρές κειμένου από τα κελιά Α1 και Β1 χρησιμοποιώντας τον τελεστή & στο κελί C1:
| 1 | Εύρος ("C1"). Τιμή = Εύρος ("A1"). Τιμή & Εύρος ("B1"). Τιμή |
Το αποτέλεσμα είναι:
Συνδυασμένες μεταβλητές
Αυτή είναι η πλήρης διαδικασία για να συνδέσετε δύο κελιά μαζί χρησιμοποιώντας μεταβλητές συμβολοσειράς.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne as StringDim StringTwo as StringStringOne = Εύρος ("A1"). ΤιμήStringTwo = Εύρος ("B1"). ΤιμήΕύρος ("C1"). Τιμή = StringOne & StringTwoΤέλος υπο |
Χρησιμοποιώντας το & Operator with Spaces
Όταν θέλετε να συμπεριλάβετε χώρους που χρησιμοποιείτε & σε συνδυασμό με το "". Ο παρακάτω κώδικας σάς δείχνει πώς θα συμπεριλάβετε τα κενά:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringStringOne = "Αυτό είναι"StringTwo = "το κείμενο"StringThree = StringOne & "" & StringTwoMsgBox StringThreeΤέλος υπο |
Το αποτέλεσμα του MessageBox είναι:
Χρησιμοποιώντας το & Operator για να συνδέσετε ένα εισαγωγικό
Ας υποθέσουμε ότι η συμβολοσειρά κειμένου σας περιέχει ένα εισαγωγικό, ο ακόλουθος κώδικας σάς δείχνει πώς να συμπεριλάβετε ένα εισαγωγικό μέσα σε μια συμβολοσειρά κειμένου:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringStringOne = "Αυτό είναι το εισαγωγικό"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeΤέλος υπο |
Το αποτέλεσμα είναι:
Τοποθέτηση συμβολοσειρών σε μια νέα γραμμή
Ας υποθέσουμε ότι έχετε πέντε συμβολοσειρές κειμένου, μπορείτε να βάλετε κάθε συμβολοσειρά κειμένου σε μια νέα γραμμή ή παράγραφο, χρησιμοποιώντας είτε τη συνάρτηση vbNewLine, vbCrLf, vbCr ή Chr. Ο παρακάτω κώδικας σάς δείχνει πώς να τοποθετήσετε κάθε συμβολοσειρά κειμένου σε μια νέα γραμμή:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringDim StringFour As StringDim StringFive As StringStringOne = "Αυτή είναι η πρώτη συμβολοσειρά"StringTwo = "Αυτή είναι η δεύτερη συμβολοσειρά"StringThree = "Αυτή είναι η τρίτη συμβολοσειρά"StringFour = "Αυτή είναι η τέταρτη συμβολοσειρά"StringFive = "Αυτή είναι η πέμπτη συμβολοσειρά"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveΤέλος υπο |
Το αποτέλεσμα είναι:
