Tässä artikkelissa havainnollistamme, miten voidaan insert tiedot osaksi Excel taulukko käyttämällä VBA koodi Excelin sisäänrakennettujen ominaisuuksien ja menetelmien avulla voimme helpottaa tietojen lisäämistä tai korvaamista taulukkoon helposti. Tutustutaan esimerkkeihin, jotta saamme selkeän käsityksen menetelmistä ja VBA-koodeista.

Lataa harjoituskirja

Lataa tämä harjoituskirja, jotta voit harjoitella tätä artikkelia lukiessasi.

4 esimerkkiä tietojen lisäämisestä taulukkoon VBA: n avulla Excelissä

Sanotaan, että meillä on myyntiluettelo myymälän tiedot, kuten tilauspäivä, tuotteen nimi, määrä, yksikköhinta ja kokonaishinta.

Taulukon luominen Excelissä

Osoitteeseen käänny ... dataset osaksi Excel-taulukko Tee seuraavat toimet...

• Valitse ... koko aineisto .
• Mene ...ja... Lisää-välilehti alkaen Excel-nauha .
• Klikkaa on Taulukko vaihtoehto.

• Napsauta lopuksi OK-painike vuonna Luo taulukko -ikkuna.

• Olemme menestyksekkäästi muunnettu ... dataset osaksi Excel-taulukko .

Jotta voimme lisätä tietoja Excel-taulukkoon, käytämme useita seuraavia keinoja VBA-toiminnot ja ominaisuudet meidän koodi Seuraavassa osassa kuvataan, miten avoin ja kirjoittaa koodia vuonna Visual Basic Editor.

Kirjoita koodia Visual Basic Editorissa

Seuraa vaiheet osoitteeseen avoin ... visuaalinen perus editori ja kirjoita sinne koodia.

• Mene osoitteeseen Kehittäjä välilehdeltä Excel-nauha .
• Klikkaa ... Visual Basic -vaihtoehto.

• Vuonna Visual Basic for Applications ikkunassa, napsauta Lisää pudotusvalikko osoitteeseen valitse ... Uusi moduuli

Nyt kun uusi moduuli on avattu , kirjoita sinne koodia ja paina F5 osoitteeseen juosta.

1. Tietojen lisääminen taulukon viimeiselle riville VBA:n avulla Excelissä

Tässä esimerkissä käytämme VBA koodi lisää a uusi rivi osoitteessa pohja of the taulukko ja sitten lisää tiedot Taulukossamme on 4 riviä of tiedot . Lisätäksesi Viides , kopioi ja liitä seuraava koodi Visual Basic -editoriin.

 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 

Paina F5 osoitteeseen ajaa ... koodi.

Me olemme lisätty a uusi rivi of tiedot osoitteessa pohja of the olemassa oleva taulukko .

Koodi Selitys:

• Koodissamme käytimme ListObjects objekti VBA Excelin tartu ... taulukko ja sen nimi Lisätietoja, kukin of the ListObject esineitä on taulukko on työlehti . Saat taulukon nimen, klikkaa on taulukko >> klikkaa on Taulukon suunnittelu -välilehti vuonna Excel-nauha.

• Sitten käytimme ListRows . Lisää menetelmä lisätäksesi uusi rivi vuonna taulukko . menetelmä ottaa kaksi argumenttia : Asema ja AlwaysInsert .

Kirjoittamalla kokonaisluku , voimme määrittää suhteellinen asema of the äskettäin lisätty rivi vuonna taulukko Tässä esimerkissä jätetty tyhjäksi ... sijaintiargumentti , minkä seurauksena uusi rivi on ollut lisätty osoitteessa pohja of the taulukko .

• Lopuksi asetamme tiedot kukin of the solut vastikään lisätty rivi Tässä tapauksessa tiedot olivat .Range(1) = "1/1/2022" kuten OrderDate, .Range(2) = "Omena" kuten Tuote, .Range(3) = 5 kuten Määrä, .Range(4) = 1.77 kuten Yksikköhinta.

Lue lisää: Excel-taulukon nimi: Kaikki mitä sinun tarvitsee tietää

2. Suorita VBA-koodi tietojen lisäämiseksi Excel-taulukon tietylle riville.

Tässä kuvituksessa aiomme lisätä tietorivi a tietty rivi suhteessa taulukkoon käyttämällä samaa koodia, jota käytimme edellä olevassa esimerkissä. Tässä tapauksessa meidän tarvitsee vain tehdä Määritä ... Sijaintiargumentti of the ListRows.Add menetelmä Sanotaan, että haluamme käyttää koodissamme lisätä myyntitietoja osoitteessa Oranssi yksityiskohtaiset tiedot osoitteessa rivi numero 3 suhteellinen osoitteeseen olemassa oleva taulukko . Jotta tämä tapahtuisi, kopioi ja liitä seuraavat koodi visuaaliseen koodieditoriin.

 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 

