Excel VBA -sarakke

Erinomaisesti, jos haluamme lisätä sarakkeen, niin on olemassa useita tapoja. Voimme napsauttaa oikealle ja valita Lisää sarake avattavasta valikkoluettelosta tai käyttämällä Ctrl + Shift + Plus (+) -näppäimiä yhdessä. Mutta entä jos automatisoimme myös tämän prosessin luomalla makron VBA: n kautta? Tämä on varsin hyödyllistä, kun työskentelemme luotaessa valtavan koodausrakenteen makro tai lisäämällä sarake tai useita sarakkeita, mikä on myös tehtävä tehtävä. VBA: lla on Koko sarake ja Lisää-toimintoa käytetään uuden sarakkeen lisäämiseen.

Kuinka lisätä sarake Excel VBA: han?

Opimme lisäämään sarakkeen exceliin VBA-koodilla muutamalla esimerkillä.

Voit ladata tämän VBA-lisäyssarakkeen Excel -mallin täältä - VBA-lisäyssarakkeen Excel-mallin

Esimerkki 1 - VBA-lisäyssarake

Meillä on taulukko 2 saraketta ja 11 riviä alla esitetyllä tavalla. Nyt automatisoimme sarakkeiden lisäämisprosessin eri tavoin.

Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Aseta uusi moduuli ensin VBA: han Aseta-valikon vaihtoehdosta kuten alla.

Vaihe 2: Aloita nyt alaluokka suoritetun toiminnon nimessä, kuten VBA Insert Sarake tai mikä tahansa muu nimi alla olevan kuvan mukaisesti.

Koodi:

 Ala VBACsarake1 () Loppu alaosa

Vaihe 3: Valitse ensin solualue tai täydelliset sarakkeet, joihin haluamme lisätä sarakkeen, jota seuraa Lisää-komento alla olevan kuvan mukaisesti. Lisää-komento mahdollistaa minkä tahansa rivin tai sarakkeen tai solun lisäämisen valittuun Range-sarakkeeseen tai -soluun.

Koodi:

 Sub VBACsarakkeen1 () alue ("B: B") .Lisää alaosa

Vaihe 4: Valitse nyt solualue viitteeksi, mihin haluamme lisätä sarakkeen, kuten alla on esitetty.

Koodi:

 Sub VBACsarakkeen1 () alue ("B: B"). Lisää alue ("B4") loppu alaosaan

Vaihe 5 : Kuten selityksessä kerrotaan, käytämme Koko saraketta lisäystoiminnolla alla olevan kuvan mukaisesti. Tämän avulla pylväs voidaan lisätä.

Koodi:

 Sub VBACsarakkeen1 () alue ("B: B"). Lisää alue ("B4"). Koko sarake.Lisää alaosa

Vaihe 6: Käännä koodi nyt painamalla F8-toimintonäppäintä ja napsauta sitten Toista-painiketta suorittaaksesi koko koodi, joka on valikkopalkin alla, kuten alla on osoitettu. Huomaa sarakkeen 1 ja sarakkeen 2 välissä, että kaksi uutta tyhjää saraketta lisätään alla olevan kuvan mukaisesti.

Esimerkki 2 - VBA-lisäyssarake

On toinen tapa lisätä sarake. Tämä menetelmä sisältää yhdistelmän eri komentoja.

Vaihe 1: Lisää uusi moduuli Lisää-valikosta.

Vaihe 2: Ja kirjoita alaluokka Suoritetun toiminnon nimeen alla olevan kuvan mukaisesti tai mille tahansa muulle nimelle.

Koodi:

 Sub VBACkolumn2 () loppu Sub

Vaihe 3: Määritä mittasuuremuuttujan DIM avulla missä tahansa aakkosessa tai nimessä aluealueeksi, sano sarakkeessa alla oleva kuva.

Koodi:

 Sub VBAColumn2 () himmentävä sarake aluealueen lopuna alaosa

