Excel VBA veerg

Kui tahame veeru sisestada, on selle tegemiseks mitu võimalust. Saame klõpsata paremale ja valida rippmenüüloendist Lisa veerg või kasutades klahve Ctrl + Shift + Plus (+). Aga mis siis, kui automatiseerime ka selle protsessi, luues makro VBA kaudu? See on üsna kasulik, kui töötame tohutu kodeerimisstruktuuri makro loomisel või veeru või mitme veeru lisamisel, mis on ka ülesanne. VBA-l on kogu veerg ja uue veeru sisestamiseks kasutatakse funktsiooni Lisamine.

Kuidas sisestada veerg Excel VBA-s?

Õpime, kuidas veergu Excelisse sisestada, kasutades VBA-koodi, koos mõne näitega.

Selle VBA sisestusveeru Exceli malli saate alla laadida siit - VBA sisestusveeru Exceli mall

Näide nr 1 - VBA insert-veerg

Meil on tabel 2 veergu ja 11 rida, nagu allpool näidatud. Nüüd automatiseerime veergude sisestamise protsessi erineval viisil.

Selleks toimige järgmiselt.

1. samm: sisestage esmalt uus moodul VBA-s menüüst Lisa, nagu allpool näidatud.

2. samm: alustage alamkategooriat teostatud funktsiooni nimega, näiteks VBA lisamiskolonn või mõne muu nimega, nagu allpool näidatud.

Kood:

 Alam VBACveerg1 () lõpp alam

3. samm: kõigepealt valige lahtrite vahemik või täielikud veerud, kuhu tahame veeru sisestada, millele järgneb käsk Lisa, nagu allpool näidatud. Sisestuskäsk võimaldab sisestada valitud vahemiku veergu või lahtrisse rea või veeru või lahtri.

Kood:

 Alam-VBAC-veerg1 () vahemik ("B: B"). Sisestage lõpp-alam

4. samm: valige nüüd lahtrite vahemik võrdluspunktiks, kust tahame veeru sisestada, nagu allpool näidatud.

Kood:

 Alam VBACkolonn1 () vahemik ("B: B"). Sisestage vahemik ("B4") Lõpp alam

5. samm : Nagu selgituses selgitatud, kasutame funktsiooni Lisamine kogu veergu, nagu allpool näidatud. See võimaldab veeru sisestada.

Kood:

 Alam VBAC-veerg1 () vahemik ("B: B"). Sisestage vahemik ("B4"). EntireColumn.Lisa lõpp

6. samm: Nüüd kompileerige kood, vajutades funktsiooniklahvi F8 ja klõpsake siis nuppu Esita, et käivitada täielik kood, mis asub allpool toodud menüüriba all. Märkame veeru 1 ja veeru 2 vahel, kaks uut tühja veergu sisestatakse nagu allpool näidatud.

Näide nr 2 - VBA insert-veerg

Veeru sisestamiseks on veel üks meetod. See meetod hõlmab mitmesuguste käskude kombinatsiooni.

1. samm: sisestage menüüst Lisa uus moodul.

2. samm: ja kirjutage alamkategooria teostatava funktsiooni nimele, nagu allpool näidatud, või mõnele muule nimele.

Kood:

 Alam VBACkolonn2 () lõpp alam

3. samm: määrake suvalise tähestiku või nimega muutuja DIM abil vahemik, öelge veerg, nagu allpool näidatud.

Kood:

 Alam VBACkolonn2 () Tuhmi veerg vahemikuna lõpp alam

4. samm. Järgides nüüd vahemikku, kasutage funktsiooni Määra, millel on määratletud mõõtmega veerg, nagu allpool näidatud, millele järgneb võrdusmärk (“=”).

Kood:

 Sub VBAColumn2 () Tuhmi veerg vahemikuna: määra veerg = Lõpeta alam

5. samm: kasutage nüüd funktsiooni Rakendus, mis on sisseehitatud VBA ja milles on määratletud täielik B-veerg.

Kood:

 Alam VBAColumn2 () summutab samba vahemikuna: määra veerg = rakendus.Range ("B: B") End Sub

6. samm: kasutage nüüd funktsiooni Lisamine veergu muutuja, nagu allpool näidatud.

Kood:

 Alam VBACkolonn2 () Tuhmi veerg vahemikuna: määra veerg = rakendus.Range ("B: B") veerg.Lisa alamkamber

7. samm: käsu Shift abil saame nihutada veeru sisestamise paremale või vasakule. Tavaliselt sisestatakse veerg alati paremas suunas alati valitud lahtrist või veerust.

Kood:

 Alam VBACkolonn2 () Tühjenda veerg vahemikuna: määra veerg = Rakendus.Range ("B: B") veerg.Lisa vahetus: = xlShiftToRight, Lõpeta alam

8. samm: valige lõpuks paremalt või altpoolt päritolu viitevorming, mis on veeru või rea jaoks sõltuvalt sisetüübi tüübist.

Kood:

 Alam VBACkolonn2 () Tuhmi veerg vahemikuna: Määrake veerg = Rakendus.Range ("B: B") veerg.Lisa vahetus: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

