Selles artiklis näitame, kuidas on võimalik sisestada andmed arvesse Excel tabel kasutades VBA kood . Exceli sisseehitatud omaduste ja meetodite abil saame lihtsustada andmete lisamise või ülekirjutamise funktsionaalsust tabelisse lihtsalt. Sukeldume näidetesse, et saada selge arusaam meetoditest koos VBA-koodidega.

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

4 näidet andmete sisestamiseks tabelisse VBA abil Excelis

Ütleme, et meil on müüginimekiri kaupluse andmed, nagu tellimuse kuupäev, toote nimi, kogus, ühikuhind ja koguhind.

Kuidas luua tabel Excelis

aadressile pöörduda . andmekogum arvesse Exceli tabel teha järgmist...

• Valige . kogu andmestik .
• Mine et Sisestage vahekaart alates Exceli lint .
• Klõpsake kohta Tabel võimalus.

• Lõpuks klõpsake nuppu OK nupp aastal Tabeli loomise aken.

• Me oleme edukalt teisendatud . andmekogum arvesse Exceli tabel .

Andmete sisestamiseks Exceli tabelisse kasutame mitmeid VBA funktsioonid ja omadused meie kood Järgnevalt kirjeldatakse, kuidas avatud ja kirjutada koodi aastal Visual Basic toimetaja.

Koodi kirjutamine Visual Basic'i redaktoris

Järgige sammud aadressile avatud . Visual Basic toimetaja ja kirjutage sinna koodi.

• Minge Arendaja vahekaart Exceli lint .
• Klõpsake . Visual Basic valik.

• In the Visual Basic rakenduste jaoks aknas, klõpsake nuppu Sisesta rippmenüü aadressile valige . Uus moodul

Nüüd, kui uus moodul on avatud , kirjutage sinna kood ja vajutage F5 aadressile joosta.

1. Andmete sisestamine tabeli viimasele reale VBA abil Excelis

Selles näites kasutame me VBA kood, et lisada a uus rida aadressil põhi kohta tabel ja siis andmete sisestamine Meie tabelis on 4 rida aadressilt andmed Et lisada 5. , koopia ja paste järgmine kood visual basic redaktorisse.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple" .Range(3) = 5 .Range(4) = 1.77 End With End With End Sub 

Vajutage F5 aadressile käivitada . kood.

Me oleme sisestatud a uus rida aadressilt andmed aadressil põhi kohta olemasolev tabel .

Koodi selgitus:

• Meie koodis kasutasime ListObjects objekt VBA Exceli jaoks, et haarata . tabel oma nimi Lisateave, iga kohta ListObject objektid on tabel kohta tööleht . tabeli nime saamiseks, kliki kohta tabel >> kliki kohta Tabeli kujunduse vahekaart aastal Exceli lint.

• Seejärel kasutasime ListRows . Meetodi lisamine lisada uus rida aastal tabel . see meetod võtab kaks argumenti : Positsioon ja AlwaysInsert .

Sisestades täisarv , saame täpsustada suhteline positsioon kohta äsja lisatud rida aastal tabel Selles näites me jäetud tühjaks . positsiooni argument , mille tulemusena on uus rida on olnud lisatud aadressil põhi kohta tabel .

• Lõpuks määrasime andmed iga kohta rakud äsja lisatud rida Käesoleval juhul olid andmed .Range(1) = "1/1/2022" nagu OrderDate, .Range(2) = "Õun" nagu Toode, .Range(3) = 5 nagu Kogus, .Range(4) = 1.77 nagu Ühiku hind.

Loe edasi: Exceli tabeli nimi: kõik, mida peate teadma

2. VBA-koodi käivitamine andmete sisestamiseks Exceli tabeli konkreetsesse ritta

Selles illustratsioonis, me läheme lisada rida andmeid aadressil konkreetne rida seoses tabeliga kasutades sama kooditükki, mida kasutasime eespool toodud näites. Sel juhul peame lihtsalt täpsustada . Asukoha argument kohta ListRows.Add meetod meie koodis. Ütleme, et me tahame lisada müügiandmeid . Oranžikas üksikasjadega rida number 3 suhteline et olemasolev tabel Selleks, et see juhtuks, koopia ja paste järgmine kood visuaalsesse koodiredaktorisse.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.14 End With End With End Sub 

