Töötades koos Microsoft Excel , võime kasutada suurte andmehulkade uurimist. Ja nende andmehulkade muutmine tabeliks on üks suurimaid võimalusi. Exceli tabelid võimaldavad meil kiiresti sorteerida ja filtreerida andmeid, lisada uusi kirjeid ning koheselt uuendada graafikuid ja PivotTable'i. Ja Excel VBA aitab kasutajal kohandada rakendust vaid mõne lihtsa koodiga. Selles artiklis näeme mõned näited Excel VBA et luua tabel vahemikust.

Lae alla praktiline töövihik

Saate alla laadida töövihiku ja nendega harjutada.

6 näidet Exceli VBAst tabeli loomiseks vahemikust

Tabelid alustasid Exceli menüüväljaandes nimekirjadena, kuid nende funktsionaalsus kasvas lintvariantides. Andmevahemiku teisendamine tabeliks laiendab võimalusi, võimaldades teil kiiremini ja lihtsamalt töötada. Et teisendada vahemik tabeliks kasutades VBA on kõige lihtsam viis kui lindi kasutamine.

Oletame, et meil on lihtne andmekogum, mis sisaldab mõningaid elemente veerus B , nende toodete kogus veerus C ja iga artikli müügi kogumaht veerus D Nüüd tahame teisendada andmevahemiku tabeliks. Näitame erinevaid näiteid ja samm-sammult juhiseid, kuidas luua vahemikust tabelit. B4:D9 Exceli VBAga.

Kasutage ListObjects.Add et muuta vahemik Exceli tabeliks. Spreadsheet objektil on iseloomulikud omadused ListObjects . ListObjects on tehnika nimega Lisa Kriteeriumid .Add on järgmised.

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

Ja kasutage SourceType xlSrcRange .

1. Exceli VBA tabeli genereerimiseks vahemikust

Koos Excel VBA , saavad kasutajad hõlpsasti kasutada koodi, mis toimib exceli menüüdest paelast. Et kasutada VBA koodi, et genereerida tabel vahemikust, järgime protseduuri allapoole.

SAMMUD:

• Esiteks, minge Arendaja vahekaart lindilt.
• Teiseks, alates Kood kategooria, klõpsake Visual Basic avada Visual Basic toimetaja . või vajutage Alt + F11 avada Visual Basic toimetaja .
• Selle asemel võite lihtsalt teha oma töölehel paremklõpsu ja minna valikusse Vaata koodi See viib teid ka Visual Basic toimetaja .

• See ilmub Visual Basic toimetaja kus me kirjutame oma koodid tabeli loomiseks vahemikust.
• Kolmandaks, klõpsake nuppu Moodul alates Sisesta rippmenüü riba.

• See loob Moodul teie töövihikus.
• Ja kopeeri ja kleebi VBA allpool esitatud kood.

VBA kood:

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

• Pärast seda käivitage kood, klõpsates nupule RubSub nuppu või vajutades klaviatuurikombinatsiooni F5 .

Te ei pea koodi muutma. Te võite lihtsalt muuta vahemikku vastavalt oma vajadustele.

• Ja lõpuks, järgides samme, luuakse tabel vahemikust B4:D9 .

VBA koodi selgitus

 Sub Create_Table() 

Sub on koodi osa, mida kasutatakse koodis tehtava töö käsitlemiseks, kuid mis ei tagasta mingit väärtust. Seda nimetatakse ka alaprotseduuriks. Seega nimetame meie protseduuri Create_Table() .

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

See on peamine koodirida, millega vahemik teisendatakse tabeliks. Nagu me juba teame, et ListObjects.Add et muuta vahemik Exceli tabeliks. Ja me kasutame xlSrcRange allikatüübiks. Samuti deklareerime oma vahemiku Range("B4:D9") Ja lõpuks nimetame meie tabeli järgmiselt Tabel1 .

 End Sub 

See lõpetab protseduuri.

Loe edasi: Kuidas uuendada Pivot tabeli vahemikku (5 sobivat meetodit)

2. Exceli VBA abil vahemikust tabeli konstrueerimine

Vaatame veel ühte näidet, kuidas konstrueerida tabel vahemikust Exceli VBA abil.

SAMMUD:

• Kõigepealt minge Develope r vahekaart lindilt.
• Teiseks, klõpsake Visual Basic avada Visual Basic toimetaja .
• Teine võimalus avada Visual Basic toimetaja on lihtsalt vajutada Alt + F11 .
• Või tehke lehel paremklõps, seejärel valige Vaata koodi .
• Järgmisena minge aadressile Sisesta ja valige Moodul rippmenüüst.
• Ja see avab visual basic akna.
• Pärast seda kopeeri ja kleebi VBA kood allpool.

VBA kood:

 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 

• Edasi vajutage F5 klahv või klõpsake Run Sub nuppu koodi käivitamiseks.

• Ja te saate tulemuse, nagu on näidatud dokumendis Meetod 1 .

VBA koodi selgitus

 Dim tb2 As Range Dim wsht As Worksheet 

The DIM avaldus VBA viitab " deklareerida, " ja seda tuleb kasutada muutuja deklareerimiseks. Seega deklareerime meie vahemikuks tb2 ja tööleht, et ws .

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

VBA Set võimaldab meil lihtsalt vältida seda, et peame koodi käivitamisel ikka ja jälle sisestama vahemiku, mida me peame valima. Niisiis, määrame meie vahemikuks praeguse piirkonna ja meie töölehe aktiivseks tööleheks.

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

Selle koodireaga loome tabeli vahemikust ja anname tabelile nime Tabel2 .

Loe edasi: Kuidas kasutada Exceli tabelit VBAga (9 võimalikku viisi)

