Med delom z Microsoft Excel , lahko uporabimo za preučevanje velikih količin podatkov. In preoblikovanje teh podatkovnih razponov v tabelo je ena od najboljših možnosti. Excelove tabele nam omogočajo hitro razvrščanje in filtriranje podatkov, dodajanje novih zapisov ter takojšnje posodabljanje grafov in tabel PivotTables. in Excel VBA uporabniku pomaga prilagoditi aplikacijo z nekaj preprostimi kodami. V tem članku si bomo ogledali nekaj primerov Excel VBA za ustvarjanje tabele iz območja.

Prenesi delovni zvezek za prakso

Prenesete lahko delovni zvezek in vadite z njimi.

6 primerov programa Excel VBA za ustvarjanje tabele iz območja

Tabele so se začele kot seznami v menijski izdaji programa Excel, vendar se je njihova funkcionalnost v različicah s trakom povečala. Pretvarjanje podatkovnega območja v tabelo razširi zmogljivosti, kar vam omogoča hitrejše in enostavnejše delo. pretvori območje v tabelo uporaba VBA je najlažji način od uporabe traku.

Predpostavimo, da imamo preprost niz podatkov, ki vsebuje nekaj elementov v stolpcu B , količina teh postavk v stolpcu C in skupno prodajo za vsako postavko v stolpcu D Zdaj želimo podatkovno območje pretvoriti v tabelo. Prikažimo različne primere in navodila po korakih za ustvarjanje tabele iz območja B4:D9 s programom Excel VBA.

Uporabite ListObjects.Add za pretvorbo območja v Excelovo tabelo. Objekt Spreadsheet ima značilnost ListObjects . ListObjects ima tehniko, imenovano Dodaj . Merila za .Add so naslednji.

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

In uporabite SourceType xlSrcRange .

1. Excel VBA za generiranje tabele iz območja

S spletno stranjo Excel VBA , lahko uporabniki preprosto uporabijo kodo, ki deluje kot meniji excel s traku. Če želite uporabiti VBA kodo za ustvarjanje tabele iz razpona, sledimo postopku.

KORAKI:

• Najprej pojdite v Razvijalec z zavihka v traku.
• Drugič, iz Koda kliknite na kategorijo Visual Basic da odprete Urejevalnik Visual Basic . Ali pa pritisnite Alt + F11 da odprete Urejevalnik Visual Basic .
• Namesto tega lahko z desno tipko miške kliknete na delovni list in izberete Prikaži kodo To vas bo pripeljalo tudi do Urejevalnik Visual Basic .

• To bo prikazano v Urejevalnik Visual Basic kjer zapišemo kode za ustvarjanje tabele iz območja.
• Tretjič, kliknite na Modul iz Vstavite v spustnem meniju.

• To bo ustvarilo Modul v delovnem zvezku.
• Kopirajte in prilepite VBA spodaj prikazana koda.

Koda VBA:

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

• Nato zaženite kodo s klikom na RubSub ali pritisnite bližnjico na tipkovnici F5 .

Kode vam ni treba spreminjati. Vse, kar lahko storite, je, da spremenite obseg glede na svoje zahteve.

• In končno, z naslednjimi koraki boste ustvarili tabelo iz območja B4:D9 .

Razlaga kode VBA

 Sub Ustvari_tabelo() 

Pod je del kode, ki se uporablja za obdelavo dela v kodi, vendar ne vrne nobene vrednosti. Znan je tudi kot podprocedura. Tako poimenujemo našo proceduro Ustvari_tabelo() .

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

To je glavna vrstica kode, s katero se območje pretvori v tabelo. ListObjects.Add za pretvorbo območja v Excelovo tabelo. xlSrcRange kot tip vira. Prav tako razglasimo naše območje Razpon ("B4: D9") . In končno poimenujte našo tabelo kot Tabela1 .

 Končni podnaslov 

S tem se postopek konča.

Preberite več: Kako posodobiti obseg vrtilne tabele (5 primernih metod)

2. Izdelajte tabelo iz razpona z uporabo programa Excel VBA

Oglejmo si še en primer za izdelavo tabele iz območja z uporabo programa Excel VBA.

KORAKI:

• Najprej pojdite v Razvoj r v traku.
• Drugič, kliknite na Visual Basic da odprete Urejevalnik Visual Basic .
• Drug način za odprtje Urejevalnik Visual Basic je preprosto pritisniti Alt + F11 .
• Ali pa z desno tipko miške kliknite list in izberite Prikaži kodo .
• Nato pojdite v Vstavite in izberite Modul iz spustnega menija.
• Odprlo se bo okno Visual Basic.
• Nato kopirajte in prilepite Koda VBA spodaj.

Koda VBA:

 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 

• Poleg tega pritisnite Tipka F5 ali kliknite na Run Sub za zagon kode.

• In dobili boste rezultat, kot je prikazan v Metoda 1 .

Razlaga kode VBA

 Dim tb2 kot območje Dim wsht kot delovni list 

Spletna stran DIM izjavo v VBA se nanaša na " izjavite, " in ga je treba uporabiti za deklaracijo spremenljivke. tb2 in delovni list v ws .

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

Z nastavitvijo VBA Set se preprosto izognemo temu, da bi med izvajanjem kode vedno znova vnašali območje, ki ga moramo izbrati. Tako nastavimo naše območje na trenutno regijo, naš delovni list pa na aktivni delovni list.

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

S to vrstico kode ustvarimo tabelo iz območja in jo poimenujemo Tabela2 .

Preberite več: Kako uporabiti Excelovo tabelo z VBA (9 možnih načinov)

3. Ustvarjanje tabele iz obsega z VBA v Excelu

Oglejmo si še en primer uporabe programa Excel VBA za ustvarjanje tabele iz območja.