Koodi käivitamine vajutades F5 sisestatud . müügiandmed Orange'i puhul 3. rida seoses tabeliga .

Loe edasi: Exceli VBA-kood iga tabeli rea jaoks (lisamine, ülekirjutamine, kustutamine jne.)

Sarnased lugemised

• Arvutatud välja summa jagatud loendiga Pivot tabelis
• Kuidas illustreerida suhtelist sagedusjaotust Excelis
• [Fix] Pivot-tabelis ei saa kuupäevi rühmitada: 4 võimalikku lahendust
• Kuidas arvutada protsentuaalset sagedusjaotust Excelis (2 meetodit)
• Pivot tabel ei värskendata (5 probleemi & lahendused)

3. Andmete sisestamine ja ülekirjutamine tabelisse VBA abil Excelis

Siinkohal näitame, kuidas kirjutab üle . olemasolevad andmed aastal tabeli asemel aadressilt sisestamine a uus rida aadressilt andmed Selleks peame kasutama funktsiooni ListObject.ListRows omadus Excel selle asemel kohta ListRows.Add omadus me kasutasime varem . ListObject.ListRows omadus võtab ka rea number ( Tervearvuline väärtus ) kui selle argument Ütleme, et me tahame muuta . ühikuhind kohta Oranžikas alates 2.14 kuni 2.35 et me sisestatud aastal eelmine näide . Koopia ja paste alljärgnev kood visual basic redaktoris.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.35 End With End With End Sub 

Meie koodis, me komplekt . argument jaoks ListObject.ListRows omadus nagu 3 kus andmed . Oranžikas kuulub . . kood vajutades F5 ja vaata erinevus .

Kood on muudetud ainult ühikuhind kohta andmed aadressil rida number 3 suhteline et tabel .

Loe edasi: Kuidas sisestada või kustutada Exceli tabelist ridu ja veerge

4. VBA-koodi käivitamine andmete sisestamiseks Exceli tabelisse kasutaja sisestuse põhjal

Selles näites läheme me sisestada . tabeli nimi ja müügi üksikasjad a toode nagu kasutaja sisestus mitte kõvakood see on VBA kood iga kord Järgige selleks alljärgnevaid juhiseid.

• Koopia ja paste järgmine kood visuaalsesse koodiredaktorisse.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Tabeli nimi: ", Type:=2) A = Application.InputBox(Prompt:="Order Date: ", Type:=2) B = Application.InputBox(Prompt:="Product Name: ", Type:=2) C = Application.InputBox(Prompt:="Quantity: ", Type:=2) D = Application.InputBox(Prompt:="Unit Price: ",Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• Press F5 aadressile käivitada kood.
• Pane . nimi kohta tabel aastal Sisendkast ( Tabel1 , selles näites) ja vajutage OKEI.

• Seejärel pane väärtused Oder kuupäev, toote nimi, kogus, ja Ühiku hind aastal sisendkastid et ilmus järjestikku Selles näites on kasutatud järgmisi väärtusi. 1/1/2022, oranž, 3, ja 35.

• Selle tulemusena on meil uus rida koos sisestatud andmed aadressil põhi kohta tabel .

Loe edasi: Exceli tabeli vormindamise näpunäited - tabeli välimuse muutmine

Märkused

Kui me lisatud a uus rida koos andmed kasutades VBA koodi, on formaat ja valemid saada kantud et uus rida automaatselt Meie näites on TotalPrice veerg väljundid . toode veergude kohta Kogus ja Ühiku hind Me lihtsalt sisestatud ainult . Kogus ja Ühikuhinna väärtused ; the uus rida oli sisestatud koos toode neist kaks väärtust aastal Koguhinna veerg.

Kokkuvõte

Nüüd teame, kuidas VBA koodi abil Excel tabelisse andmeid sisestada. Loodetavasti aitab see teil neid meetodeid kindlamalt kasutada. Kui teil on küsimusi või ettepanekuid, ärge unustage neid allpool olevasse kommentaarikasti panna.