Az excel munkalapon általában kétféle módszer áll rendelkezésre az oszlopok hozzáadásához vagy beillesztéséhez: az egyik a billentyűparancs, a másik pedig a jobb gombbal kattintva és beillesztve, de a VBA-ban az insert parancsot és az egész oszlop utasítást kell használnunk bármely oszlop hozzáadásához, a Ennek az a trükkje, hogy ha egyetlen oszlopot kell beszúrnunk, egyetlen oszlop hivatkozást adunk meg, de a több oszlopra több oszlop hivatkozást adunk meg.
Helyezze be az oszlopokat az Excelbe a VBA használatával
A VBA-kód részeként előfordulhat, hogy szükségünknek megfelelõen néhány oszlopot kell beszúrnunk az adatlapunkba. Az oszlop beszúrása az egyszerű gyorsbillentyű a munkalapon a Ctrl + megnyomásával, de mit szólna egy új oszlop beszúrásához a VBA kódon keresztül. Ebben a „VBA oszlop beszúrása” című cikkben megmutatjuk az oszlopok hozzáadásának folyamatát az excelben, és különböző példákat mutatunk be.
Oszlopok beszúrása az Excel munkalapba a VBA használatával?
Oszlopokat beszúrhatunk a VBA-ba a COLUMNS tulajdonság és a RANGE objektum használatával. Meg kell, hogy miért van szükségünk oszlopokra és tartomány objektumokra egy új oszlop beszúrásához.
Új oszlop beszúrásához meg kell határoznunk, hogy mely oszlop után kell beszúrnunk, anélkül, hogy elmondanánk, melyik oszlop után kell beszúrnunk, hogyan értheti meg a VBA a logikát.
Például, ha be akarja illeszteni az oszlopot a B oszlop után, akkor így készítheti el a kódot.
Oszlopok („C”)
Megjegyzés: Az ok, amiért C-t használtam oszlop beszúrásához, mert a kiválasztott cella a jobb oldalra tolódik.
Az oszlopok megadása után hozzáférnünk kell az „Teljes oszlop” tulajdonsághoz.
Oszlopok („C”). EntireColumn
Ezután ki kell választanunk a „Beszúrás” módszert.
Oszlopok („C”). EntireColumn.Insert
Ez beilleszti az oszlopot a C oszlop után, és a meglévő C oszlop D-be kerül.
1. példa - Oszlopok beszúrása a Range Object használatával a VBA-ba
Most nézze meg az oszlop beszúrásának módját a RANGE objektum segítségével. Ehhez vegye figyelembe az alábbi adatokat.
Most azt akarom, hogy VBA illessze be az oszlopot az A oszlop után, kövesse az alábbi lépéseket a kód összeállításához.
1. lépés: Indítsa el az aleljárást.
2. lépés: Nyissa meg a Range objektumot.
Kód:
AloszlopInsert_Példa1 () Tartomány (End Sub
3. lépés: Most említse meg az oszlopot dupla idézőjelben .
Kód:
Aloszlop: Beszúrás_Példa1 () Tartomány ("B: B") Vége al
4. lépés: Most válassza ki a Teljes oszlop tulajdonságot.
Kód:
Aloszlop: Beszúrás_Példa1 () Tartomány ("B: B"). En End Al
5. lépés: Az Teljes oszlop tulajdonság kiválasztása után válassza a „Beszúrás” módszert.
Kód:
AloszlopInsert_Example1 () tartomány ("B: B"). EntireColumn.ins End Sub
Most a kódod így néz ki.
Kód:
AloszlopInsert_Példa1 () Tartomány ("B: B"). EntireColumn.Insert End
Futtassa a kódot. Beilleszti az új B oszlopot.
2. példa - Több oszlop beszúrása
Például, ha két új oszlopot szeretne beilleszteni az A oszlop után, akkor meg kell említenünk két oszlop címét.
Kód:
AloszlopInsert_Example1 () tartomány ("B: C"). EntireColumn.Insert End Sub
A fenti kód két oszlopot illeszt be az A oszlop után.
3. példa - Csak „Beszúrás” módszerrel
Új oszlopot szúrhatunk be az egyetlen metódus „Beszúrás” használatával, anélkül, hogy hozzáférnénk a Teljes oszlop tulajdonsághoz. Ehhez értsük meg az „insert” módszer szintaxisát.
Kifejezés. Beszúrás ((Shift), (Eredet másolása))
(Shift): Amikor beillesztjük az új oszlopot, szükségünk van-e arra, hogy az oszlopok jobb oldalra tolódjanak, vagy sorok esetén a lefelé tolódjanak-e. Itt két lehetőséget használhatunk: „xlToRight” és „xlDownTo”
(Origin másolása): Ez adja meg az újonnan beillesztett oszlop formátumát. Akár az oszlop bal oldalán, akár a fenti cellákban van szüksége a formátumra. Itt kétféle lehetőséget használhatunk: „xlFormatFromLeftOrAbove” és „xlFormatFromRightOrBelow”.
Az alábbiakban bemutatjuk az Ön példakódját.
AloszlopInsert_Példa1 () Tartomány ("B: B"). Beszúrja a Shift: = xlToRight, Copyorigin: = xlFormatFromLeftOrAbove End End Sub
4. példa - Oszlopok beszúrása a VBA oszlopok tulajdonságával
Láttuk, hogyan lehet a VBA oszlopokat beszúrni a RANGE objektum segítségével; Most megmutatjuk, hogy oszlopokat illeszthetünk be a „COLUMNS” tulajdonság segítségével.
Nyissa meg az OSZLOPOK tulajdonságot.
Kód:
AloszlopInsert_Example2 () oszlopok (End Sub
Az oszlopot itt kétféleképpen határozhatjuk meg. Az egyik a szokásos betűrendes hivatkozásokat, a másik pedig az oszlopok számát használja.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
AloszlopInsert_Example3 () Dim k egész szám oszlopokként (2). Válassza a K = 2 - 8 értéket ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Válassza a Következő k End Sub elemet
Ezzel beilleszti az oszlopot.
6. példa - Oszlop beszúrása a cella értéke alapján
A cellák értéke alapján oszlopot is beszúrhatunk. Nézze meg például az alábbi adatokat.
Itt szeretném beilleszteni az oszlopot, ha az első sor cellájának értéke „Év”, és az új oszlopok beszúrása után az adataimnak ilyeneknek kell lenniük.
A feladat végrehajtásához használja az alábbi kódot.
Kód:
AloszlopInsert_Example4 () Dim k As Integer Dim x As Integer x = 2 for k = 2-12 If Cells (1, x). Érték = "év", akkor cellák (1, x) .EntireColumn.Insert x = x + 1 Vége Ha x = x + 1 Következő k Vége Sub
Itt töltheti le ezt a VBA oszlopok beszúrását. VBA Oszlopok beszúrása Excel sablon
