Uobičajeno u Excelovom radnom listu imamo dvije različite metode za dodavanje ili umetanje stupaca, jedan je tipkovni prečac, a drugi pomoću metode desnim klikom i umetanjem, ali u VBA moramo koristiti naredbu insert i cjelokupni stupac za dodavanje bilo kojeg stupca zajedno, trik je u tome da ako trebamo umetnuti jedan stupac dajemo referencu jednog stupca, ali za više stupaca dajemo više referenci stupaca.
Umetnite stupce u Excel koristeći VBA
Kao dio VBA koda, možda ćemo trebati umetnuti nekoliko stupaca u tablicu podataka kako bi odgovarali našim potrebama. Umetanje stupca jednostavna je tipka prečaca u radni list pritiskom na Ctrl +, ali kako bi bilo umetnuti novi stupac kroz VBA kôd. U ovom članku o "VBA umetnite stupac", prikazat ćemo vam postupak dodavanja stupaca u Excelu i prikazat će vam primjere različitih scenarija.
Kako umetnuti stupce u Excel radni list pomoću VBA?
U VBA možemo umetnuti stupce pomoću svojstva COLUMNS i RANGE objekta. Morate zašto nam trebaju stupci i objekti raspona za umetanje novog stupca.
Da bismo umetnuli novi stupac, moramo prepoznati nakon kojeg stupca moramo umetnuti, ne znajući, nakon kojeg stupca moramo umetnuti kako VBA može razumjeti logiku.
Na primjer, ako želite umetnuti stupac iza stupca B, tada možete konstruirati kod na ovaj način.
Stupci ("C")
Napomena: Razlog zašto sam upotrijebio C za umetanje stupca nakon što će odabrana ćelija biti pomaknuta na desnu stranu.
Nakon što se specificiraju stupci, trebamo pristupiti svojstvu "Cijeli stupac".
Stupci ("C"). Cijeli stupac
Zatim moramo odabrati metodu "Umetanje".
Stupci ("C"). Cijeli stupac.Umetni
Ovo će umetnuti stupac iza stupca C, a postojeći stupac C premjestit će se u D.
Primjer # 1 - Umetnite stupce pomoću objekta dometa u VBA
Sada, pogledajte način umetanja stupca pomoću objekta RANGE. Za to za primjer razmotrite podatke u nastavku.
Sada želim VBA umetnuti stupac nakon stupca A, slijedite korake u nastavku za konstrukciju koda.
Korak 1: Počnite s potprocedurom.
Korak 2: Otvorite objekt dometa .
Kodirati:
PodskupacInsert_Example1 () Raspon (Kraj pod
Korak 3: Sad spomenite stupac u dvostrukim navodnicima .
Kodirati:
PotkolonaInsert_Example1 () Raspon ("B: B") Kraj Pod
Korak 4: Sada odaberite svojstvo Cijeli stupac .
Kodirati:
PodkolonaInsert_Example1 () Raspon ("B: B"). Ent Kraj Sub
Korak 5: Nakon odabira svojstva Cijeli stupac odaberite metodu "Umetanje" .
Kodirati:
PodkolonaInsert_Example1 () Raspon ("B: B"). EntireColumn.ins End Sub
Sada vaš kod izgleda ovako.
Kodirati:
PodskupacInsert_Example1 () Raspon ("B: B"). Cijeli stupac.Insert Kraj pod
Pokrenite kod. Umetnut će novi stupac B.
Primjer # 2 - Umetnite više stupaca
Na primjer, ako želite umetnuti dva nova stupca nakon stupca A, tada moramo spomenuti dvije adrese stupaca.
Kodirati:
PodkolonaInsert_Example1 () Raspon ("B: C"). EntireColumn.Insert End Sub
Gornji kod umetnut će dva stupca iza stupca A.
Primjer # 3 - Samo s metodom "Umetni"
Novi stupac možemo umetnuti pomoću jedine metode "Umetni" bez pristupa svojstvu Cijeli stupac. Za ovo, shvatimo sintaksu metode "insert".
Expression.Insert ((Shift), (Copy Origin))
(Shift): Kada umetnemo novi stupac, trebamo li stupce pomaknuti na desnu stranu ili se pomaknuti na donju stranu u slučaju redaka. Ovdje možemo koristiti dvije mogućnosti, "xlToRight" i "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) .Odaberite za k = 2 do 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Odaberite Next k End Sub
Ovo će umetnuti ovakav stupac.
Primjer # 6 - Umetnite stupac na temelju vrijednosti ćelije
Također možemo umetnuti stupac na temelju vrijednosti ćelije. Na primjer, pogledajte podatke u nastavku.
Ovdje želim umetnuti stupac ako je vrijednost ćelije prvog reda "Godina", a moji bi se podaci trebali svidjeti nakon umetanja novih stupaca.
Za izvršavanje ovog zadatka upotrijebite donji kod.
Kodirati:
Sub ColumnInsert_Example4 () Dim k As Integer Dim x As Integer x = 2 Za k = 2 do 12 If Cells (1, x) .Value = "Year" then Cells (1, x) .EntireColumn.Insert x = x + 1 Kraj Ako je x = x + 1 Sljedeće k Kraj Sub
Ovdje možete preuzeti ovaj VBA Insert Columns Excel. VBA umetanje stupaca u Excel predložak