9. samm: nüüd on see lõpule viidud. Saame koodi kompileerida ja seda käivitada. Näeme uut veergu 1. veeru ja 2. veeru vahel, nagu allpool näidatud.

Näide nr 3 - VBA insert-veerg

See näide on veel üks lihtsaim viis veeru sisestamiseks VBA-s.

1. samm: sisestage uus moodul

2. samm: lisage alamkategooria VBA sisestamise veeru nimele, nagu allpool näidatud.

Kood:

 Alam VBACkolonn3 () lõpp alam

3. samm: Valige esmalt veeru või lahtri viide, kuhu me veeru lisada soovite, nagu allpool näidatud.

Kood:

 Sub VBAColumn3 () veerud ("B: B"). Valige End Sub

4. samm: kasutage teisel real käsku Valik ja funktsiooni Lisamine, nagu allpool näidatud.

Kood:

 Alam VBACkolonn3 () veerud ("B: B"). Valige Selection.Insert End Sub

5. samm: lõpuks valige funktsiooni Shift abil positsioon, kuhu tahame sisestatud uut veergu paremale või vasakule nihutada. Uue veeru paigutamise valik on inimese enda tehtud.

Kood:

 Alam VBACkolonn3 () veerud ("B: B"). Valige Valik.Sisesta vahetüüp: = xlToRight End Sub

6. samm: see täidab meie koodi. Nüüd saame koodi kompileerida, et leida tõrkeid. Kui viga ei leitud, käivitage kood. Näeme, et 1. ja 2. veeru vahele lisatakse uus veerg, nagu allpool näidatud.

Näide 4 - VBA insert-veerg

Selles näites õpime, kuidas lisada uusi veerge iga juba seisva veeru järele.

1. samm: sisestage moodul sisestusmenüüst.

2. samm: pärast seda lisage alamkategooria VBA lisamiskolonnile numbrijadaga.

Kood:

 Alam VBACveerg4 () lõpp alam

3. samm: kasutage suvalise nime muutuja määratlemiseks DIM-i. Oleme veergu kasutanud täisarvuna (kui kasutatakse numbreid)

Kood:

 Alam VBACkolonn4 () Tuhmi veerg täisarvuna Lõpp-alam

4. samm: veergu pärast iga seisvat täidetud veergu valime uue veeru lisamiseks veeru (2) ja kasutame seda allpool näidatud viisil.

Kood:

 Alam VBACkolonn4 () Tuhmi veerg täisarvu veergudena (2) .Valige lõpp alam

5. samm: avage For-Next silmus, kus kirjutame veeru sisestamise tingimused üksteise järel, nagu näidatud.

Kood:

 Alam VBACkolonn4 () Tuhmi veerg täisarvu veergudena (2) .Vali järgmise lõpu alamvalimiseks

6. samm: kuna meie prooviandmetes on ainult 2 veergu, võiksime lisada ainult nendest veergudest ainult uue veeru. Seega kasutame järjestusveergude vahemikku 0 kuni 2.

Kood:

 Alam VBACkolonn4 () Tuhmi veerg täisarvu veergudena (2) .Vali veeru jaoks = 0 kuni 2 Järgmine lõpp Alam

7. samm: kasutage funktsiooni ActiveCell abil sisestamiseks EntireColumn, nagu allpool näidatud.

Kood:

 Alam VBACkolonn4 () Tuhmi veerg täisarvu veergudena (2) .Vali veerg = 0 kuni 2 ActiveCell.EntireColumn.Lisa järgmine lõpp Alam

8. samm. Funktsiooni ActiveCell abil lisage äsja lisatud veerg Offset. Kasutame 0. ja 2. positsiooni.

Kood:

 Alam VBACkolonn4 () Tühjenda veerg täisarvu veergudena (2) .Vali veerg = 0 kuni 2 ActiveCell.EntireColumn.Lisa ActiveCell.Offset (0, 2) .Vali järgmine alamvalik

9. samm: kui viga ei leitud, siis kompileerige kood ja käivitage see. Pärast 1. ja 2. veergu näeme uusi veerge.

Plussi veerus Excel VBA sisestamine

  • See on kasulik, kui lisate kiiresti uue veeru mis tahes lahtritesse.
  • Seda on lihtne rakendada, isegi kui koodi struktuur on tohutu.
  • Kui töötame hiiglasliku koodi kallal, on vaja koodi täiendada uue veeru järgi, kasutades ülaltoodud näiteid hõlpsaks.

Asjad, mida meeles pidada

  • Kui kasutate näidet 4, pidage meeles veeruvahemiku valimist, kuni tabel on kohaldatav.
  • Kui salvestate faili makro, saate Exceli salvestada.
  • Sisestage ainult rakendatavad ja nõutavad veerud, et mitte lisada vajalikke veerge.

Soovitatavad artiklid

See on juhend VBA veeru sisestamiseks. Siin arutleme, kuidas sisestada veerg Excelisse, kasutades VBA-koodi, koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA VLOOKUP funktsioon
  2. DCOUNT funktsioon Excelis
  3. VBA koopiapasta
  4. KOMBIN-funktsioon Excelis

Kategooria:

VBA