Vaihe 4: Nyt seuraa aluealuetta, käytä Set-toimintoa, jolla on määritelty mittapylväs, kuten alla on esitetty, jota seuraa yhtäläisyysmerkki (“=”).

Koodi:

 Sub VBAColumn2 () himmentää saraketta asteikkona: Aseta sarake = Lopeta alaosa

Vaihe 5: Käytä nyt sovellustoimintoa, joka on sisäänrakennettu VBA, jossa on määritelty koko sarakkeen B alue.

Koodi:

 Sub VBAColumn2 () himmentää saraketta asteikkona: Aseta sarake = Application.Range ("B: B") End Sub

Vaihe 6: Käytä nyt Sarakemuuttujaa Lisää-toiminnolla alla olevan kuvan mukaisesti.

Koodi:

 Sub VBAColumn2 () himmentävä sarake asteikkona: Aseta sarake = Application.Range ("B: B") sarake.Lisää alaosa

Vaihe 7: Voimme siirtyä lisätäksesi sarakkeen oikealle tai vasemmalle suunnassa Vaihto-komennon avulla. Normaalisti sarake lisätään oikeaan suuntaan aina valitusta referenssisolusta tai -sarakkeesta.

Koodi:

 Sub VBAColumn2 () himmentävä sarake asteikkona: Aseta sarake = Sovellus.Range ("B: B") sarake.Lisää vaihto: = xlShiftToRight, Lopeta alaosa

Vaihe 8: Valitse vihdoin alkuperämerkinnän muoto oikealta tai alapuolelta, joka on sarakkeelle tai riville, insertin tyypistä riippuen.

Koodi:

 Sub VBAColumn2 () himmentävä sarake asteikkona: Aseta sarake = Sovellus.Valitse ("B: B") -sarake.Lisää vaihto: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Vaihe 9: Nyt se on valmis. Voimme koota koodin ja käyttää sitä. Näemme uuden sarakkeen Sarakkeen 1 ja Sarakkeen 2 väliin lisätään alla olevan kuvan mukaisesti.

Esimerkki 3 - VBA-lisäyssarake

Tämä esimerkki on toinen helpoin tapa lisätä sarake VBA: han.

Vaihe 1: Aseta uusi moduuli

Vaihe 2: Lisää alaluokka VBA-lisäyssarakkeen nimeen alla olevan kuvan mukaisesti.

Koodi:

 Ala VBACsarake3 () Loppu alaosa

Vaihe 3: Valitse ensin sarake tai soluviite, johon haluamme lisätä sarakkeen Valitse-toiminnon avulla, kuten alla.

Koodi:

 Sub VBAColumn3 () -sarakkeet ("B: B"). Valitse End Sub

Vaihe 4: Käytä toisella rivillä Valinta-komentoa ja Lisää-toimintoa alla olevan kuvan mukaisesti.

Koodi:

 Sub VBAColumn3 () -sarakkeet ("B: B"). Valitse Valinta.Lisää alaosa

Vaihe 5: Valitse viimein kohta, johon haluamme siirtää lisätyn uuden sarakkeen joko oikealle tai vasemmalle Vaihto-toiminnon avulla. Uuden sarakkeen sijoittaminen on yksilön vaatimusten mukainen.

Koodi:

 Sub VBAColumn3 () -sarakkeet ("B: B"). Valitse Selection.Insert Shift: = xlToRight End Sub

Vaihe 6: Tämä täydentää koodiamme. Nyt voimme koota koodin löytääksemme virheitä. Jos virhettä ei löydy, suorita koodi. Näemme uuden sarakkeen lisäämisen sarakkeen 1 ja sarakkeen 2 väliin, kuten alla on esitetty.

Esimerkki 4 - VBA-lisäyssarake

Tässä esimerkissä opimme lisäämään uusia sarakkeita jo jokaisen seisovan sarakkeen jälkeen.

Vaihe 1: Lisää nyt moduuli lisäysvalikosta.

