Excel VBA -rivirivi

Koska tässä sanassa on kaksi asiaa, toinen on VBA ja toinen on Lisää rivi. Selitän tässä, kuinka rivi lisätään Exceliin VBA: n (Visual Basic for Applications) avulla.

VBA - Se on ohjelmointikieli niille, jotka työskentelevät Excelissä ja muissa Office-ohjelmissa, joten Excelissä tehtävät voidaan automatisoida kirjoittamalla ns. Makroja. VBA-koodausta käyttämällä pystymme suorittamaan melkein kaikki Excelissä suoritetut tehtävät kopioimalla, liittämällä, poistamalla jne.

Lisää rivi - Sitä käytetään rivin lisäämiseen Exceliin toisen rivin väliin automatisoinnin avulla, ts. Yhdellä napsautuksella.

Oletetaan, että annamme työntekijöiden tiedot Excel-tiedostossa ja olemme ohittaneet osan työntekijöistä ja haluamme lisätä puuttuvien yksityiskohdat väliin, joten meidän on luotava välilyönti ja lisättävä rivi heidän yksityiskohtiensa syöttämistä varten. Rivin lisäämisen sijasta voimme automatisoida rivien lisäämisen VBA: lla ja makrojen luomisen.

Voimme lisätä rivejä VBA-koodauksella monella tapaa. VBA: n rivin lisäämiseen käytetty toiminto on:

Alue (). Rivi (). EntireRow.Insert

Oletetaan, että meillä on tietojoukko, joka koostuu sarakkeista, kuten asiakkaan nimi, tuote, myynti, määrä, toimituskulut, tilauksen prioriteetti.

Oletetaan, että meidän täytyy siirtää sarakkeita alaspäin lisätäksesi uuden 3 rivin välille 3 - 4 uuden puuttuvan tietueen lisäämiseksi. Sen sijaan, että lisättäisiin rivi kerrallaan, automatisoimme tämän lisätäksesi kaikki 3 riviä yhdellä napsautuksella.

Kuinka lisätä rivejä Excel VBA: han?

Alla on erilaisia ​​esimerkkejä rivien lisäämisestä Exceliin VBA-koodilla.

Voit ladata tämän VBA Insert Row Excel -mallin tästä - VBA Insert Row Excel Template

Esimerkki 1 - Koko rivin käyttäminen

Lisää seuraavat rivit exceliin VBA-koodilla noudattamalla seuraavia ohjeita.

Vaihe 1: Makron luomiseksi meidän on valittava Kehittäjä-välilehti.

Vaihe 2: Kun Kehittäjä-välilehti avautuu, aseta painike Ohjaimet-ryhmästä. Napsauta Lisää ja valitse ensimmäinen vaihtoehto ActiveX-ohjaimista. Kuten näet komentopainikkeen .

Vaihe 3: Vedä nuolta mihin tahansa soluun luodaksesi komentopainikkeen.

Vaihe 4: Lisäystoiminnon siirtäminen Napsauta hiiren kakkospainikkeella Komento-painiketta, ts. Lisää 3 riviä ja napsauta Näytä koodi.

Vaihe 5: Kun napsautat Näytä-koodia, seuraava koodi tulee näkyviin.

Koodi:

 Yksityinen alikomento Button1_Click () End Sub

Vaihe 6: Meidän on kirjoitettava INSERT ROW -koodimme. Kuten aiemmin mainittiin, meidän on käytettävä Rows.EntireRow-toimintoa RBA: n kanssa VBA: ssa. Tähän koodiin meidän on lisättävä 3 kolmannen ja neljännen välillä.

Koodi:

 Yksityinen alikomento Button1_Click () Range ("A3"). Rivit ("3: 5"). EntireRow.Insert End Sub

Yllä olevassa koodirivissä A3 on sarake, johon meidän on lisättävä rivi ja Rivit (3: 5), jos meidän on lisättävä 3 uutta riviä.

Vaihe 7: Suorita koodi napsauttamalla Lisää 3 rivin komentopainiketta.

Esimerkki 2 - Rivinumeroiden käyttäminen

Samoin kirjoitamme koodin lisätäksesi 2 riviä yhdellä napin painalluksella.

Tässä meidän on mainittava rivi aloitusriviltä loppuun rivinumerolla käyttämällä RANGE ja sen jälkeen INSERT, joka lisää rivit.

Koodi:

 Yksityinen alikomento Button2_Click () Range ("3: 4"). Lisää End Sub

Napsauttamalla painiketta “Lisää 2 riviä” näemme, että 2 riviä on lisätty 3. ja 4. rivin väliin.

Samoin voimme mukauttaa toimintoamme lisätäksesi niin monta riviä kuin pystymme.

Esimerkki 3 - Aktiivisen solun käyttäminen

Aktiivisella solulla tarkoitetaan tällä hetkellä valittua solua. Käytä aktiivista solua rivien lisäämiseen. Oletetaan, että olemme solussa B3 ja haluamme lisätä solun sen yläpuolelle, käytämme aktiivista soluominaisuutta. Käytämme seuraavaa koodia aktiiviseen soluun.

Koodi:

 Yksityinen alikomento Button3_Click () ActiveCell.EntireRow.Insert End Sub

Napsauttamalla painiketta “Aktiivinen soluominaisuus” näemme, että yksi solu on lisätty valitun solun yläpuolelle. Yllä olevassa olemme valinneet B5: n ja alla näemme, että yksi rivi on lisätty sen yläpuolelle.

Esimerkki 4 - Aktiivisen solun käyttö siirtymän kanssa

Oletetaan, että haluamme lisätä rivin 3 rivin jälkeen aktiivisesta solusta, tähän käytämme OFFSET-toimintoa. Oletetaan, että olemme solussa B4 ja meidän on lisättävä rivi 2 rivin jälkeen, käytämme tätä koodia.

Koodi:

 Yksityinen alikomento Button4_Click () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub

Kun napsautamme painiketta “Active Cell with Offset”, yksi rivi lisätään kohtaan B6.

Muistettavat asiat

  • Sitä käytetään rivien lisäämiseen Exceliin automatisoimalla se.
  • VBA-lisäysriviä käytetään VBA-objektin RANGE-objektin kanssa.
  • Ota ”Enable all Macros” käyttöön makroasetuksissa ennen työskentelyä.

Suositellut artikkelit

Tämä on opas VBA-lisäysriviin. Tässä keskustellaan siitä, miten Rivi lisätään Exceliin käyttämällä VBA-koodia yhdessä käytännön esimerkkien ja ladattavan Excel-mallin kanssa. Voit myös katsoa seuraavia artikkeleita saadaksesi lisätietoja -

  1. Esimerkkejä VBA GetObject -toiminnosta
  2. Excel Lisää useita rivejä (Excel-malli)
  3. Kuinka käyttää VBA StrConv -toimintoa?
  4. Opas Excel-lisäysrivin pikavalintaan

Luokka:

VBA