Tavaliselt on Exceli töölehel meil veergude lisamiseks või sisestamiseks kaks erinevat meetodit, millest üks on klaviatuuri otsetee ja teine, kasutades paremklõpsamise ja sisestamise meetodit, kuid VBA-s peame veeru koos lisamiseks kasutama käsku insert ja kogu veerulauset, Selle trikk on see, et kui peame sisestama ühe veeru, anname ühe veeru viite, kuid mitme veeru puhul mitu veergu.
Lisage VBA abil Exceli veerud
VBA-koodi osana peame oma vajadustele vastamiseks lisama mõned veerud oma andmelehele. Veeru sisestamine on töölehel lihtne kiirklahv, vajutades klahvikombinatsiooni Ctrl +, kuid kuidas oleks uue veeru sisestamiseks VBA-koodi kaudu. Selles artiklis „VBA veeru lisamine” tutvustame teile Excelis veergude lisamise protsessi ja näitame erinevaid stsenaariume.
Kuidas lisada VBA abil Exceli töölehte veerge?
VBA-sse saab veerge lisada, kasutades atribuuti COLUMNS ja objekti RANGE. Peate, miks vajame uue veeru sisestamiseks veerge ja vahemiku objekte.
Uue veeru lisamiseks peame tuvastama, millise veeru järele me peame lisama, ilma et peaksime lisama, kuidas VBA loogikast aru saab.
Näiteks kui soovite lisada veeru veeru B järele, saate selle koodi üles ehitada niimoodi.
Veerud (“C”)
Märkus. Põhjus, miks ma kasutasin veeru lisamiseks tähte C, kuna valitud lahter nihutatakse paremale küljele.
Pärast veergude täpsustamist peame juurde pääsema atribuudile „Kogu veerg“.
Veerud (“C”). EntireColumn
Siis peame valima meetodi "Sisesta".
Veerud (“C”). EntireColumn.Insert
See lisab veeru C veeru järele ja olemasolev veerg C teisaldatakse D-i.
Näide # 1 - lisage VBA-sse Range Object abil veerud
Nüüd vaadake veeru sisestamise viisi objekti RANGE abil. Selleks kaaluge näite saamiseks allpool toodud andmeid.
Nüüd tahan, et VBA sisestaks veeru veeru A järele, järgige koodi koostamiseks järgmisi samme.
1. samm: alustage alammenetlust.
2. samm: avage vahemiku objekt.
Kood:
Alamveerg Lisage_näide1 () vahemik (lõpp-alam
3. samm: mainige veergu nüüd jutumärkides .
Kood:
AlamveergSisesta_näide1 () vahemik ("B: B") Lõpp alam
4. samm: valige nüüd omadus Kogu veerg .
Kood:
Alamveerg Lisage_näide1 () vahemik ("B: B"). End End Sub
5. samm: pärast atribuudi Kogu veerg valimist valige meetod „Lisa” .
Kood:
Alamveerg Lisage_näide1 () vahemik ("B: B"). EntireColumn.ins End Sub
Nüüd näeb teie kood välja selline.
Kood:
AlamveergInsert_Example1 () Range ("B: B"). EntireColumn.Insert End Sub
Käivitage kood. See lisab uue veeru B.
Näide # 2 - sisestage mitu veergu
Näiteks kui soovite veeru A järele lisada kaks uut veergu, peame mainima kaks veeru aadressi.
Kood:
AlamveergInsert_Example1 () Range ("B: C"). EntireColumn.Insert End Sub
Ülaltoodud kood lisab veeru A järele kaks veergu.
Näide # 3 - ainult meetodi „Sisesta” abil
Uue veeru saab sisestada, kasutades ainsat meetodit „Sisesta”, ilma et pääseksime juurde atribuudile Kogu veerg. Selle jaoks mõistame meetodi "sisesta" süntaksit.
Väljend. Sisestage ((Tõstuklahv), (Kopeeri päritolu))
(Shift): Kui lisame uue veeru, kas veerud vajavad paremale küljele nihutamist või ridade korral nihutamist negatiivsele küljele. Siin saame kasutada kahte võimalust: "xlToRight" ja "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:
Alamveerg Sisesta_näide3 () Dim k täisarvu veergudena (2). Valige väärtus k = 2 kuni 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Valige Järgmine k End Sub
See lisab veeru niimoodi.
Näide # 6 - lisage veerg lahtri väärtuse põhjal
Samuti võime veeru sisestada ka lahtri väärtuse põhjal. Näiteks vaadake allolevaid andmeid.
Siia tahan veeru lisada, kui esimese rea lahtriväärtus on „Aasta” ja minu andmed peaksid pärast uute veergude sisestamist sellised olema.
Selle ülesande täitmiseks kasutage allolevat koodi.
Kood:
AlamveergIseta_näide4 () Mõõt k täisarvuna Dim x täisarvuna x = 2 k = 2 kuni 12 kui lahtrid (1, x). Väärtus = "Aasta", siis lahtrid (1, x). Sisestage veerg. Sisestage x = x + 1 Lõpp Kui x = x + 1 Järgmine k Lõpp alam
Selle VBA Insert Columns Exceli saate alla laadida siit. VBA lisage veergude Exceli mall
