Míg a munka során Microsoft Excel , nagy mennyiségű adat vizsgálatát használhatjuk. És ezeknek az adatsoroknak a táblázattá alakítása az egyik legnagyobb lehetőség. Az Excel táblázatok lehetővé teszik számunkra az adatok gyors rendezését és szűrését, új rekordok hozzáadását, valamint a diagramok és PivotTables azonnali frissítését. És Excel VBA segít a felhasználónak, hogy néhány egyszerű kóddal testre szabja az alkalmazást. Ebben a cikkben néhány példát fogunk látni a Excel VBA táblázat létrehozása tartományból.

Gyakorlati munkafüzet letöltése

Letöltheti a munkafüzetet, és gyakorolhat velük.

6 példa az Excel VBA-ra a tartományból származó táblázat létrehozására

A táblázatok az Excel menükiadásában listákként indultak, de ezek funkcionalitása a szalagváltozatokban nőtt. Egy adattartomány táblázattá alakítása kibővíti a képességeket, így gyorsabban és egyszerűbben dolgozhat. A következőkhöz a tartományt táblázattá alakítja a használatával VBA a legegyszerűbb módja, mint a szalag használata.

Tegyük fel, hogy van egy egyszerű adathalmazunk, amely tartalmaz néhány elemet az oszlopban. B , ezeknek a tételeknek a mennyisége az oszlopban C , és az egyes tételek összes eladása az oszlopban D Most az adatsort szeretnénk táblázattá alakítani. Mutassunk különböző példákat és lépésről-lépésre történő utasításokat a tartományból táblázat létrehozására. B4:D9 Excel VBA-val.

Használja a címet. ListObjects.Add hogy egy tartományt Excel-táblázattá alakítson. A Spreadsheet objektumnak van egy jellemzője. ListObjects . ListObjects van egy technika, az úgynevezett Add A kritériumok a .Add a következők.

expression .Add(SourceType, Source, LinkSource, HasHeaders,Destination)

És használja a SourceType xlSrcRange .

1. Excel VBA táblázat generálása tartományból

A címen Excel VBA , a felhasználók könnyen használhatják a kódot, amely az excel menüként működik a szalagról. A VBA kódot, hogy a tartományból táblázatot generáljunk, kövessük az eljárást lefelé.

LÉPÉSEK:

• Először is, menjen a Fejlesztő lapot a szalagról.
• Másodszor, a Kód: kategóriában kattintson a Visual Basic a Visual Basic szerkesztő . vagy nyomja meg a Alt + F11 a Visual Basic szerkesztő .
• Ehelyett egyszerűen kattintson a jobb gombbal a munkalapra, és válassza a Kód megtekintése Ez szintén elviszi Önt a Visual Basic szerkesztő .

• Ez megjelenik a Visual Basic szerkesztő ahol megírjuk a kódjainkat, hogy létrehozzunk egy táblázatot a tartományból.
• Harmadszor, kattintson a Modul a Beillesztés legördülő menüsor.

• Ez létrehoz egy Modul a munkafüzetben.
• És másolja be és illessze be a VBA az alábbiakban látható kódot.

VBA-kód:

 Sub Create_Table() Sheet1.ListObjects.Add(xlSrcRange, Range("B4:D9"), , xlYes).Name = "Table1" End Sub 

• Ezt követően futtassa a kódot a RubSub gomb megnyomásával vagy a billentyűparancs F5 .

A kódot nem kell megváltoztatnia, csak a tartományt kell az igényeinek megfelelően megváltoztatnia.

• És végül, a következő lépéseket követve létrehoz egy táblázatot a tartományból B4:D9 .

VBA kód magyarázat

 Sub Create_Table() 

Sub egy olyan kódrészlet, amely a kódban lévő munkát végzi, de nem ad vissza értéket. Aleljárásként is ismert. Tehát nevezzük el az eljárásunkat Create_Table() .

 Sheet1.ListObjects.Add(xlSrcRange, Range("B4:D9"), , xlYes).Name = "Table1" 

Ez az a fő kódsor, amellyel a tartományt táblázattá alakítjuk. Mivel már tudjuk, hogy a ListObjects.Add hogy egy tartományt Excel táblázattá alakítsunk. És használjuk a xlSrcRange mint forrástípust. Továbbá, deklaráljuk a tartományunkat Range("B4:D9") És végül nevezzük el a táblázatunkat 1. táblázat .

 End Sub 

Ezzel befejeződik az eljárás.

Bővebben: Hogyan frissítsük a Pivot táblázat tartományát (5 megfelelő módszer)

2. Táblázat készítése tartományból az Excel VBA használatával

Lássunk egy másik példát arra, hogyan lehet táblázatot készíteni tartományból az Excel VBA segítségével.

LÉPÉSEK:

