Microsoft Excel je výkonná aplikace pro práci s tabulkovými daty, která je široce používána v podnikání i doma. Jedním z nejužitečnějších nástrojů aplikace Excel je VBA (Visual Basic for Applications), která umožňuje automatizovat mnoho úkolů a zjednodušit proces práce s daty.
V tomto článku rozebereme, jak přidat nový sloupec do tabulky pomocí VBA Excel. Přidání nového sloupce může být užitečné, když potřebujete vložit nová data, provést výpočty nebo jednoduše uspořádat informace jinak.
Krok 1: Otevřete Excel a vytvořte nový soubor nebo otevřete existující soubor s tabulkou, do které chcete přidat nový sloupec.
Krok 2: Klikněte na kartu Vývojář v horní nabídce aplikace Excel. Pokud tato karta není viditelná, přejděte na soubor - > Možnosti - > Páska a zaškrtněte políčko poblíž vývojář.
Krok 3: Na kartě Vývojář klikněte na tlačítko"Visual Basic". Tím se otevře okno editoru VBA.
Krok 4: V editoru VBA vyberte z nabídky Vložit - > Modul. Tím se vytvoří nový modul pro psaní kódu VBA.
Krok 5: Napište VBA kód pro přidání sloupce. Můžete například použít následující kód:
Tento kód přidá nový sloupec před druhý sloupec v tabulce a zapíše hodnotu "nový sloupec" do buňky B1.
Krok 6: Klikněte na tlačítko" zavřít Editor VBA " v pravém horním rohu okna VBA. Vraťte se do Excelu.
Krok 7: Nyní můžete spustit svůj VBA kód a přidat nový sloupec. Chcete-li to provést, přejděte na kartu Vývojář, klikněte na tlačítko makro a vyberte makro, které jste vytvořili, "AddNewColumn". Klikněte na tlačítko Spustit a do tabulky bude přidán nový sloupec.
To je všechno! Nyní víte, jak přidat sloupec pomocí aplikace VBA Excel. Pomocí VBA můžete v Excelu automatizovat mnoho úkolů, což vám pomůže ušetřit čas a zefektivnit vaši práci.
Krok 1: Otevřete VBA editor v Excelu
Než začnete přidávat sloupec do VBA Excelu, musíte otevřít Editor VBA v samotném Excelu. To nám umožní vytvářet a upravovat makra.
Chcete-li to provést, postupujte takto:
- Otevřete Excel a otevřete soubor, který chcete.
- Stiskněte současně" ALT "a" F11 " na klávesnici. Tím se otevře editor VBA Excel.
- Otevře se okno "Microsoft Visual Basic for Applications", které poskytuje nástroje pro psaní a úpravu kódu VBA.
- Na levé straně okna je "Project Explorer", kde můžete vybrat aktuální projekt, který chcete spustit.
- Kliknutím na něj vyberte list, do kterého chcete sloupec přidat.
- Po výběru listu můžete začít vytvářet a upravovat makra pro přidání sloupce a provádění dalších operací v Excelu.
Nyní, když máte otevřený editor VBA Excel, můžete začít dalším krokem - vytvořením makra pro přidání sloupce do tabulky Excel.
Krok 2: Vyberte požadovaný list
Po otevření souboru Excel v VBA musíte vybrat požadovaný list, na kterém se bude sloupec přidávat. K tomu lze použít objekt Workbook a metodu Sheets.
Příklad kódu pro výběr listu:
| Kód | Popis |
|---|---|
| Dim ws As Worksheet | Oznámení proměnné pro list |
| Set ws = ThisWorkbook.Sheets ("název listu") | Výběr listu podle jeho jména |
| Set ws = ThisWorkbook.Sheets(1) | Výběr listu podle jeho indexu (číslování od 1) |
Po výběru požadovaného listu můžete přejít k dalšímu kroku-přidání sloupce.
Krok 3: Přidejte nový sloupec
Chcete-li přidat nový sloupec do tabulky VBA Excel, postupujte podle těchto pokynů:
- Vyberte buňku nebo sloupec, hned za kterým chcete vložit nový sloupec.
- Otevřete režim úprav buňky stisknutím klávesy " F2 " na klávesnici nebo poklepáním na buňku.
- Zadejte vzorec "=COLUMN ()+1" pro výpočet čísla nového sloupce. Stisknutím klávesy "Enter" použijete tento vzorec.
- Vyberte buňku s číslem nového sloupce a zkopírujte ji do schránky.
- Zvýrazněte buňky ve sloupci, které jsou napravo od nového sloupce, a klikněte na pravé tlačítko myši. V kontextové nabídce vyberte Vložit.
- Vyberte možnost posun buněk doprava a klikněte na OK.
- Vyberte buňku s číslem nového sloupce a vložte hodnotu ze schránky stisknutím pravého tlačítka myši a výběrem možnosti Vložit hodnoty.
Nyní máte nový sloupec v tabulce VBA Excel!
Popis procesu přidávání sloupce do aplikace VBA Excel
- Otevřete program Microsoft Excel a vyberte list, do kterého chcete sloupec přidat.
- Vyhledejte nabídku Vývojář v horním panelu a klikněte na ni pravým tlačítkem. V kontextové nabídce, která se otevře, vyberte možnost " Vložit "a v rozevírací podnabídce vyberte typ sloupce, který chcete (například" datum "nebo"text").
- Po výběru typu sloupce bude přidán nový prázdný sloupec vlevo nebo vpravo od aktuální polohy kurzoru.
- Chcete-li přidat data do nového sloupce, začněte psát do první buňky nového sloupce. Excel jej automaticky rozšíří do všech potřebných buněk.
- Pokud potřebujete zadat vzorec do nového sloupce, vyberte první buňku nového sloupce a zadejte požadovaný vzorec pomocí syntaxe VBA Excel. Po zadání stiskněte klávesu Enter pro aplikaci vzorce na celý sloupec.
To je všechno! Nyní víte, jak přidat sloupec do VBA Excelu. Tento proces je velmi jednoduchý a zabere jen několik minut.
Krok 4: zadejte místo pro nový sloupec
Chcete-li přidat nový sloupec do tabulky, musíte zadat místo, kam má být umístěn. K tomu lze použít metody a vlastnosti objektu Range .
Nejprve je třeba určit rozsah, ve kterém bude sloupec přidán. Můžete si vybrat libovolný rozsah, včetně jedné nebo více buněk. Pokud například chcete přidat nový sloupec napravo od stávajících dat, vyberte poslední vyplněný sloupec v tabulce.
Dalším krokem je použití metody EntireColumn.Insert pro vložení nového sloupce. Tato metoda vloží prázdný sloupec na dané místo posunutím všech stávajících sloupců doprava. Například:
Sub AddColumn()Dim rng As Range' Указываем диапазон для колонкиSet rng = Range("A1")' Используем метод EntireColumn.Insert для вставки новой колонкиrng.EntireColumn.InsertEnd SubV tomto příkladu bude sloupec vložen před buňku A1 v tabulce. Tento rozsah můžete změnit, jak chcete, v závislosti na potřebách vaší tabulky.
Nyní, když jste zadali místo pro nový sloupec, přejděte k dalšímu kroku - přidání dat do nového sloupce.