Vaihe 2: Lisää sen jälkeen alaluokka VBA-lisäyssarakkeen nimeen numerosekvenssillä.

Koodi:

 Ala VBACsarake4 () Loppu alaosa

Vaihe 3: Määritä muuttuja mihin tahansa nimeen DIM: n avulla. Olemme käyttäneet saraketta kokonaislukuna (jos käytetään numeroita)

Koodi:

 Sub VBAColumn4 () himmentävä sarake kokonaislukuna Loppu alaosaan

Vaihe 4: Sarakkeeseen jokaisen seisovan täytetyn sarakkeen jälkeen valitsemme ja lisäämme uuden sarakkeen käyttämällä saraketta (2) alla olevan kuvan mukaisesti.

Koodi:

 Sub VBAColumn4 () himmentävä sarake kokonaislukuina (2) .Valitse End Sub

Vaihe 5: Avaa For-Next-silmukka, jossa kirjoitamme ehdot sarakkeen lisäämiselle peräkkäin kuvan osoittamalla tavalla.

Koodi:

 Sub VBACsarake4 () himmentävä sarake kokonaislukuina (2) .Valitse seuraavalle loppua

Vaihe 6: Koska meillä on vain 2 saraketta mallitiedoissamme, voisimme lisätä vain uuden sarakkeen vain näistä sarakkeista. Joten käytämme 0 - 2 sarjaa sekvenssisarakkeita.

Koodi:

 Sub VBACsarake4 () himmentävä sarake kokonaislukuisina sarakkeina (2) .Valitse Kolumni = 0 - 2 Seuraava loppu Sub

Vaihe 7: Aseta ActiveCell-toiminnon avulla EntireColumn lisätäksesi alla olevan kuvan mukaisesti.

Koodi:

 Sub VBAColumn4 () himmentävä sarake kokonaislukuisina sarakkeina (2) .Valitse Sarake = 0 - 2 ActiveCell.EntireColumn.Lisä seuraava loppu Sub

Vaihe 8: Aseta äskettäin lisätty sarake Offset-toiminnolla ActiveCell-toiminnon avulla. Käytämme 0 ja 2. sijaintia.

Koodi:

 Sub VBAColumn4 () himmentävä sarake kokonaislukuisina sarakkeina (2) .Valitse Kolumni = 0 - 2 ActiveCell.EntireColumn.Lisää ActiveCell.Offset (0, 2) .Valitse Seuraava loppu alaosa

Vaihe 9: Käännä nyt koodi ja suorita se, jos virhettä ei löydy. Näemme sarakkeen 1 ja sarakkeen 2 jälkeen uusia sarakkeita.

Plussat Excel VBA -sarakkeesta

  • Se on hyödyllistä, kun lisäät nopeasti uuden sarakkeen mihin tahansa solualueeseen.
  • Se on helppo toteuttaa, vaikka koodin rakenne olisi valtava.
  • Jos työskentelemme valtavan koodin parissa, uudesta sarakkeesta tulee tarpeen täydentää koodi, yllä olevien esimerkkien avulla tehtävä on helppo.

Muistettavat asiat

  • Jos käytät esimerkkiä 4, muista valita sarakealue, kunnes taulukko on sovellettavissa.
  • Kun tiedosto tallennetaan makroon, Excel otetaan käyttöön, koodi tallennetaan.
  • Lisää vain soveltuvat ja vaadittavat sarakkeet, jotta vältetään tarpeettomat sarakkeet.

Suositellut artikkelit

Tämä on opas VBA-lisäyssarakkeeseen. Tässä keskustellaan siitä, kuinka lisätä sarake Excel-tiedostoon käyttämällä VBA-koodia, sekä käytännön esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA VLOOKUP -toiminto
  2. DCOUNT-funktio Excelissä
  3. VBA-kopiointi
  4. COMBIN-toiminto Excelissä

Luokka:

VBA