In hierdie artikel sal ons illustreer hoe om in te voeg data in 'n Excel tabel met VBA kode . Met behulp van Excel se ingeboude eienskappe en metodes kan ons die funksionaliteit van die byvoeging of oorskryf van data in 'n tabel maklik vergemaklik. Kom ons duik in die voorbeelde om 'n duidelike begrip van die metodes saam met die VBA-kodes te kry.

Laai Oefenwerkboek af

Laai hierdie oefenwerkboek af om te oefen terwyl jy lees hierdie artikel.

4 Voorbeelde om Data in Tabel in te voeg Gebruik VBA in Excel

Kom ons sê ons het 'n uitverkopingslys van 'n winkel met besonderhede soos die besteldatum, produknaam, hoeveelheid, eenheidsprys en totale prys.

Hoe om 'n tabel in Excel te skep

Om die datastel in 'n Excel-tabel te verander, doen die volgende-

• Kies die hele datastel .
• Gaan na die Insert-oortjie van die Excel-lint .
• Klik op die Tabel -opsie.

• Ten slotte, klik die OK-knoppie in die venster Skep tabel.

• Ons het die datastel suksesvol omgeskakel in 'n Excel-tabel .

Om data in te voeg in 'n Excel-tabel, sal ons verskeie VBA-funksies en eienskappe in ons kode gebruik. Die volgende afdelingbeskryf hoe om oop te maak en kode in die visuele basiese redigeerder te skryf.

Skryf kode in Visual Basic Editor

Volg die stappe om open die visual basic redakteur en skryf 'n kode daar.

• Gaan na die Ontwikkelaar oortjie vanaf die Excel-lint .
• Klik die Visual Basic-opsie.

• In die Visual Basic for Applications -venster, klik op die Voeg in aftreklys om te kies die Nuwe Module

Nou dat 'n nuwe module is oop , skryf 'n kode daar en druk F5 om hardloop.

1. Voeg data in by die laaste ry van 'n tabel deur VBA in Excel te gebruik

In hierdie voorbeeld sal ons 'n VBA -kode gebruik om by te voeg 'n nuwe ry aan die onderkant van die tabel en dan voeg data in in. In ons tabel het ons 4 rye van data . Om die 5de een by te voeg, kopieer en plak die volgende kode in die visuele basiese redigeerder.

4617

Druk F5 om uit te voer die kode.

Ons het 'n nuwe ry van data by die ingevoeg onderaan van die bestaande tabel .

Kode Verduideliking:

• In ons kode het ons die ListObjects gebruik voorwerp van VBA Excel om die tabel met sy naam te gryp. Vir meer inligting, elke van die LysObject objekte is 'n tabel op die werkblad . Om die tabelnaam te kry, klik op die tabel >> klik op die Tabelontwerp-oortjie in die Excel-lint.

• Dan het ons die Lysrye gebruik. Voeg by metode om 'n nuwe ry in die tabel by te voeg. Hierdie metode neem twee argumente : Posisie en Voeg altyd in .

Deur 'n heelgetal in te voer nommer , kan ons die relatiewe posisie van die nuut bygevoegde ry in die tabel spesifiseer. In hierdie voorbeeld het ons die posisie-argument leeg gelaat, gevolglik is 'n nuwe ry bygevoeg by die onderaan van die tabel .

• Uiteindelik stel ons data in elke van die selle van die nuwe ry bygevoeg . In hierdie geval was die data .Range(1) = “1/1/2022” as OrderDate, .Range(2) = “Apple” as Product, .Reik(3) = 5 as Hoeveelheid,  .Reeks(4) = 1,77 as Eenheidsprys.

Lees meer : Excel-tabelnaam: Alles wat jy moet weet

2. Harf 'n VBA-kode om data by 'n spesifieke ry van 'n tabel in Excel in te voeg

