Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τις λειτουργίες Trim, LTrim και RTrim VBA καθώς και τη συνάρτηση φύλλου εργασίας Trim.
Λειτουργία περικοπής
Η λειτουργία περικοπής VBA αφαιρεί («περικόπτει») εσφαλμένα διαστήματα πριν και μετά από συμβολοσειρές κειμένου.
Περικοπή χώρων πριν και μετά το κείμενο
Η λειτουργία VBA Trim θα αφαιρέσει κενά πριν και μετά από συμβολοσειρές κειμένου:
| 12345678910 | Sub TrimExample_1 ()MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Περικοπή πολλαπλών χώρων πριν και μετά το κείμενο
Αυτό περιλαμβάνει περικοπή πολλών κενών πριν και μετά το κείμενο:
| 12345678910 | Sub TrimExample_2 ()MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Το VBA Trim ΔΕΝ θα αφαιρέσει πολλαπλά κενά μεταξύ λέξεων
Ωστόσο, η συνάρτηση Trim δεν θα αφαιρέσει πολλά κενά μεταξύ των λέξεων:
| 12345678910 | Sub TrimExample_3 ()MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Περικοπή ως συνάρτηση φύλλου εργασίας
Ωστόσο, η συνάρτηση φύλλου εργασίας του Excel Trim μπορεί να χρησιμοποιηθεί για την αφαίρεση επιπλέον κενών μεταξύ των λέξεων:
Χρησιμοποιήστε τη συνάρτηση περικοπής φύλλου εργασίας στο VBA
Για να χρησιμοποιήσετε τη συνάρτηση περικοπής του Excel στο VBA, καλέστε το χρησιμοποιώντας το φύλλο εργασίας:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox WorksheetFunction.Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox WorksheetFunction.Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
Διαφορά μεταξύ φύλλου εργασίαςFunction.Trim και VBA Trim
Αυτό θα δείξει τις διαφορές μεταξύ Trim και WorksheetFunction.Trim:
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox WorksheetFunction.Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox WorksheetFunction.Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Msgbox Trim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Χρησιμοποιήστε το VBA για να προσθέσετε συνάρτηση περικοπής σε εύρος
Η συνάρτηση Trim Worksheet μπορεί να προστεθεί σε μια περιοχή χρησιμοποιώντας ιδιότητα. Τύπος:
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"Τέλος υπο |
Λειτουργία LTrim
Η συνάρτηση LTrim αφαιρεί κενά μόνο από την αριστερή πλευρά της λέξης:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox LTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox LTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox LTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox LTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox LTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Λειτουργία RTrim
Η συνάρτηση RTrim αφαιρεί κενά μόνο από τη δεξιά πλευρά της λέξης:
| 12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox RTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox RTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox RTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox RTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"MsgBox RTrim ("I love excel")Το αποτέλεσμα είναι: "Λατρεύω το excel"Τέλος υπο |
Trim, Ltrim και Rtrim δεν αφαιρούν κενά μεταξύ των λέξεων.
Αφαιρέστε όλα τα κενά από το κείμενο
Η περικοπή θα καταργήσει μόνο επιπλέον κενά μεταξύ των λέξεων, αλλά για να καταργήσετε όλα τα κενά σε μια συμβολοσειρά κειμένου, μπορείτε να χρησιμοποιήσετε τη συνάρτηση Αντικατάσταση:
| 1234 | Sub ReplaceExample ()MsgBox Replace ("I love excel", "", "")'Αποτέλεσμα είναι: "Iloveexcel"Τέλος υπο |
