Ebben a cikkben bemutatjuk, hogy hogyan lehet beillesztése adatok egy Excel táblázat a használatával VBA kód Az Excel beépített tulajdonságainak és módszereinek segítségével könnyedén megkönnyíthetjük az adatok táblázatba történő hozzáadásának vagy felülírásának funkcióit. Merüljünk el a példákban, hogy a VBA-kódokkal együtt tisztán megértsük a módszereket.

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

4 példa az adatok beillesztésére a táblázatba a VBA használatával az Excelben

Tegyük fel, hogy van egy értékesítési lista egy üzletben olyan részletekkel, mint a rendelés dátuma, a termék neve, a mennyiség, az egységár és a teljes ár.

Hogyan hozzon létre táblázatot az Excelben

A címre. forduljon a adatkészlet egy Excel táblázat a következőket kell tennie...

• Válassza ki a címet. a teljes adathalmaz .
• Go a Beszúrás lap a Excel szalag .
• Kattintson a címre. a Asztal opció.

• Végül kattintson a OK gomb a Táblázat létrehozása ablak.

• Sikeresen átalakított a adatkészlet egy Excel táblázat .

Az adatok Excel táblázatba történő beillesztéséhez többféleképpen fogunk eljárni VBA funkciók és ingatlanok a mi kód A következő szakasz leírja, hogyan kell nyitott és kódot írni a Visual Basic szerkesztő.

Kód írása Visual Basic szerkesztővel

Kövesse a lépések a címre. nyitott a Visual Basic szerkesztő és írjon oda egy kis kódot.

• Menjen a Fejlesztő lapot a Excel szalag .
• Kattintson a címre. a Visual Basic opció.

• A Visual Basic for Applications ablakban kattintson a Beillesztés legördülő menüpont a címre. válassza ki a címet. a Új modul

Most, hogy egy új modul a megnyitotta , írjon oda kódot és nyomja meg a F5 a címre. futás.

1. Adatok beszúrása a táblázat utolsó sorába a VBA használatával az Excelben

Ebben a példában egy VBA kód a add a új sor a alul a táblázat majd adatok beillesztése A mi táblázatunkban 4 sor a adatok A 5. , másolat és paste a következő kódot a Visual Basic szerkesztőbe.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple" .Range(3) = 5 .Range(4) = 1.77 End With End With End Sub 

Nyomja meg az F5-öt a címre. fuss a kód.

Mi már beillesztett a új sor a adatok a alul a meglévő táblázat .

Kódmagyarázat:

• A mi kódunkban a ListObjects objektum a VBA Excel fogd meg a címet. a táblázat a név További információért, minden egyes a ListObject objektumok egy táblázat a munkalap . A táblázat nevének lekérdezése, kattints a címre. a táblázat >> kattints a címre. a Asztal tervezése lap a Excel szalag.

• Ezután használtuk a ListRows . Módszer hozzáadása hozzáadni egy új sor a táblázat . módszer elveszi két érv : Pozíció és AlwaysInsert .

A beírással egy egész szám , megadhatjuk a relatív pozíció a újonnan hozzáadott sor a táblázat Ebben a példában üresen hagyva a pozíció érv , ennek eredményeképpen egy új sor volt hozzáadva a alul a táblázat .

• Végül, az adatokat a minden egyes a sejtek az újonnan hozzáadott sor Ebben az esetben az adatok .Range(1) = "1/1/2022" mint OrderDate, .Range(2) = "Alma" mint Termék, .Range(3) = 5 mint Mennyiség, .Range(4) = 1.77 mint Egységár.

Bővebben: Excel táblázat neve: Minden, amit tudnia kell

2. VBA-kód futtatása az adatok beillesztéséhez az Excel táblázat egy adott sorába

Ezen az ábrán a következőket fogjuk használni. adatsor hozzáadása egy adott sor a táblázathoz képest ugyanazzal a kódrészlettel, mint amit a fenti példában használtunk. Ebben az esetben csak annyit kell tennünk, hogy adja meg a címet a Pozíciós érv a ListRows.Add módszer Tegyük fel, hogy a kódunkban a eladási adatok hozzáadása a oldalon. Narancs a részleteket a 3. sorszám relatív a meglévő táblázat Hogy ez megtörténjen, másolat és paste a következőket kód a vizuális kódszerkesztőbe.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.14 End With End With End Sub 

