Λειτουργία Excel VBA TRIM
Το VBA TRIM κατηγοριοποιείται στις συναρτήσεις συμβολοσειράς και κειμένου, αυτή η συνάρτηση είναι μια συνάρτηση φύλλου εργασίας στο VBA και παρόμοια με την αναφορά του φύλλου εργασίας αυτή η συνάρτηση χρησιμοποιείται για την περικοπή ή την αφαίρεση των ανεπιθύμητων χώρων από μια συμβολοσειρά, χρειάζεται ένα μόνο όρισμα που είναι μια συμβολοσειρά εισόδου και επιστρέφει μια έξοδο ως συμβολοσειρά.
Υπάρχουν αρκετές καταστάσεις όπου κατεβάζουμε τα δεδομένα από διαδικτυακούς διακομιστές και αντιμετωπίζουμε μια κατάσταση μη οργανωμένων δεδομένων και ανεπιθύμητων χώρων στο κελί. Η ενασχόληση με περιττά κενά είναι πολύ οδυνηρή για να δουλέψετε. Σε κανονικές λειτουργίες φύλλου εργασίας, έχουμε μια λειτουργία που ονομάζεται TRIM στο excel για να απαλλαγούμε από "Leading Spaces, Trailing Spaces και ενδιάμεσο διάστημα". Στο VBA, έχουμε επίσης μια λειτουργία που ονομάζεται TRIM, η οποία λειτουργεί ακριβώς το ίδιο με τη λειτουργία excel, αλλά υπάρχει μόνο μια μικρή διαφορά. Θα το δούμε σε αυτό το άρθρο λίγο αργότερα.
Τι κάνει η λειτουργία Trim;
Το TRIM είναι μια συνάρτηση συμβολοσειράς που αφαιρεί κενά διαστήματα από το επιλεγμένο κελί. Σε διαστήματα, έχουμε 3 τύπους "Κορυφαίοι χώροι, Trailing Spaces και ενδιάμεσος χώρος".
Το Leading Space δεν είναι τίποτα, αλλά προτού ξεκινήσει οποιαδήποτε τιμή στο κελί, εάν υπάρχει χώρος, τότε ονομάζεται Leading Space.
Το Trailing Space δεν είναι τίποτα άλλο παρά το τέλος της τιμής στο κελί εάν υπάρχει χώρος, τότε ονομάζεται Trailing Space.
Το In-Between Space δεν είναι τίποτα μετά το τέλος κάθε λέξης. ιδανικά, θα πρέπει να έχουμε έναν χαρακτήρα διαστήματος. Οτιδήποτε περισσότερο από έναν διαστημικό χαρακτήρα ονομάζεται In-Between Space.
Για να ξεπεράσουμε όλα αυτά τα είδη προβλημάτων, έχουμε μια λειτουργία που ονομάζεται TRIM.
Σύνταξη
String: Ποια είναι η συμβολοσειρά ή η τιμή που θέλετε να περικόψετε; Θα μπορούσε να είναι αναφορά κυψέλης καθώς και άμεση παροχή τιμής στον τύπο.
Παραδείγματα
Παράδειγμα # 1
Τώρα θα δούμε πώς να αφαιρέσουμε κορυφαίους χώρους στο excel χρησιμοποιώντας τη συνάρτηση TRIM. Ακολουθήστε τα παρακάτω βήματα
Βήμα 1: Δημιουργήστε ένα όνομα μακροεντολής και δηλώστε μια μεταβλητή ως συμβολοσειρά.
Κώδικας:
Sub Trim_Example1 () Dim k As String End Sub
Βήμα 2: Τώρα, για αυτήν τη δηλωμένη μεταβλητή, εκχωρήστε μια τιμή χρησιμοποιώντας το TRIM.
Κώδικας:
Sub Trim_Example1 () Dim k As String k = Trim (End Sub
Βήμα 3: Για αυτόν τον τύπο συμβολοσειράς, η λέξη σε διπλά εισαγωγικά ως "Καλώς ήλθατε στο VBA".
Κώδικας:
Sub Trim_Example1 () Dim k As String k = Trim ("Welcome to VBA") End Sub
Βήμα 4: Τώρα δείξτε το αποτέλεσμα αυτής της μεταβλητής στο πλαίσιο μηνύματος.
Κώδικας:
Sub Trim_Example1 () Dim k As String k = Trim ("Welcome to VBA") MsgBox k End Sub
Βήμα 5: Εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή εκτελέστε χειροκίνητα. Θα πρέπει να λάβουμε μια σωστή συμβολοσειρά στο πλαίσιο μηνυμάτων.
Παραγωγή:
Έτσι, η συνάρτηση TRIM αφαίρεσε όλα τα κενά διαστήματα που έχουμε εισαγάγει στην τιμή συμβολοσειράς. Τώρα το αποτέλεσμα είναι μια σωστή πρόταση, δηλαδή, "Καλώς ήλθατε στο VBA."
Παράδειγμα # 2
Τώρα ρίξτε μια ματιά σε ένα ακόμη παράδειγμα για να αφαιρέσετε τα κενά. Πάρτε την ίδια λέξη αλλά αυτή τη φορά, εισαγάγετε τελικούς χώρους.
Καλώς ήλθατε στο VBA. «
Κώδικας:
Sub Trim_Example2 () Dim k As String k = Trim ("Welcome to VBA") MsgBox k End Sub
Εκτελέστε αυτόν τον κωδικό με μη αυτόματο τρόπο ή μέσω του πλήκτρου F5 Η λειτουργία περικοπής αφαιρεί επίσης τα κενά.
Παραγωγή:
Παράδειγμα # 3 - Καθαρίστε τα δεδομένα σε κελιά
Τώρα θα δούμε το πρακτικό παράδειγμα καθαρισμού των δεδομένων σε κελιά excel. Ας υποθέσουμε ότι έχετε ένα σύνολο δεδομένων όπως το παρακάτω στο φύλλο excel.
When we have more than one cell data, we need to write different codes. Follow the below steps to write code.
Step 1: Declare a variable as “Range.”
Code:
Sub Trim_Example3() Dim MyRange As Range End Sub
Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub
Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.
Step 3: Now, using For Each VBA Loop, apply the TRIM function.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub
Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.
Step 5: Add a word to the inserted rectangular shape as click here to clean the data.
Step 6: Right-click on the rectangular shape and select the assigned macro.
Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.
Step 8: Now select the range where we need to clean the data.
Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.
So we got cleaned value, i.e., after removing leading & trailing spaces.
Difference Between Excel & VBA Trim Function
The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.
In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.
To overcome this problem, we need to use the trim function as a worksheet function in the code.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub
Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.
Things to Remember
- VBA Trim & Worksheet Trim syntax is exactly the same.
- It can only remove leading & trailing spaces, not in-between spaces.
- Η λειτουργία τελειώματος Excel μπορεί να αφαιρέσει όλα τα είδη κενών.