Koodin suorittaminen painamalla F5 lisättiin ... myyntitiedot Oranssin osalta 3. rivi suhteessa taulukkoon .

Lue lisää: Excel VBA -koodi jokaiselle taulukon riville (Lisää, korvaa, poista jne.)

Samanlaisia lukemia

• Laskettu kentän summa jaettuna lukumäärällä Pivot-taulukossa
• Kuinka havainnollistaa suhteellinen frekvenssijakauma Excelissä
• [Korjaus] Päivämääriä ei voi ryhmitellä Pivot-taulukossa: 4 mahdollista ratkaisua
• Kuinka laskea prosentuaalinen taajuusjakauma Excelissä (2 menetelmää)
• Pivot-taulukko ei päivity (5 ongelmaa & ratkaisut)

3. Tietojen lisääminen ja korvaaminen taulukkoon VBA:n avulla Excelissä

Tässä havainnollistamme, miten korvaa ... olemassa olevat tiedot in a taulukko sen sijaan of lisäämällä a uusi rivi of tiedot Sitä varten meidän on käytettävä komentoa ListObject.ListRows -ominaisuus Excelin sen sijaan of the ListRows.Add ominaisuus käytimme aiemmin . ListObject.ListRows -ominaisuus ottaa myös rivin numero ( Kokonaisluku arvo ) sen argumentti Sanotaan, että haluamme muutos ... yksikköhinta of the Oranssi 2,14:stä 2,35:een että me lisätty vuonna edellinen esimerkki . Kopioi ja liitä alla oleva koodi Visual Basic -editorissa.

 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 

Meidän koodissamme, me set ... argumentti varten ListObject.ListRows -ominaisuus kuten 3 jossa tiedot osoitteessa Oranssi kuuluu . ... koodi painamalla F5 ja katso ero .

Koodi on muuttunut vain yksikköhinta of the tiedot osoitteessa rivi numero 3 suhteellinen osoitteeseen taulukko .

Lue lisää: Kuinka lisätä tai poistaa rivejä ja sarakkeita Excel-taulukosta

4. Suorita VBA-koodi tietojen lisäämiseksi Excel-taulukkoon käyttäjän syötteen perusteella.

Tässä esimerkissä aiomme insert ... taulukon nimi ja myyntitiedot a tuote kuten käyttäjän syöttö eikä kovakoodi se on VBA-koodi joka kerta Seuraa alla olevia ohjeita tämän toteuttamiseksi.

• Kopioi ja liitä seuraava koodi visuaaliseen koodieditoriin.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Taulukon nimi: ", Type:=2) A = Application.InputBox(Prompt:="Tilauspäivämäärä: ", Type:=2) B = Application.InputBox(Prompt:="Tuotteen nimi: ", Type:=2) C = Application.InputBox(Prompt:="Määrä: ", Type:=2) D = Application.InputBox(Prompt:="Yksikköhinta: ",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 

• Paina F5 osoitteeseen ajaa koodi.
• Laita ... nimi of the taulukko vuonna syöttölaatikko ( Taulukko1 tässä esimerkissä) ja paina SELVÄ.

• Laita sitten arvot Oder Date, Tuotteen nimi, Määrä, ja Yksikköhinta vuonna syöttölaatikot että ilmestyi peräkkäin Tässä esimerkissä käyttämämme arvot ovat seuraavat. 1/1/2022, oranssi, 3, ja 35.

• Tämän seurauksena meillä on uusi rivi kanssa syötetyt tiedot osoitteessa pohja of the taulukko .

Lue lisää: Excel-taulukon muotoiluvinkit - Taulukon ulkoasun muuttaminen

Huomautukset

Kun me lisätty a uusi rivi kanssa tiedot VBA-koodin avulla, VBA muotoilu ja kaavat Hanki toteutettu ...ja... uusi rivi automaattisesti Esimerkissämme TotalPrice sarake lähdöt ... tuote sarakkeista Määrä ja Yksikköhinta . Me vain vain lisätty ... Määrä ja Yksikköhinta-arvot ; the uusi rivi oli lisätty kanssa tuote näistä kaksi arvoa vuonna Kokonaishinta-sarake.

Päätelmä

Nyt tiedämme, miten tietoja lisätään Excel-taulukkoon VBA-koodin avulla. Toivottavasti se auttaa sinua käyttämään näitä menetelmiä varmemmin. Jos sinulla on kysyttävää tai ehdotuksia, älä unohda laittaa niitä alla olevaan kommenttikenttään.