A kód futtatása az F5 megnyomásával beillesztett a értékesítési adatok a Narancs esetében a 3. sor a táblázathoz képest .

Bővebben: Excel VBA kód a táblázat minden egyes sorához (hozzáadás, felülírás, törlés stb.)

Hasonló olvasmányok

• Kiszámított mező összege osztva a számmal a Pivot táblázatban
• Hogyan illusztráljuk a relatív gyakorisági eloszlást az Excelben?
• [Fix] Nem lehet dátumokat csoportosítani a Pivot táblázatban: 4 lehetséges megoldás
• Hogyan számítsuk ki a százalékos gyakorisági eloszlást Excelben (2 módszer)
• A Pivot táblázat nem frissül (5 probléma & Megoldások)

3. Adatok beszúrása és felülírása egy táblázatba a VBA használatával az Excelben

Itt bemutatjuk, hogyan lehet felülírja a meglévő adatok egy táblázat helyett a beillesztése a új sor a adatok Ehhez használnunk kell a ListObject.ListRows tulajdonság az Excel helyette a ListRows.Add tulajdonság használtuk korábbi . ListObject.ListRows tulajdonság is vesz sorszám ( Egész szám érték ), mint a érv Mondjuk, hogy szeretnénk megváltoztatni a egységár a Narancs 2.14-ről 2.35-re hogy mi beillesztett a korábbi példa . Másolás és paste az alábbi kódot a Visual Basic szerkesztőprogramban.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.35 End With End With End Sub 

A mi kódunkban, mi set a érv a ListObject.ListRows tulajdonság mint 3 ahol a adatok a oldalon. Narancs tartozik . a kód a F5 és nézze meg a különbség .

A kód megváltozott csak a egységár a adatok a címen. 3. sorszám relatív a táblázat .

Bővebben: Hogyan lehet sorokat és oszlopokat beszúrni vagy törölni az Excel táblázatból

4. VBA-kód futtatása adatok beszúrásához egy Excel-táblázatba a felhasználói bemenet alapján

Ebben a példában beillesztése a táblázat neve és értékesítés részletei egy termék mint felhasználói bemenet ahelyett, hogy hardcode a VBA kód minden alkalommal Ehhez kövesse az alábbi utasításokat.

• Másolás és paste a következő kódot a vizuális kódszerkesztőbe.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="A táblázat neve: ", Type:=2) A = Application.InputBox(Prompt:="Megrendelés dátuma: ", Type:=2) B = Application.InputBox(Prompt:="Termék neve: ", Type:=2) C = Application.InputBox(Prompt:="Mennyiség: ", Type:=2) D = Application.InputBox(Prompt:="Egységár: ",Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• Sajtó F5 a címre. fuss a kódot.
• Tegye a a név a táblázat a beviteli mező ( 1. táblázat ebben a példában) és nyomja meg a RENDBEN.

• Ezután tegye a következő értékeket Oder Date, Termék neve, Mennyiség, és Egységár a beviteli mezők hogy egymás után jelentek meg Ebben a példában a következő értékeket használtuk fel 1/1/2022, Narancs, 3, és 35.

• Ennek eredményeként, van egy új sor a beillesztett adatok a alul a táblázat .

Bővebben: Excel táblázat formázási tippek - A táblázat megjelenésének megváltoztatása

Megjegyzések

Amikor mi hozzáadva a új sor a címen adatok VBA kód használatával, a formátum , és képletek kap hordozta a új sor automatikusan Példánkban a TotalPrice oszlop kimenetek a termék az oszlopok Mennyiség , és Egységár . Mi csak csak beillesztve a Mennyiség és Egységár értékek ; a új sor volt beillesztett a termék ezek közül két érték a Teljes ár oszlop.

Következtetés

Most már tudjuk, hogyan lehet VBA kóddal adatokat beszúrni egy Excel táblázatba. Remélhetőleg ez segít abban, hogy magabiztosabban használhassa ezeket a módszereket. Bármilyen kérdés vagy javaslat ne felejtse el, hogy az alábbi megjegyzés rovatba tegye őket.