Egy sor beszúrása a VBA-ban némileg különbözik az oszlop beszúrásától a VBA-ba, az oszlopokban teljes oszlop-módszert használtunk, de a sorok beszúrásához a munkalap-metódust az insert paranccsal használjuk a sor beszúrására. az oszlopokhoz hasonló másik sor.
Helyezze be a sort a VBA Excel programmal
A VBA kódolással az összes olyan műveletet elvégezhetjük, amelyet kiválóan végezünk. Másolhatunk, beilleszthetünk, törölhetünk, és még sok mindent megtehetünk a VBA nyelvén keresztül. A „Sor beszúrása” az egyik ilyen módszer, amelyet gyakran alkalmazunk az excelben. Ebben a cikkben megmutatjuk, hogyan hajthatja végre a beszúrássoros módszert a VBA-ban.
Hogyan illesszünk be sort az Excel VBA-ba?
Az alábbiakban bemutatjuk a VBA használatának különféle módszereit egy sor beszúrására az excelben.
1. módszer - a Beszúrási módszer használata
A VBA-ban egy sor beszúrásához hasonló technikát kell alkalmaznunk, amelyet az excel munkalapon használtunk. A VBA-ban a range objektumot kell használnunk a sor beszúrásához.
Nézze meg például az alábbi kódot.
Kód:
Sub InsertRow_Example1 () Tartomány ("A1"). Beszúrja a Vége Sub-t
Ez a kód az A1 cellán lefelé mozog a B1-be és beilleszti az egyetlen cellát.
Ez annyi problémát fog okozni az adatok kezelése szempontjából. Ez csak lefelé mozgatja az említett cellát, és az összes többi társított oszlop ugyanaz marad.
2. módszer - Teljes sor tulajdonság használata
Felső betétsor, valójában több módszert is alkalmazhatunk. Az alábbi módszer a teljes sort beilleszti a kiválasztott cella fölé.
1. lépés: Először említse meg a cella címét .
Kód:
Sub InsertRow_Example2 () tartomány ("A1"). End Sub
2. lépés: A használat helyett válassza ki a „ Teljes sor ” tulajdonságot.
Kód:
Sub InsertRow_Example2 () Tartomány ("A1"). EntireRow. End Sub
3. lépés: A teljes sor tulajdonság elérése után használja a beszúrási módszert .
Kód:
Sub InsertRow_Example2 () tartomány ("A1"). EntireRow.Insert End Sub
Ezzel beilleszti a sort az A1 cella fölé. Mivel A1 az első sor, az A1 cellán lefelé halad a B1-be.
Ahogy a fenti képen is látható, a teljes sort kell beillesztenie, nem az egyetlen cellát.
3. módszer - Sorszámok használata
A fenti példában csak az egycellás címet használtuk, és beillesztettük a sort. Beilleszthetjük azonban sorszámok használatával is.
Tegyük fel szeretné szúrni egy sort az alábbi 5 -én sor. Először meg kell említenünk a sorszámokat a RANGE objektum használatával.
Kód:
Sub InsertRow_Example3 () tartomány ("6: 6"). End Sub
Mivel a teljes sort 6: 6-ként említettük, itt az Entire Row tulajdonságot kell használnunk. Egyenesen alkalmazhatjuk az „INSERT” módszert.
Kód:
Sub InsertRow_Example3 () Range ("6: 6"). Insert Sub
Ezzel a teljes sort is beszúrja, nem pedig egyetlen cellát.
Abban az esetben, ha szeretné szúrni két sor alatt 5 -én sor, ki kell választanunk 2 sor először, majd használja az INSERT eljárás.
Sub InsertRow_Example3 () Range ("6: 7"). Insert Sub
Ezzel beilleszti két sor alatt 5 -én sor.
Így a lehető legtöbb sort beszúrhatjuk a munkalapba.
4. módszer - Aktív cella tulajdonság használata
Használhatjuk az Active Cell VBA tulajdonságot sorok beszúrására. Az aktív cella nem más, mint egy jelenleg kiválasztott cella.
Tegyük fel, hogy a B5 cellában van, és be akar illeszteni egy sort fent, használhatja az aktív cella tulajdonságokat.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Ezzel beilleszti a sort az aktív cella fölé.
5. módszer - Aktív cellatulajdonság használata offszet funkcióval
Tegyük fel, hogy be akar illeszteni egy sort az aktív cella 2 sora után, az Eltolás funkcióval kell ellensúlyoznunk a sorok számát.
Tegyük fel, hogy a B5 cellában van.
Ha azt szeretnénk, hogy helyezze be a sor, miután a 2 nd sorban az aktív cella, akkor tudjuk használni a lenti kódot.
Kód:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Ez sort beszúrni után 6 th sor.
Helyezze be az alternatív sorokat
Az alternatív sorok beszúrásával gyakran találkoztam sokszor. Az alábbi adatkép megtekintéséhez.
Most alternatív sorokat kell beillesztenünk. Hurkokat kell használnunk minden alternatív sor beszúrásához.
Kód:
Sub InsertRow_Example6 () Dim K egész számként X X egész számként X = 1 K = 1 - 4 celláig (X, 1). EntireRow. X = X + 2 beszúrása Következő K End Sub
Ez beszúrja az ilyen sorokat.
A VBA Insert Row Excel programot itt töltheti le. VBA Helyezze be a sor Excel sablont