3. Exceli VBAga tabeli loomine vahemikust VBAga

Vaatame veel ühte näidet Exceli VBA kasutamise kohta, et luua vahemikust tabel.

SAMMUD:

• Alustuseks valige kogu vahemik, mille soovite teisendada tabeliks.
• Teiseks, klõpsake Arendaja vahekaart lindil.
• Kolmandaks, käivitage Visual Basic toimetaja klõpsates Visual Basic .
• Teise võimalusena saate juurdepääsu Visual Basic toimetaja vajutades Alt + F11 .
• Või, paremklikk lehel ja valige Vaata koodi menüüst.
• Järgmisena valige Moodul all olevas rippmenüüst Sisesta .
• Ja ilmub visual basic aken.
• Kirjutage kood sinna.

VBA kood:

 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 

• Lõpuks vajutage F5 klahv koodi käivitamiseks.

• Ja, see loob tabeli andmevahemikust, nagu me saime aastal Meetod 1 .

Loe edasi: Kuidas teha tabelit Excelis (kohandamisega)

Sarnased lugemised

• Välja arvutatud summa jagatud loendiga Pivot tabelis
• Kuidas illustreerida suhtelist sagedusjaotust Excelis
• Exceli Pivot tabeli rühmitamine nädala järgi (3 sobivat näidet)
• [Fix] Pivot-tabelis ei saa kuupäevi rühmitada: 4 võimalikku lahendust
• Kuidas koostada amortisatsioonitabel Excelis (4 meetodit)

4. Rakendage VBA-d dünaamilise tabeli loomiseks vahemikust

Vaatame veel ühte võimalust, kuidas Exceli VBA abil vahemikust tabelit luua.

SAMMUD:

• Alustamiseks avage lint ja valige menüüriba Arendaja võimalus.
• Seejärel, et pääseda ligi Visual Basic toimetaja , kliki Visual Basic .
• Pressing Alt + F11 toob ka üles Visual Basic toimetaja .
• Teise võimalusena, paremklikk leht ja valige Vaata koodi ilmuvast menüüst.
• Nüüd, alates Sisesta rippmenüüst, valige Moodul .
• Seejärel kopeeri ja kleebi VBA järgnev kood.

VBA kood:

 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 

• Käivitage kood, vajutades F5 võti.

• Nagu illustreeritud dokumendis Meetod 1 's illustratsioon, tabel ehitatakse vahemikust.

VBA koodi selgitus

 Sub Create_Dynamic_Table1() 

See rida näitab alaprotseduuri nime.

 Dim tbOb As ListObject Dim TblRng As Range 

Seda kaherealist kasutatakse muutuja deklareerimiseks.

 Mis lehed("Example4") 

The Avaldusega võimaldab teha ühe objekti kohta järjestikuseid avaldusi, ilma et oleks vaja objekti nime uuesti määrata. Seega, me lisame avalduse Koos avaldus koos lehe nimega.

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

Need on vastavalt viimase rea ja viimase veeru leidmiseks.

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

Vahemik tabeli loomiseks.

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

Looge tabel ülaltoodud vahemikus.

 tbOb.Name = "DynamicTable1" 

Tabeli nime määramine

 tbOb.TableStyle = "TableStyleMedium14" 

Määrake tabeli stiil.

Loe edasi: Exceli tabeli loomine otsetee abil (8 meetodit)

5. Tee dünaamiline tabel vahemikust

Nüüd vaadake veel ühte Exceli VBA meetodit tabeli loomiseks vahemikust.

SAMMUD:

• Alustamiseks avage lint ja valige Arendaja rippmenüüst.
• Seejärel valige Visual Basic avada Visual Basic toimetaja .
• The Visual Basic toimetaja saab samuti avada, vajutades nuppu Alt + F11 .
• Teise võimalusena võite paremklikk leht ja valige Vaata koodi hüpikmenüüst.
• Pärast seda valige Moodul alates Sisesta rippmenüü.
• Seejärel kopeeri ja kleebi järgmine VBA-kood.

VBA kood:

 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 

• Lõpuks käivitage kood, vajutades F5 klaviatuuril ja näete tulemust oma töölehel.

• Ja nagu on näidatud Meetod 1 's illustratsioon, tabel konstrueeritakse vahemikust.

Loe edasi: Kuidas Exceli tabelid hästi välja näha (8 tõhusat nõuannet)

6. Kasutage Exceli VBA-d dünaamilise tabeli koostamiseks

Uurime veel ühte Exceli VBA viisi, kuidas vahemikust tabelit konstrueerida.

SAMMUD:

• Alguses mine Arendaja tab> Visual Basic > Sisesta > Moodul .
• Või, paremklõpsamine töölehel avaneb aken. Sealt edasi minna töölehega Vaata koodi .
• Ja see viib teid Visual Basic toimetaja väli, kuhu me saame kirjutada VBA makrosid.
• Teisest küljest, vajutades Alt + F11 avab ka Visual Basic toimetaja .
• Pärast seda sisestage VBA kood.

VBA kood:

 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 

• Ja käivitage kood, et näha tulemust, vajutades nuppu F5 klahv .

• Ja, tabel luuakse vahemikust, nagu on näidatud pildil Meetod 1 .

Loe edasi: Kuidas luua Excelis tabelit andmetega (5 võimalust)

Kokkuvõte

Ülaltoodud meetodid aitavad teil luua tabelit vahemikust Excelis. Loodan, et see aitab teid! Kui teil on küsimusi, ettepanekuid või tagasisidet, andke meile teada kommentaaride sektsioonis. Või võite heita pilgu meie teistesse artiklitesse aadressil ExcelWIKI.com blogi!