Normálne v pracovnom hárku programu Excel máme dve rôzne metódy na pridanie alebo vloženie stĺpcov, z ktorých jedna je klávesová skratka a druhá pomocou metódy kliknutia pravým tlačidlom myši a vloženia, ale vo VBA musíme na vloženie ľubovoľného stĺpca použiť príkaz insert a celý príkaz stĺpca, Trik je v tom, že ak potrebujeme vložiť jeden stĺpec, dáme odkaz na jeden stĺpec, ale pre viac stĺpcov dáme viac odkazov na stĺpce.
Vložte stĺpce do programu Excel pomocou VBA
Ako súčasť kódu VBA možno budeme musieť do nášho údajového hárku vložiť niekoľko stĺpcov, aby vyhovovali našim potrebám. Vloženie stĺpca je ľahká klávesová skratka v hárku stlačením Ctrl +, ale čo tak vložiť nový stĺpec pomocou kódu VBA. V tomto článku s názvom „VBA Vložiť stĺpec“ si ukážeme postup pridávania stĺpcov v programe Excel a ukážeme vám rôzne príklady scenárov.
Ako vkladať stĺpce do tabuľky programu Excel pomocou VBA?
Stĺpce môžeme vkladať do VBA pomocou vlastnosti COLUMNS a objektu RANGE. Musíte byť dôvod, prečo potrebujeme stĺpce a objekty rozsahu na vloženie nového stĺpca.
Ak chcete vložiť nový stĺpec, musíme zistiť, za ktorý stĺpec musíme vložiť, bez toho, aby ste povedali, za ktorý stĺpec musíme vložiť, ako VBA dokáže pochopiť logiku.
Napríklad ak chcete vložiť stĺpec za stĺpec B, môžete skonštruovať kód takto.
Stĺpce („C“)
Poznámka: Dôvod, prečo som použil C na vloženie stĺpca, pretože vybraná bunka bude posunutá na pravú stranu.
Po zadaní stĺpcov musíme získať prístup k vlastnosti „Celý stĺpec“.
Stĺpce („C“). Celý stĺpec
Potom musíme zvoliť metódu „Vložiť“.
Stĺpce („C“). EntireColumn.Insert
Týmto sa vloží stĺpec za stĺpec C a existujúci stĺpec C sa presunie do D.
Príklad č. 1 - Vkladanie stĺpcov pomocou rozsahu do VBA
Teraz sa pozrite na spôsob vloženia stĺpca pomocou objektu RANGE. Z tohto dôvodu uvádzame ako príklad nižšie uvedené údaje.
Teraz chcem VBA vložiť stĺpec za stĺpec A, vytvorte kód podľa nasledujúcich krokov.
Krok 1: Začnite vedľajšiu procedúru.
Krok 2: Otvorte objekt Range .
Kód:
Sub ColumnInsert_Example1 () Range (End Sub
Krok 3: Teraz uveďte stĺpec v úvodzovkách .
Kód:
Sub ColumnInsert_Example1 () Range ("B: B") End Sub
Krok 4: Teraz vyberte vlastnosť Celý stĺpec .
Kód:
Sub ColumnInsert_Example1 () Range ("B: B"). Ent End Sub
Krok 5: Po výbere vlastnosti Celý stĺpec zvoľte metódu „Vložiť“ .
Kód:
Sub ColumnInsert_Example1 () Range ("B: B"). EntireColumn.ins End Sub
Váš kód teraz vyzerá takto.
Kód:
Sub ColumnInsert_Example1 () Range ("B: B"). EntireColumn.Insert End Sub
Spustite kód. Vloží nový stĺpec B.
Príklad č. 2 - Vloženie viacerých stĺpcov
Napríklad, ak chcete vložiť dva nové stĺpce za stĺpec A, musíme spomenúť dve adresy stĺpcov.
Kód:
Sub ColumnInsert_Example1 () Range ("B: C"). EntireColumn.Insert End Sub
Vyššie uvedený kód vloží dva stĺpce za stĺpec A.
Príklad č. 3 - Iba pri metóde „Vložiť“
Nový stĺpec môžeme vložiť pomocou jedinej metódy „Vložiť“ bez prístupu k vlastnosti Celý stĺpec. Z tohto dôvodu pochopíme syntax metódy „insert“.
Výraz. Vložiť ((Shift), (Kopírovať pôvod))
(Shift): Keď vložíme nový stĺpec, či už potrebujeme, aby sa stĺpce posunuli na pravú stranu, alebo aby sa v prípade riadkov posunuli naopak. Tu môžeme použiť dve možnosti, „xlToRight“ a „xlDownTo“.
(Copy Origin): This will specify the format for the newly inserted column. Whether you need the format from the left side of the column or from the above cells. Here we can use two options “xlFormatFromLeftOrAbove” and “xlFormatFromRightOrBelow”.
Below is the example code for you.
Sub ColumnInsert_Example1() Range("B:B").Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove End Sub
Example #4 - Insert Columns Using COLUMNS Property in VBA
We have seen how to VBA insert columns using the RANGE object; now, we will show we can insert columns using the “COLUMNS” property.
Open the COLUMNS property.
Code:
Sub ColumnInsert_Example2() Columns( End Sub
We can specify the column in two ways here. One is using as usual alphabetic references, and another one is using column numbers.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
Sub ColumnInsert_Example3 () Dim k As Integer Columns (2). Select For k = 2 To 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Select Next k End Sub
Týmto sa vloží stĺpec takto.
Príklad č. 6 - Vložte stĺpec na základe hodnoty bunky
Môžeme tiež vložiť stĺpec na základe hodnoty bunky. Napríklad si pozrite nasledujúce údaje.
Tu chcem vložiť stĺpec, ak je hodnota bunky v prvom riadku „Rok“, a moje údaje by sa mali po vložení nových stĺpcov páčiť.
Na vykonanie tejto úlohy použite nasledujúci kód.
Kód:
Sub ColumnInsert_Example4 () Dim k As Integer Dim x as Integer x = 2 For k = 2 To 12 If Cells (1, x). Value = "Year" Then Cells (1, x) .EntireColumn.Insert x = x + 1 Koniec Ak x = x + 1 Ďalej k Koniec Sub
Tu si môžete stiahnuť VBA Vložiť stĺpce Excel tu. VBA Vložiť stĺpce Šablóna programu Excel
