VBA sisesta rida (näide, kood) | 5 parimat Exceli VBA-meetodit rea lisamiseks
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õige paremini saame teha kõiki toiminguid, mida teeme suurepäraselt VBA-kodeerimisega. 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 rea lisamiseks peame 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 juurdepääsu kogu rea omadustele 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, et soovite sisestada rida 5. rea alla, kõigepealt peame mainima rea numbreid 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 lisab ka kogu rea, mitte ühe lahtri.
Kui soovite lisada kaks rida viienda rea alla, peame kõigepealt valima 2 rida ja seejärel kasutama INSERT-meetodit.
Sub InsertRow_Example3 () Range ("6: 7"). Sisestage End Sub
See lisab kaks rida 5. rea alla.
Nii saame töölehele sisestada nii palju ridu kui võimalik.
Meetod nr 4 - raku aktiivse atribuudi kasutamine
Ridade sisestamiseks saame kasutada atribuuti Active Cell VBA. Aktiivne lahter pole muud kui praegu valitud rakk.
Oletame, et asute lahtris B5 ja soovite ülemisele reale lisada aktiivse lahtri atribuudi.
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 rida pärast 6. 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 () Dim K täisarvuna X X täisarvuna X = 1 K = 1 kuni 4 lahtri jaoks (X, 1). IntireRow. Sisestage X = X + 2 Järgmine K End Sub
See sisestab sellised read.
Selle VBA Insert Row Exceli saate alla laadida siit. VBA Lisa rea Exceli mall