In hierdie illustrasie gaan ons 'n ry data byvoeg by 'n spesifieke ry relatief tot die tabel met dieselfde stukkie kode wat ons in die voorbeeld hierbo gebruik het. In hierdie geval moet ons net spesifiseer die Posisie-argument van die ListRows.Add-metode in onskode. Kom ons sê ons wil verkoopdata byvoeg vir Oranje met besonderhede in ry nommer 3 relatief tot die bestaande tabel . Om dit te laat gebeur, kopieer en plak die volgende kode in die visuele koderedigeerder.

7860

Laat die kode hardloop deur te druk F5 het die verkoopdata vir Oranje in die 3de ry relatief tot die tabel ingevoeg.

Lees Meer: Excel VBA-kode vir elke ry in 'n tabel (Voeg by, oorskryf, verwyder, ens.)

Soortgelyke lesings

• Berekende veldsom gedeel deur telling in spiltabel
• Hoe om relatiewe frekwensieverspreiding in Excel te illustreer
• [Regstel] Kan nie datums in spilpunttabel groepeer nie: 4 moontlike oplossings
• Hoe om persentasiefrekwensieverspreiding in Excel te bereken (2 metodes)
• Swaaitabel verfris nie (5 kwessies en oplossings)

3. Voeg data in en oorskryf data in 'n tabel deur VBA in Excel te gebruik

Hier sal ons illustreer hoe om oorskryf die bestaande data in 'n tabel in plaas van van die invoeging van 'n nuwe ry van data . Om dit te doen, moet ons die ListObject.ListRows-eienskap van Excel in plaas van van die ListRows.Add-eienskap wat ons vroeër gebruik het. Die ListObject.ListRows-eienskap neem ook rynommer ( Geheelgetal waarde ) as sy argument . Kom ons sê, ons wil verander die eenheidsprys van die Oranje van 2,14 tot 2,35 wat ons in die vorige voorbeeld ingevoeg het . Kopieer en plak die volgende kode hieronder in die Visual Basic-redigeerder.

2814

In ons kode, ons stel die argument vir die ListObject.ListRows-eienskap as 3 waar die data vir Oranje behoort aan . Begin die kode deur F5 te druk en sien die verskil .

Die kode het het slegs die eenheidsprys van die data by ry nommer 3 relatief tot die tabel verander.

Lees meer: Hoe om rye en kolomme van Excel-tabel in te voeg of uit te vee

4. Harf 'n VBA-kode om data in 'n Excel-tabel in te voeg op grond van gebruikersinvoer

In hierdie voorbeeld gaan ons invoeg die tabelnaam en verkoopbesonderhede van 'n produk as gebruikerinvoer eerder as hardekode dit in die VBA-kode elk tyd . Volg die instruksies hieronder om dit te bereik.

• Kopieer en plak die volgende kode in die visuele kode-redigeerder.

8001

• Druk F5 om uit te voer die kode.
• Sit die naam in van die tabel in die invoerkassie ( Tabel1 , in hierdie voorbeeld) en druk OK.

• Stel dan die waardes vir Oderdatum, Produknaam, Hoeveelheid, en Eenheidsprys indie invoerkassies wat opeenvolgend verskyn het . In hierdie voorbeeld is die waardes wat ons gebruik het 1/1/2022, Oranje, 3, en 35.

• Gevolglik het ons 'n nuwe ry met die ingevoegde data aan die onderkant van die tafel .

Lees Meer: Wenke vir Excel-tabelformatering – Verander die voorkoms van die tabel

Notas

Toe ons 'n nuwe ry <2 bygevoeg het>met data met VBA-kode, word die formaat , en formules gedra outomaties na die nuwe ry . In ons voorbeeld voer die Totaleprys kolom uit die produk van die kolomme Hoeveelheid en Eenheidsprys . Ons het net net die Hoeveelheid en Eenheidspryswaardes ingevoeg; die nuwe ry is ingevoeg met die produk van hierdie twee waardes in die Totale Prys-kolom.

Gevolgtrekking

Nou weet ons hoe om data in 'n Excel-tabel in te voeg met behulp van VBA-kode. Hopelik sal dit jou help om hierdie metodes met meer selfvertroue te gebruik. Enige vrae of voorstelle moenie vergeet om dit in die kommentaarblokkie hieronder te plaas nie.