• Először menjen a Develope r lapot a szalagról.
• Másodszor, kattintson a Visual Basic a Visual Basic szerkesztő .
• Egy másik módja a Visual Basic szerkesztő egyszerűen csak meg kell nyomni Alt + F11 .
• Vagy kattintson a jobb gombbal a lapra, majd válassza a Kód megtekintése .
• Ezután menjen a Beillesztés és válassza a Modul a legördülő menüből.
• Ez megnyitja a Visual Basic ablakot.
• Ezután másolja ki és illessze be a VBA kód az alábbiakban.

VBA-kód:

 Sub Generate_Table() Dim tb2 As Range Dim wsht As Worksheet Set tb2 = Range("B4").CurrentRegion Set wsht = ActiveSheet ws.ListObjects.Add(SourceType:=xlSrcRange, Source:=tb2).Name = "Table2" End Sub 

• Továbbá, nyomja meg a F5 billentyű vagy kattintson a Run Sub gombot a kód futtatásához.

• És a következő eredményt kapja: 1. módszer .

VBA kód magyarázat

 Dim tb2 As Range Dim wsht As Worksheet 

A DIM nyilatkozat a VBA utal a " kijelentem, ", és ezt kell használni egy változó deklarálására. Tehát, deklaráljuk a tartományunkat, hogy tb2 és a munkalapot a ws .

 Set tb2 = Range("B4").CurrentRegion Set wsht = ActiveSheet 

A VBA Set egyszerűen lehetővé teszi számunkra, hogy a kód futtatása során ne kelljen újra és újra beírnunk a kiválasztandó tartományt. Tehát a tartományt az aktuális régióra, a munkalapot pedig az aktív munkalapra állítjuk be.

 wsht.ListObjects.Add(SourceType:=xlSrcRange, Source:=tb2).Name = "Table2" 

Ezzel a kódsorral létrehozzuk a táblázatot a tartományból, és elnevezzük a táblázatunkat Table2 .

Bővebben: Hogyan használjon Excel táblázatot a VBA-val (9 lehetséges mód)

3. Táblázat létrehozása tartományból VBA-val az Excelben

Nézzünk egy másik példát az Excel VBA használatára, hogy táblázatot hozzunk létre egy tartományból.

LÉPÉSEK:

• Kezdetben válassza ki a teljes tartományt, amelyet táblázattá szeretne alakítani.
• Másodszor, kattintson a Fejlesztő lapot a szalagban.
• Harmadszor, indítsa el a Visual Basic szerkesztő a Visual Basic .
• Alternatívaként elérheti a Visual Basic szerkesztő a Alt + F11 .
• Vagy, jobb gombbal kattintva a lapon, és válassza a Kód megtekintése a menüből.
• Ezután válassza ki a Modul a legördülő dobozból a Beillesztés .
• És megjelenik a Visual Basic ablak.
• Írja oda a kódot.

VBA-kód:

 Sub Create_Table3() Dim r As Range Dim wsht As Worksheet Dim tb3 As ListObject Set r = Selection.CurrentRegion Set wsht = ActiveSheet Set tb3 = wsht.ListObjects.Add(SourceType:=xlSrcRange, Source:=r, XlListObjecthasheaders:=x1Yes) End Sub 

• Végül nyomja meg a F5 billentyű a kód futtatásához.

• És, ez létrehoz egy táblázatot az adattartományból, ahogyan azt megkaptuk a 1. módszer .

Bővebben: Hogyan készítsünk táblázatot az Excelben (testreszabással)

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?
• Excel Pivot táblázat csoportosítása hét szerint (3 megfelelő példa)
• [Fix] Nem lehet dátumokat csoportosítani a Pivot táblázatban: 4 lehetséges megoldás
• Hogyan készítsünk egy amortizációs táblázatot Excelben (4 módszer)

4. VBA alkalmazása dinamikus táblázat létrehozásához tartományból

Nézzünk meg egy másik módszert, amellyel Excel VBA segítségével táblázatot hozhatunk létre egy tartományból.

LÉPÉSEK:

• A kezdéshez nyissa meg a szalagot, és válassza ki a Fejlesztő opció.
• Ezután, hogy hozzáférjen a Visual Basic szerkesztő , kattintson a Visual Basic .
• Sajtó Alt + F11 szintén megjelenik a Visual Basic szerkesztő .
• Alternatívaként, jobb gombbal kattintva a lapot, és válassza a Kód megtekintése a megjelenő menüből.
• Most, a Beillesztés legördülő opciót, válasszon Modul .
• Ezután másolja ki és illessze be a VBA az alábbi kódot.

VBA-kód:

 Sub Create_Dynamic_Table1() Dim tbOb As ListObject Dim TblRng As Range With Sheets("Example4") lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row lLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn)) Set tbOb = .ListObjects.Add(xlSrcRange, TblRng, , xlYes) tbOb.Name = "DynamicTable1" tbOb.TableStyle = "TableStyleMedium14" End With End With End WithSub 

