Funkce oříznutí Excel VBA

Funkce Excel VBA Trim se používá k odstranění nadbytečných mezer z libovolné buňky nebo textu a dává nám výstup, který má standard z hlediska požadovaných mezer. Funkce VBA Trim funguje přesně tak, jak funkce Excel Trim a Trim také odstraní 3 mezery navíc;

  1. Mezery od začátku textu.
  2. Mezery od konce textu.
  3. Mezery od středu textu, pokud je vidět více než 1 mezera navíc.

K tomu většinou dochází, když stahujeme data z nějakého serveru, datového skladu nebo při nesprávném vkládání mezer ručně. I když můžeme snadno vidět mezery uprostřed textu, ale mezery na začátku a na konci textu nelze snadno vidět, dokud a pokud nepřejdeme do režimu úprav této konkrétní buňky. To může provést VBA Marco.

Jak používat funkci Excel VBA Trim?

Budeme diskutovat o tom, jak používat VBA Trim Function pomocí několika příkladů.

Tuto šablonu VBA Trim Function Excel si můžete stáhnout zde - VBA Trim Function Excel Template

Funkce oříznutí VBA - Příklad č. 1

Zde máme 3 buňky na níže uvedeném snímku obrazovky.

Každá buňka má s sebou spojené mezery. Buňka A1 má na konci mezery.

Buňka A2 má na začátku textu mezery.

A buňka A3 má mezeru mezi textem, který je zvýrazněn na níže uvedeném snímku obrazovky.

Pro oříznutí těchto buněk použijeme Excel VBA. Za tímto účelem stiskněte klávesy Alt + F11 společně nebo na kartě Vývojář klikněte na Visual Basic, jak je ukázáno níže.

Tím se dostanete do okna kódování jazyka. Nyní přejděte do nabídky Vložit z okna VBA a vyberte Modul, jak je znázorněno níže.

Tím se vytvoří nový modul, kde napíšeme kód pro oříznutí. Níže jsou uvedeny kroky pro vytvoření a zápis kódu oříznutí:

  • Nejprve vyberte proměnnou a definujte rozsah. Zde jsme vybrali proměnnou „A“. Tato proměnná může být cokoli.
  • Protože naše datová sada již obsahuje nějaký text nebo objekt, musíme pro ni nastavit rozsah. A k tomu použijeme „ Výběr “. Automaticky vybere data v tomto listu.

Kód:

 Sub Trim_Data () Dim A jako sada rozsahů A = výběr End Sub

  • Pro výběr každé vyplněné buňky listu „Pro každého“ je funkce a hodnota funkce slouží k výběru hodnoty pomocí výběru Oříznout (buňka) .

Kód:

 Sub Trim_Data () Dim A jako sada nastavení A = výběr pro každou buňku v buňce.Value = WorksheetFunction.Trim (cell) Next End Sub

Tímto dokončíme práci na kódování pro vytvoření makra pomocí VBA Trim. Nyní aplikujme vytvořený kód na nějakou kartu. Za tímto účelem přejděte do nabídky Vložit a v části Ilustrace vyberte položku Tvary .

Z této možnosti Tvary vytvořte libovolný tvar pomocí formátů a stylů tvarů.

Zde jsme vytvořili obdélníkový rámeček a pojmenovali jej TRIM, jak je ukázáno níže.

Nyní klikněte na nabídku Režim návrhu v nabídce Vývojář a klikněte pravým tlačítkem na vytvořené pole nebo tvar. V nabídce klepněte pravým tlačítkem myši a vyberte možnost Přiřadit makro, abyste propojili náš vytvořený kód, jak je znázorněno níže.

Dostaneme okno Assign Marco, odtud vybereme již vytvořený makro kód, zde máme Trim_Data a pak klikneme na OK .

Nyní vyberte data a klikněte na tlačítko TRIM . Dostaneme vybrané oříznutí a prostory, které nebyly vyžadovány, jsou nyní odstraněny, jak je znázorněno níže.

Funkce oříznutí VBA - Příklad č. 2

Výše uvedené kódování VBA lze napsat ještě jednou. Ve výše uvedeném příkladu jsme ořízli pouze vybraná data. Do tohoto pole vložíme funkci také do okna zprávy, která se zobrazí po oříznutí dat.

K tomu použijeme stejná data, jaká jsme použili v příkladu 1. Postupujte podle stejných kroků, přejděte na záložku Develope r a klikněte na Visual Basic .

Jakmile to uděláme, dostaneme okno jazyka. Nyní otevřete nový modul a začněte kódovat na této stránce.

Nyní zvažte stejný kód, jaký jsme napsali v příkladu 1. Ale zde pro tisk okna zprávy s textem vložíme nějaký text.

Kód:

 Sub Trim_Data2 () Dim A as Range Set A = výběr pro každou buňku v buňce A.Value = WorksheetFunction.Trim (cell) Dim B jako String B = Trim ("Trimming Done") MsgBox B Next End Sub

Po dokončení psaní kódu zavřete okna jazyka.

Nyní přejděte znovu na kartu Vývojář a klikněte na nabídku Vložit, jak je ukázáno níže. Dostaneme rozbalovací nabídku různých tvarů tlačítek, jak je ukázáno níže.

Nyní vyberte některý z tvarů tlačítek a nakreslete jej kdekoli v sešitu. Ze seznamu vytvořených maker vyberte požadovanou možnost. Zde jsme vybrali Trim_Data2, který jsme vytvořili pro tento příklad, a poté klikněte na OK.

Poté dostaneme tlačítko vytvořené na obrazovce.

Tlačítko můžeme pojmenovat podle funkce, kterou budeme provádět. Pojmenujme TRIM podle funkce. Nyní klikněte pravým tlačítkem na vytvořené tlačítko TRIM a vyberte Přiřadit Marco. Jakmile to uděláme, dostaneme okno Přiřadit Marco, jak je ukázáno níže. Nyní vyberte požadované makro a klikněte na OK.

Tímto bude naše trimovací kódování přiřazeno tlačítku TRIM. Nyní pro testování nejprve vyberte data a poté klikněte na toto tlačítko TRIM.

Jak vidíme výše, naše data byla oříznuta a můžeme vidět také zprávu „ Oříznutí dokončeno “.

Výhody funkce Excel VBA Trim

  • Můžeme oříznout obrovské sady dat v jednom záběru, aniž bychom zkontrolovali počet mezer navíc v buňkách.
  • Kódování funkce oříznutí je také poměrně malé.
  • Existuje velmi malá nebo žádná šance, že jakýkoli další prostor bude ušetřen.

Věci na zapamatování

  • Soubor vždy uložte jako list povolený pomocí makra. Tímto způsobem můžeme použít přiřazené makro vícekrát.
  • Před přiřazením k libovolnému tlačítku kód zkompilujte.
  • Existují 2 různé způsoby, jak jsou zobrazeny pro vytvoření tlačítka a oba mohou být použity podle potřeby a přání jednotlivců.
  • Zvažte napsat kód VBA, jak je ukázáno v příkladu 2, který také dá zprávu.

Doporučené články

Toto byl průvodce Excel VBA Trim. Zde jsme diskutovali o tom, jak použít funkci VBA Trim Function k odstranění mezer v Excelu, spolu s několika praktickými příklady a šablonou Excel ke stažení. Můžete také projít naše další doporučené články -

  1. Funkce VBA v Excelu
  2. Funkce VBA VLOOKUP
  3. Průvodce tabulkou vývojáře aplikace Excel
  4. Jak vytvořit příkazové tlačítko tisku v Excelu?

Kategorie:

VBA