Deze tutorial laat zien hoe u de Trim-, LTrim- en RTrim VBA-functies en de Trim-werkbladfunctie kunt gebruiken.
Trimfunctie
De VBA Trim-functie verwijdert ('trimt') foutieve spaties voor en na tekstreeksen.
Spaties voor en na tekst bijsnijden
De VBA Trim-functie verwijdert spaties voor en na tekstreeksen:
| 12345678910 | Sub TrimExample_1()MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
Trim meerdere spaties voor en na tekst
Dit omvat het bijsnijden van meerdere spaties voor en na tekst:
| 12345678910 | Sub TrimExample_2()MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
VBA Trim zal NIET meerdere spaties tussen woorden verwijderen
De Trim-functie verwijdert echter niet meerdere spaties tussen woorden:
| 12345678910 | Sub TrimExample_3()MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
Trimmen als werkbladfunctie
De Excel Trim-werkbladfunctie kan echter worden gebruikt om extra spaties tussen woorden te verwijderen:
Werkblad Trim-functie gebruiken in VBA
Om de Excel Trim-functie in VBA te gebruiken, roept u deze aan met behulp van WorksheetFunction:
| 12345678910 | Sub TrimExample_4()Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
Moe van het zoeken naar voorbeelden van VBA-codes? Probeer AutoMacro!
Verschil tussen WorksheetFunction.Trim en VBA Trim
Dit zal de verschillen tussen Trim en WorksheetFunction.Trim demonstreren:
| 1234567891011121314151617 | Sub TrimExample_5()Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
Gebruik VBA om de Trim-functie in een bereik toe te voegen
De functie Werkblad bijsnijden kan in een bereik worden toegevoegd met de eigenschap .Formula:
| 123 | Sub TrimExample_6()ThisWorkbook.Worksheets("Blad1").Bereik("B1").Formule = "=trim(A1)"Einde sub |
LTrim-functie
De LTrim-functie verwijdert alleen spaties aan de linkerkant van het woord:
| 12345678910111213141516171819 | Sub TrimExample_7()MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
RTrim-functie
De RTrim-functie verwijdert alleen spaties aan de rechterkant van het woord:
| 12345678910111213141516171819 | Sub TrimExample_8()MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub |
Trim, Ltrim en Rtrim verwijderen geen spaties tussen woorden.
Alle spaties uit tekst verwijderen
Trim verwijdert alleen extra spaties tussen woorden, maar om alle spaties in een reeks tekst te verwijderen, kunt u de functie Vervangen gebruiken:
| 1234 | Sub VervangVoorbeeld ()MsgBox Replace(" I love excel ", " ", "")'Resultaat is: "Iloveexcel"Einde sub |
