Exceli VBA kärpimisfunktsioon

Exceli VBA kärpimisfunktsiooni kasutatakse lisaruumide eemaldamiseks mis tahes lahtrist või tekstist ja see annab meile väljundi, millel on nõutavate tühikute osas standard. VBA kärpimisfunktsioon töötab täpselt samamoodi nagu Exceli kärpimisfunktsioon ja kärpimisfunktsioon eemaldab lisaruumid ka kolmel viisil;

  1. Tühikud teksti algusest.
  2. Tühikud teksti lõpust.
  3. Tühikud teksti keskpaigast, kui näha on rohkem kui 1 lisaruum.

Enamasti juhtub see siis, kui laadime andmeid alla mõnest serverist, andmelaost või sisestades lisaruumid käsitsi valesti. Ehkki teksti keskel olevaid tühikuid on hõlpsasti näha, ei saa tühikuid teksti alguses ega lõpus näha nii hõlpsalt enne ja kui me ei lähe selle konkreetse lahtri redigeerimisrežiimi. Seda saab teha VBA Marco.

Kuidas kasutada Exceli VBA kärpimisfunktsiooni?

Arutame mõne näite abil VBA trimmimisfunktsiooni kasutamist.

Selle VBA kärpimisfunktsiooni Exceli malli saate alla laadida siit - VBA kärpimisfunktsiooni Exceli mall

VBA trimmi funktsioon - näide nr 1

Siin on allolevas ekraanipildis 3 lahtrit.

Ja igas lahtris on nendega seotud tühikud. Lahtri A1 lõpus on tühikud.

Lahtris A2 on tühikud teksti alguses.

Ja lahtris A3 on teksti vahel tühikut, mis on esile tõstetud alloleval ekraanipildil.

Nende lahtrite kärpimiseks kasutame rakendust Excel VBA. Selleks vajutage klahve Alt + F11 korraga või klõpsake vahekaardi Arendaja all nuppu Visual Basic, nagu allpool näidatud.

See viib meid Visual Basicu kodeerimise aknasse. Nüüd minge VBA aknas menüüsse Sisesta ja valige moodul, nagu allpool näidatud.

See loob uue mooduli, kuhu kirjutame kärpimiseks koodi. Allpool on toodud sammud kärpimiskoodi loomiseks ja kirjutamiseks:

  • Esiteks valige muutuja ja määrake vahemik. Siin valisime muutuja “A”. See muutuja võib olla ükskõik milline.
  • Kuna meie andmestikul on juba mõni tekst või objekt, peame selle määrama. Ja selleks kasutame “ Valikut ”. See valib automaatselt sellel lehel olevad andmed.

Kood:

 Sub Trim_Data () Hämardada A As Range Set A = Valiku lõpp Sub

  • Lehe iga täidetud lahtri valimiseks on funktsioon Andmeväärtus funktsiooni väärtuseks valitakse Kärbi (lahtri) abil väärtus Iga jaoks.

Kood:

 Sub Trim_Data () Hämardatakse A As Range Set A = Valik igale lahtrile In cell.Value = WorksheetFunction.Trim (cell) Next End Sub

Sellega viime lõpule VBA Trimi kaudu makro loomise kodeerimise töö. Nüüd rakendame loodud koodi mõnele vahelehele. Selleks minge sisestusmenüüsse ja valige illustratsioonide alt Kujundid .

Sellest suvandist Shapes looge vormivormingute ja stiilide abil suvaline kuju.

Oleme siin loonud ristkülikukujulise kasti ja nimetanud selle TRIM-iks, nagu allpool näidatud.

Nüüd klõpsake arendaja menüüs Kujundusrežiim ja paremklõpsake loodud kasti või kuju. Paremklõpsake menüüloendis käsku Assign Macro, et linkida meie loodud kood, nagu allpool näidatud.