• Futtassa a kódot a F5 kulcs.

• Amint azt a 1. módszer 's illusztrációja szerint a táblázat a tartományból épül fel.

VBA kód magyarázat

 Sub Create_Dynamic_Table1() 

Ez a sor az alprocedúra nevét jelzi.

 Dim tbOb As ListObject Dim TblRng As Range 

Ezt a kétsoros sort a változók deklarálására használják.

 With Sheets("Example4") 

A Nyilatkozattal lehetővé teszi, hogy egyetlen objektumra vonatkozó utasítások sorozatát végezzük anélkül, hogy az objektum nevét újra kellene minősítenünk. Tehát, a A címen nyilatkozat a lap nevével.

 lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row lLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column 

Ezek az utolsó sor és az utolsó oszlop megtalálására szolgálnak.

 Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn)) 

Tartomány a táblázat létrehozásához.

 Set tbOb = .ListObjects.Add(xlSrcRange, TblRng, , xlYes) 

Hozzon létre egy táblázatot a fent megadott tartományban.

 tbOb.Name = "DynamicTable1" 

A táblázat nevének megadása

 tbOb.TableStyle = "TableStyleMedium14" 

Adja meg a táblázat stílusát.

Bővebben: Táblázat létrehozása Excelben parancsikon használatával (8 módszer)

5. Dinamikus táblázat készítése tartományból

Most nézzünk meg egy másik Excel VBA módszert, amellyel egy tartományból táblázatot hozhatunk létre.

LÉPÉSEK:

• A kezdéshez nyissa meg a szalagot, és válassza a Fejlesztő a legördülő menüből.
• Ezután válassza ki Visual Basic a Visual Basic szerkesztő .
• A Visual Basic szerkesztő a következő gomb megnyomásával is elérhető Alt + F11 .
• Alternatív megoldásként jobb gombbal kattintva a lapot, és válassza a Kód megtekintése a felugró menüből.
• Ezután válassza a Modul a Beillesztés legördülő menü.
• Ezután másolja ki és illessze be a következő VBA-kódot.

VBA-kód:

 Sub Create_Dynamic_Table2() Dim tbObj As ListObject Dim TblRng As Range With Sheets("Example5") .Range("A1").Select Selection.CurrentRegion.Select Set tbObj = .ListObjects.Add(xlSrcRange, Selection, , xlYes) tbObj.Name = "DynamicTable2" tbObj.TableStyle = "TableStyleMedium15" End With End With End Sub 

• Végül futtassa a kódot a F5 a billentyűzeten, és az eredményt a munkalapon látja.

• És, ahogyan azt a 1. módszer 's illusztrációban a táblázat a tartományból lesz felépítve.

Bővebben: Hogyan lehet az Excel táblázatok jól néznek ki (8 hatékony tipp)

6. Az Excel VBA használata dinamikus táblázat létrehozásához

Vizsgáljunk meg egy másik Excel VBA módszert a táblázat tartományból történő létrehozására.

LÉPÉSEK:

• Kezdetben menjen a Fejlesztő tab> Visual Basic > Beillesztés > Modul .
• Vagy, jobb gombbal kattintva a munkalapon egy ablak nyílik meg. Onnan menjen a Kód megtekintése .
• És, ez elviszi Önt a Visual Basic szerkesztő mező, ahová VBA makrókat írhatunk.
• Másrészt, a Alt + F11 szintén megnyitja a Visual Basic szerkesztő .
• Ezután írja be a VBA kód.

VBA-kód:

 Sub Create_Dynamic_Table3() Dim tableObj As ListObject Dim TblRng As Range With Sheets("Example6") lLastRow = .UsedRange.Rows.Count lLastColumn = .UsedRange.Columns.Count Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn))) Set tableObj = .ListObjects.Add(xlSrcRange, TblRng, , xlYes) tableObj.Name = "DynamicTable3" tableObj.TableStyle = "TableStyleMedium16" End With End With End Sub 

• És futtassa a kódot, hogy lássa az eredményt, ha megnyomja a F5 billentyű .

• És a táblázatot a tartományból hozzuk létre, ahogy a képen látható 1. módszer .

Bővebben: Hogyan hozzon létre táblázatot az Excelben adatokkal (5 mód)

Következtetés

A fenti módszerek segítenek Önnek abban, hogy táblázatot hozzon létre az Excel tartományból. Remélem, ez segít Önnek! Ha bármilyen kérdése, javaslata vagy visszajelzése van, kérjük, ossza meg velünk a megjegyzés rovatban. Vagy vethet egy pillantást a többi cikkünkre a következőkben. ExcelWIKI.com blog!