Ynhâldsopjefte
Yn dit artikel sille wy yllustrearje hoe't jo ynfoegje gegevens yn in Excel tabel mei VBA koade . Mei help fan Excel's ynboude eigenskippen en metoaden kinne wy de funksjonaliteit fan it tafoegjen of oerskriuwen fan gegevens yn in tabel maklik fasilitearje. Lit ús dûke yn 'e foarbylden om in dúdlik begryp te krijen fan' e metoaden tegearre mei de VBA-koades.
Download Practice Workbook
Download dit oefenwurkboek om te oefenjen wylst jo lêze dit artikel.
Gegevens ynfoegje yn Table.xlsm
4 Foarbylden om gegevens yn te foegjen yn tabel mei VBA yn Excel
Litte wy sizze, wy hawwe in ferkeaplist fan in winkel mei details lykas de besteldatum, produktnamme, kwantiteit, ienheidspriis en totale priis.
Hoe kinne jo in tabel meitsje yn Excel
Om de dataset omsette yn in Excel-tabel , doch de folgjende-
- Selektearje de hele dataset .
- Gean nei it ljepblêd Ynfoegje fan it Excel-lint .
- Klik op op de opsje Tabel .
- Klik as lêste op de OK knop yn it finster Tabel oanmeitsje.
- Wy hawwe de gegevensset mei súkses omset yn in Excel-tabel .
Om gegevens yn te foegjen yn in Excel-tabel brûke wy ferskate VBA-funksjes en eigenskippen yn ús koade . De folgjende seksjebeskriuwt hoe't jo iepenje en koade skriuwe yn de fisuele basisbewurker.
Code skriuwe yn Visual Basic Editor
Folgje de stappen om iepenje de visual basic bewurker en skriuw dêr wat koade.
- Gean nei de ûntwikkelder ljepper fan it Excel-lint .
- Klik op de Visual Basic opsje.
- Yn it Visual Basic for Applications finster, klik op de Ynfoegje dropdown om selektearje de Nije Module
No dat in nije module is iepene , skriuw dêr wat koade en druk op F5 om út te fieren.
1. Gegevens ynfoegje by de lêste rige fan in tabel mei VBA yn Excel
Yn dit foarbyld sille wy in VBA koade brûke om ta te foegjen in nije rige ûnder ûnder fan de tabel en dan gegevens ynfoegje. Yn ús tabel hawwe wy 4 rigen fan gegevens . Om de 5e ta te foegjen, kopiearje en plakke de folgjende koade yn de fisuele basisbewurker.
9872
Druk op F5 om út te fieren de koade.
Wy hawwe in nije rige fan gegevens ynfoege by de ûnderste fan de besteande tabel .
Koade Taljochting:
- Yn ús koade brûkten wy de ListObjects objekt fan VBA Excel om de tabel mei syn namme te pakken. Foar mear ynformaasje is elk fan de ListObject objekten in tabel op it wurkblêd . Om de tabelnamme te krijen, klik op de tabel >> klik op it ljepblêd Tabelûntwerp yn it Excel-lint.
- Dan hawwe wy de ListRows brûkt. Metoade tafoegje om in nije rige ta te foegjen yn de tabel . Dizze metoade nimt twa arguminten : Posysje en Altyd ynfoegje .
Troch in geheel getal yn te fieren nûmer , kinne wy de relative posysje fan de nij tafoege rige yn de tabel oantsjutte. Yn dit foarbyld hawwe wy bleat litten it posysjeargumint , as gefolch is in nije rige tafoege by de ûnder fan de tabel .
- Uteinlik sette wy gegevens yn elk fan de sellen fan de nij rige tafoege . Yn dit gefal wiene de gegevens .Range(1) = "1/1/2022" as OrderDate, .Range(2) = "Apple" as Product, .Range(3) = 5 as Quantity, .Range(4) = 1.77 as Ienheidspriis.
Lês mear : Excel-tabelnamme: alles wat jo witte moatte
2. Rin in VBA-koade om gegevens yn te foegjen op in spesifike rige fan in tabel yn Excel
Yn dizze yllustraasje sille wy in rige gegevens tafoegje op in spesifike rige relatyf oan de tabel mei itselde stik koade dat wy yn it boppesteande foarbyld brûkten. Yn dit gefal hoege wy gewoan it Posysjeargumint fan 'e ListRows.Add-metoade op te jaan yn úskoade. Litte wy sizze dat wy ferkeapgegevens taheakje wolle foar Oranje mei details yn rige nûmer 3 relatyf oan de besteande tabel . Om dit te barren, kopiearje en plakke de folgjende koade yn de fisuele koade-bewurker.
7774
De koade útfiere troch te drukken F5 hat de ferkeapgegevens foar Oranje ynfoege yn de 3e rige relatyf oan de tabel .
Lês Mear: Excel VBA-koade foar elke rige yn in tabel (taheakje, oerskriuwe, wiskje, ensfh.)
Gelykbere lêzingen
- Berekkene fjildsom dield troch tellen yn pivot-tabel
- Hoe kinne jo relative frekwinsjeferdieling yn Excel yllustrearje
- [Fix] Kin datums net groepearje yn pivot-tabel: 4 mooglike oplossingen
- Hoe kinne jo persintaazje frekwinsjeferdieling yn Excel berekkenje (2 metoaden)
- Pivottabel wurdt net fernijd (5 Issues & Solutions)
3. Gegevens ynfoegje en oerskriuwe yn in tabel mei VBA yn Excel
Hjir sille wy yllustrearje hoe't jo oerskriuwe de besteande gegevens yn in tabel ynstee fan fan ynfoegje in nije rige fan gegevens . Om dat te dwaan, moatte wy de ListObject.ListRows-eigenskip fan Excel ynstee fan de ListRows.Add-eigenskip wy brûkten earder . De ListObject.ListRows-eigenskip nimt ek rige nûmer ( Integer wearde ) as syn argumint . Litte wy sizze, wy wolle feroarje de ienheidspriis fan de Oranje fan 2,14 oant 2,35 dat wy ynfoege yn it foarige foarbyld . Kopiearje en plakke de folgjende koade hjirûnder yn de fisuele basisbewurker.
6124
Yn ús koade, wy stelle it argumint foar de ListObject.ListRows-eigenskip as 3 wêr't de gegevens foar Oranje heart by . Run de koade troch op F5 te drukken en sjoch it ferskil .
De koade hat feroare allinne de ienheidspriis fan de gegevens op rige nûmer 3 relatyf oan de tabel .
Lês mear: Hoe kinne jo rigen en kolommen ynfoegje of wiskje fan Excel-tabel
4. Rin in VBA-koade om gegevens yn in Excel-tabel yn te foegjen op basis fan brûkersynfier
Yn dit foarbyld sille wy ynfoegje de tabelnamme en ferkeapdetails fan in produkt as brûkersynfier yn stee fan hardcode it yn de VBA-koade elk tiid . Folgje de ynstruksjes hjirûnder om dit te berikken.
- Kopiearje en plakke de folgjende koade yn de fisuele koade bewurker.
7235
- Druk op F5 om út te fieren de koade.
- Set de namme yn fan de tabel yn it ynfierfak ( Tabel1 , yn dit foarbyld) en druk op OK.
- Set dan de wearden foar Oderdatum, Produktnamme, Quantity, en Ienheidspriis ynde ynfierfakken dy't opfolgjend ferskynden . Yn dit foarbyld binne de wearden dy't wy brûkten 1/1/2022, Oranje, 3, en 35.
- As resultaat hawwe wy in nije rige mei de ynfoege gegevens oan 'e ûnder fan 'e tabel .
Lês mear: Tips foar opmaak fan Excel-tabel - Feroarje it uterlik fan 'e tabel
Notysjes
As wy tafoege in nije rige mei gegevens mei VBA-koade, wurde de opmaak , en formules automatysk nei de nije rige . Yn ús foarbyld, de TotalPrice kolom útfiert it produkt fan de kolommen Quantity , en Ienheidspriis . Wy hawwe gewoan allinne de Quantity en Ienheidspriiswearden ynfoege; de nije rige is ynfoege mei it produkt fan dizze twa wearden yn de kolom Totaalpriis.
Konklúzje
No witte wy hoe't jo gegevens kinne ynfoegje yn in Excel-tabel mei VBA-koade. Hooplik soe it jo helpe om dizze metoaden mei fertrouwen te brûken. Alle fragen of suggestjes ferjit se net yn it kommentaarfakje hjirûnder te pleatsen.
