Rea lisamine VBA-sse erineb mõnevõrra veeru lisamisest VBA-sse, veergudes kasutasime tervet veerumeetodit, kuid ridade sisestamiseks kasutasime töölehe meetodit käsu insert lisamiseks reale. Pakume ka reaviidet sinna, kuhu tahame lisada teine veergudega sarnane rida.
Sisestage rida VBA Exceli abil
Kõik VBA-kodeerimisega suurepäraselt saame teha kõik toimingud, mida teeme. Saame kopeerida, kleepida, kustutada ja VBA keele kaudu veel palju asju teha. „Rida lisamine” on üks sellistest meetoditest, mida teeme sageli Excelis. Selles artiklis näitame teile, kuidas sisestusrea meetodit VBA-s läbi viia.
Kuidas lisada rida Exceli VBA-s?
Allpool on toodud erinevad meetodid VBA kasutamiseks Excelis rea lisamiseks.
Meetod nr 1 - lisamismeetodi kasutamine
VBA-s peame rea sisestamiseks kasutama sarnast tehnikat, mida oleme Exceli töölehel kasutanud. VBA-s peame rea sisestamiseks kasutama vahemiku objekti.
Näiteks vaadake allolevat koodi.
Kood:
Sub InsertRow_Example1 () Range ("A1"). Sisestage End Sub
See kood liigub lahtrist A1 allapoole B1 ja sisestab ainsa lahtri.
See tekitab andmete töötlemisel nii palju probleeme. See viib nimetatud lahtri lihtsalt alla ja kõik muud seotud veerud jäävad samaks.
Meetod nr 2 - terve rea atribuudi kasutamine
Ülemine sisestusrida, saame tegelikult kasutada mitut meetodit. Allpool toodud meetodiga sisestatakse valitud lahtri kohale kogu rida.
Samm 1: Nimetatakse lahtri aadress esimesena.
Kood:
Sub InsertRow_Example2 () vahemik ("A1"). Lõpeta alam
2. samm: selle asemel, et lihtsalt kasutada, valige atribuut „ Kogu rida ”.
Kood:
Sub InsertRow_Example2 () vahemik ("A1"). EntireRow. Lõpeta alam
3. samm: pärast kogu rea atribuudile juurdepääsu kasutamist kasutage sisestusmeetodit .
Kood:
Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub
See lisab rea lahtri A1 kohale. Kuna A1 on esimene rida, liigub see lahtrist A1 allapoole B1.
Nagu ülaltoodud pildil saate, peab see sisestama kogu rea, mitte ühe lahtri.
Meetod nr 3 - ridanumbrite kasutamine
Ülaltoodud näites oleme just kasutanud ühe lahtriga aadressi ja sisestanud rea. Kuid me võime neid sisestada ka reanumbrite abil.
Oletame soovite sisestada järjest allapoole 5 th rida. Esiteks peame mainima reanumbreid objekti RANGE abil.
Kood:
Sub InsertRow_Example3 () vahemik ("6: 6"). Lõpeta alam
Kuna oleme maininud kogu rida 6: 6, peame siin kasutama atribuuti Kogu rida. Saame otse kasutada meetodit “INSERT”.
Kood:
Sub InsertRow_Example3 () Range ("6: 6"). Sisestage End Sub
See sisestab ka kogu rea, mitte ühe lahtri.
Juhul kui soovite sisestada kaks rida allpool 5 th rida, me peame valima 2 rida ja seejärel kasutada INSERT meetod.
Sub InsertRow_Example3 () vahemik ("6: 7"). Sisestage End Sub
See lisab kaks rida allpool 5 th rida.
Nii saame töölehele sisestada nii palju ridu kui võimalik.
Meetod nr 4 - lahtri aktiivse atribuudi kasutamine
Ridade sisestamiseks saame kasutada atribuuti Active Cell VBA. Aktiivne lahter pole muud kui praegu valitud rakk.
Oletame, et olete lahtris B5 ja soovite ülalt rida lisada, saate kasutada lahtris aktiivset omadust.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
See lisab rea aktiivse lahtri kohale.
Meetod nr 5 - aktiivse lahtri atribuudi kasutamine koos nihkefunktsiooniga
Oletame, et soovite lisada rea aktiivse lahtri 2 rea järele, peame ridade arvu kompenseerimiseks kasutama funktsiooni Nihe.
Oletame, et olete lahtris B5.
Kui soovite lisada rea aktiivsest lahtrist teise rea järele, saame kasutada allolevat koodi.
Kood:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
See lisab rea pärast 6 th rida.
Sisesta alternatiivsed read
Alternatiivsete ridade lisamine on mul tihti kohanud mitu korda. Alloleva andmepildi vaatamiseks.
Nüüd peame lisama alternatiivsed read. Iga alternatiivse rea sisestamiseks peame kasutama silmuseid.
Kood:
Sub InsertRow_Example6 () Mõõt K täisarvuna X X täisarvuna X = 1 K = 1 kuni 4 lahtrisse (X, 1). IntireRow. Sisestage X = X + 2 Järgmine K lõppu alam
See sisestab sellised read.
Selle VBA Insert Row Exceli saate alla laadida siit. VBA Lisa rea Exceli mall
