Excel VBA Trim-funktion
Excel VBA Trim Funktion bruges til at fjerne de ekstra mellemrum fra en hvilken som helst celle eller tekst og giver os output, som har en standard med hensyn til krævede mellemrum. VBA Trim-funktion fungerer nøjagtigt som Excel Trim-funktionen og Trim-funktion fjerner også de ekstra mellemrum på 3 måder;
- Mellemrum fra tekstenes start.
- Mellemrum fra slutningen af teksten.
- Mellemrum i teksten, hvis der ses mere end 1 ekstra plads.
Dette sker for det meste, når vi henter data fra nogle server, datavarehus, eller mens vi forkert indsætter de ekstra mellemrum manuelt. Selvom vi let kan se mellemrummet i midten af teksten, men mellemrum i begyndelsen og slutningen af teksten kan ikke ses let, før og medmindre vi går til redigeringstilstand for den specifikke celle. Dette kan gøres af VBA Marco.
Sådan bruges Excel VBA Trim-funktion?
Vi vil diskutere, hvordan man bruger VBA Trim-funktion ved hjælp af nogle eksempler.
Du kan downloade denne VBA Trim-funktion Excel-skabelon her - VBA Trim-funktion Excel-skabelonVBA Trim-funktion - eksempel # 1
Her har vi 3 celler i nedenstående skærmbillede.
Og hver celle har nogle mellemrum tilknyttet dem. Celle A1 har mellemrum i slutningen.
Celle A2 har mellemrum i begyndelsen af teksten.
Og celle A3 har mellemrum i teksten, der er fremhævet i nedenstående skærmbillede.
Til trimming af disse celler bruger vi Excel VBA. For det skal du trykke på Alt + F11- tasterne sammen eller under fanen Udvikler klikke på Visual Basic som vist nedenfor.
Dette fører os til Visual Basic-kodningsvinduet. Gå nu til menuen Indsæt fra VBA-vinduet og vælg Modul som vist nedenfor.
Dette vil skabe et nyt modul, hvor vi skriver en kode til trimning. Nedenfor er trinnene til oprettelse og skrivning af trimmekode:
- Vælg først en variabel og definer et område. Her har vi valgt variablen "A". Denne variabel kan være hvad som helst.
- Da vores datasæt allerede har noget tekst eller objekt, er vi nødt til at indstille området for det. Og til det bruger vi “ Selection ”. Det vælger automatisk dataene i det aktuelle ark.
Kode:
Sub Trim_Data () Dim A As Range Set A = Selection End Sub
- Til valg af hver udfyldt celle på arket "For hver" er funktionen Og værdi- funktionen bruges til at vælge værdien med valg af Trim (celle) .
Kode:
Sub Trim_Data () Dim A Som Range Set A = Valg for hver celle i en celle. Værdi = WorksheetFunction.Trim (celle) Next End Sub
På dette tidspunkt afslutter vi kodearbejdet til oprettelse af makro gennem VBA Trim. Lad os nu anvende den oprettede kode i en eller anden fane. For dette gå til Indsæt menu, og vælg Former under Illustrationer .
Fra denne form kan du oprette en hvilken som helst form ved hjælp af formater og formater.
Her har vi oprettet en rektangulær kasse og navngivet den TRIM som vist nedenfor.
Klik nu på designtilstand i menuen Udvikler og højreklik på det oprettede felt eller form. Fra højreklik, menuliste, vælg Tildel makro for at linke vores oprettede kode som vist nedenfor.
Vi får vinduet Tildel Marco, derfra vælger du allerede oprettet makrokode, her har vi Trim_Data og klikker derefter på OK .
Vælg nu dataene, og klik på TRIM- knappen. Vi får den valgte beskæres, og mellemrum, der ikke var nødvendige, fjernes nu som vist nedenfor.
VBA Trim-funktion - eksempel # 2
VBA-kodning vist ovenfor kan skrives på en mere måde. I ovenstående eksempel trimmede vi kun de valgte data. I dette indsætter vi funktionen i meddelelsesfeltet, så vises den, når dataene er trimmet.
Til dette vil vi bruge de samme data, som vi brugte i eksempel 1. Følg de samme trin, gå til fanen Developope r og klik på Visual Basic .
Når vi gør det, får vi vinduet Visual Basic. Åbn nu et nyt modul, og start kodningen på den side.
Overvej nu den samme kode, som vi har skrevet i eksempel-1. Men her til udskrivning af en meddelelsesboks med teksten vil vi indsætte noget tekst.
Kode:
Sub Trim_Data2 () Dim A As Range Set A = Valg for hver celle i en celle. Værdi = WorksheetFunction.Trim (celle) Dim B As String B = Trim ("Trimming Done") MsgBox B Next End Sub
Når vi er færdig med at skrive koden, skal du lukke Visual Basic-vinduerne.
Gå nu til fanen Udvikler igen og klik på Indsæt menu som vist nedenfor. Vi får en rullemenu med forskellige knapformer som vist nedenfor.
Vælg nu en af knappeformerne, og tegn den på hvor som helst på din projektmappe. Fra listen med oprettede makroer skal du vælge den ønskede mulighed. Her har vi valgt Trim_Data2, som vi oprettede til dette eksempel, og klik derefter på OK.
Derefter får vi knappen oprettet på skærmen.
Vi kan navngive knappen pr. Funktion, som vi udfører. Lad os navngive det TRIM som pr. Funktion. Højreklik nu på den oprettede TRIM- knap og vælg Tildel Marco. Når vi først har gjort det, får vi vinduet Tildel Marco som vist nedenfor. Vælg nu den krævede makro, og klik på OK.
På dette tidspunkt får vores trimkodning tildelt TRIM-knap. Vælg først dataene til test, og klik derefter på denne TRIM-knap.
Som vi kan se ovenfor, blev vores data her beskåret, og vi kan også se meddelelsen om " Trimming Done ".
Fordele ved Excel VBA Trim-funktion
- Vi kan trimme enorme datasæt i et skud uden at kontrollere antallet af ekstra mellemrum, cellerne har.
- Kodning af beskæringsfunktion er også ganske lille.
- Der er meget mindre eller ingen chancer for, at ekstra plads bliver skånet.
Ting at huske
- Gem altid filen som makroaktiveret regneark. Ved at gøre dette kan vi bruge tildelt makro flere gange.
- Kompilér koden, før du tildeler den til en knap.
- Der er 2 forskellige måder der vises til oprettelse af en knap, og begge kan bruges som per enkeltpersoner har behov for eller ønsker.
- Overvej at skrive VBA-kode som vist i eksempel-2, som også giver meddelelsen.
Anbefalede artikler
Dette har været en guide til Excel VBA Trim. Her diskuterede vi, hvordan man bruger VBA Trim-funktion til at fjerne mellemrum i Excel sammen med nogle praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler–
- VBA-funktion i Excel
- VBA VLOOKUP-funktion
- Vejledning til Excel Developer Tab
- Sådan oprettes udskrivningsknapp i Excel?