KORAKI:

• Za začetek izberite celotno območje, ki ga želite pretvoriti v tabelo.
• Drugič, kliknite Razvijalec na traku.
• Tretjič, zaženite Urejevalnik Visual Basic s klikom na Visual Basic .
• Lahko pa dostopate tudi do Urejevalnik Visual Basic s pritiskom na Alt + F11 .
• Ali, z desnim klikom miške kliknite . na listu in izberite Prikaži kodo iz menija.
• Nato izberite Modul iz spustnega okna pod Vstavite .
• Pojavilo se bo okno Visual Basic.
• Kodo zapišite tja.

Koda VBA:

 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 

• Na koncu pritisnite Tipka F5 za zagon kode.

• To bo ustvarilo tabelo iz podatkovnega območja, ki smo ga dobili v Metoda 1 .

Preberite več: Kako narediti tabelo v Excelu (s prilagoditvijo)

Podobna branja

• Izračunana vsota polj, deljena s številom v preglednici Pivot
• Kako prikazati relativno porazdelitev pogostosti v Excelu
• Excelova vrtilna tabela Skupina po tednu (3 primerni primeri)
• [popravek] Datumov ni mogoče združiti v preglednici Pivot: 4 možne rešitve
• Kako izdelati amortizacijsko tabelo v Excelu (4 metode)

4. Uporaba VBA za ustvarjanje dinamične tabele iz območja

Oglejmo si še en način ustvarjanja tabele iz območja z uporabo programa Excel VBA.

KORAKI:

• Če želite začeti, odprite trak in izberite Razvijalec možnost.
• Če želite dostopati do Urejevalnik Visual Basic , kliknite na Visual Basic .
• Pritiskanje Alt + F11 prikliče tudi Urejevalnik Visual Basic .
• Druga možnost, z desnim klikom miške kliknite . list in izberite Prikaži kodo v meniju, ki se prikaže.
• Zdaj, od Vstavite spustno možnost, izberite Modul .
• Nato kopirajte in prilepite VBA kodo, ki sledi.

Koda VBA:

 Sub Create_Dynamic_Table1() Dim tbOb kot ListObject Dim TblRng kot 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 EndPod 

• Zaženite kodo tako, da pritisnete tipko F5 ključ.

• Kot je prikazano v Metoda 1 's ponazoritvijo, bo miza izdelana iz območja.

Razlaga kode VBA

 Sub Ustvari_dinamično_tabelo1() 

V tej vrstici je navedeno ime podprocesa.

 Dim tbOb kot ListObject Dim TblRng kot obseg 

Ta dvovrstičnica se uporablja za deklaracijo spremenljivke.

 z listi("Primer4") 

Spletna stran Z izjavo vam omogoča, da zaporedje izjav za en sam objekt izvedete, ne da bi bilo treba ponovno določiti ime objekta. S spletno stranjo izjava z imenom lista.

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

Ta sta namenjena iskanju zadnje vrstice in zadnjega stolpca.

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

Območje za ustvarjanje tabele.

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

Ustvarite tabelo v zgoraj določenem obsegu.

 tbOb.Name = "DynamicTable1" 

Določanje imena tabele

 tbOb.TableStyle = "TableStyleMedium14" 

Določite slog mize.

Preberite več: Ustvarjanje tabele v Excelu z uporabo bližnjice (8 metod)

5. Izdelajte dinamično tabelo iz območja

Zdaj si oglejte še eno metodo Excel VBA za ustvarjanje tabele iz območja.

KORAKI:

• Če želite začeti, odprite trak in izberite Razvijalec iz spustnega menija.
• Nato izberite Visual Basic da odprete Urejevalnik Visual Basic .
• Spletna stran Urejevalnik Visual Basic lahko dostopate tudi tako, da pritisnete Alt + F11 .
• Druga možnost je, da z desnim klikom miške kliknite . list in izberite Prikaži kodo iz priročnega menija.
• Nato izberite Modul iz Vstavite spustni meni.
• Nato kopirajte in prilepite naslednjo kodo VBA.

Koda VBA:

 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 Sub 

• Na koncu zaženite kodo tako, da pritisnete F5 na tipkovnici in rezultat se prikaže v delovnem listu.

• In kot je bilo dokazano v Metoda 1 's prikazom bo tabela sestavljena iz območja.

Preberite več: Kako poskrbeti, da so Excelove tabele videti dobro (8 učinkovitih nasvetov)

6. Uporaba programa Excel VBA za izdelavo dinamične tabele

Preučimo še en način Excel VBA za izdelavo tabele iz območja.

KORAKI:

• Na začetku pojdite v Razvijalec zavihek> Visual Basic > Vstavite > Modul .
• Ali, klik z desno tipko miške na delovnem listu se bo odprlo okno. Od tam pojdite na Prikaži kodo .
• To vas bo pripeljalo do Urejevalnik Visual Basic polje, v katerem lahko zapišemo makra VBA.
• Po drugi strani pa pritisnite Alt + F11 bo odprl tudi Urejevalnik Visual Basic .
• Nato vnesite VBA koda.

Koda VBA:

 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 Sub 

• Nato zaženite kodo in si oglejte rezultat tako, da pritisnete tipko Tipka F5 .

• In tabela bo ustvarjena iz območja, kot je prikazano na sliki Metoda 1 .

Preberite več: Kako ustvariti tabelo v Excelu s podatki (5 načinov)

Zaključek

Zgornje metode vam bodo pomagale ustvariti tabelo iz območja v Excelu. Upam, da vam bo to pomagalo! Če imate kakršna koli vprašanja, predloge ali povratne informacije, nam to sporočite v razdelku za komentarje. Lahko pa si ogledate naše druge članke v ExcelWIKI.com blog!