Saame aken Assign Marco, sealt valige juba loodud makrokood, siin on meil Trim_Data ja klõpsake siis nuppu OK .

Nüüd valige andmed ja klõpsake nuppu TRIM . Saame valitud kärbitud ja tühikud, mida polnud vaja, eemaldatakse nüüd, nagu allpool näidatud.

VBA trimmi funktsioon - näide nr 2

Ülaltoodud VBA kodeeringut saab kirjutada veel ühel viisil. Ülaltoodud näites kärpisime ainult valitud andmeid. Sellesse sisestame funktsiooni ka sõnumikasti ja see kuvatakse pärast andmete kärpimist.

Selleks kasutame samu andmeid, mida kasutasime näites 1. Järgige samu samme, minge vahekaardile Arenda r ja klõpsake nuppu Visual Basic .

Kui oleme selle teinud, saame Visual Basicu akna. Nüüd avage värske moodul ja alustage sellel lehel kodeerimist.

Vaatleme nüüd sama koodi, mille oleme kirjutanud näites-1. Kuid siia tekstiga sõnumikasti printimiseks lisame teksti natuke.

Kood:

 Sub Trim_Data2 () Dim A As Range Set A = Valik lahtris iga lahtri jaoks.Value = WorksheetFunction.Trim (cell) Dim B Nagu String B = Trim ("Kärpimine valmis") MsgBox B Järgmine lõpp Sub

Kui olete koodi kirjutamise lõpetanud, sulgege Visual Basicu aknad.

Nüüd minge uuesti vahekaardile Arendaja ja klõpsake allpool näidatud menüüd Lisa. Saame erinevate nupukujundite rippmenüü, nagu allpool näidatud.

Valige nüüd mõni nupuvajutus ja joonistage see kuhu tahes oma töövihikus. Valige loodud makrode loendist vajalik suvand. Siin valisime Trim_Data2, mille selle näite jaoks lõime, ja siis klõpsake nuppu OK.

Pärast seda saame ekraanile loodud nupu.

Nuppu võime nimetada funktsiooni järgi, mida me täidame. Nimetagem seda funktsiooni järgi TRIMiks . Nüüd paremklõpsake loodud nuppu TRIM ja valige Assign Marco. Kui oleme selle teinud, saame akna Assign Marco nagu allpool näidatud. Valige nüüd vajalik makro ja klõpsake nuppu OK.

Sellega saab meie trimmimiskodeering TRIM Buttonile. Nüüd vali testimiseks esmalt andmed ja klõpsa siis nuppu TRIM.

Nagu näeme ülalpool, kärbiti siin meie andmeid ja näeme ka sõnumit " Kärpimine valmis ".

Excel VBA kärpimisfunktsiooni plussid

  • Saame ühe võttega kärpida tohutuid andmekomplekte, kontrollimata lahtrites oleva lisaruumi arvu.
  • Kärpimisfunktsiooni kodeerimine on samuti üsna väike.
  • Võimalusi, et mõni lisaruum kaob, on väga vähe või pole üldse.

Asjad, mida meeles pidada

  • Salvestage fail alati makro-aktiveeritud töölehena. Seda tehes saame kasutada määratud makro mitu korda.
  • Enne mõnele nupule omistamist kompileerige kood.
  • Nupu loomiseks on 2 erinevat viisi ja mõlemat saab kasutada vastavalt vajadusele või soovile.
  • Kaaluge VBA-koodi kirjutamist nagu näidatud näites-2, mis annab ka sõnumi.

Soovitatavad artiklid

See on olnud Excel VBA Trimi juhend. Siin arutati, kuidas kasutada VBA trimmimisfunktsiooni tühikute eemaldamiseks Excelis koos mõne praktilise näite ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA funktsioon Excelis
  2. VBA VLOOKUP funktsioon
  3. Juhend Exceli arendaja vahekaardile
  4. Kuidas luua Excelis prindikäskluse nuppu?

Kategooria:

VBA