În acest articol, vom ilustra cum să introduceți date într-un Excel tabelul folosind VBA cod Cu ajutorul proprietăților și metodelor încorporate în Excel, putem facilita cu ușurință funcționalitatea de adăugare sau de suprascriere a datelor într-un tabel. Să ne scufundăm în exemple pentru a înțelege clar metodele împreună cu codurile VBA.

Descărcați caietul de practică

Descărcați acest caiet de exerciții pentru a vă exercita în timp ce citiți acest articol.

4 Exemple de inserare a datelor în tabel utilizând VBA în Excel

Să spunem că avem un lista de vânzare a unui magazin cu detalii precum data comenzii, numele produsului, cantitatea, prețul unitar și prețul total.

Cum să creați un tabel în Excel

La viraj la set de date într-un Tabelul Excel , faceți următoarele

• Selectați la întregul set de date .
• Du-te la fila Inserare de la Panglica Excel .
• Faceți clic pe pe Tabelul opțiune.

• În cele din urmă, faceți clic pe butonul Butonul OK în Fereastra Create Table (Creare tabel).

• Am reușit cu succes transformat la set de date într-un Tabelul Excel .

Pentru a insera date într-un tabel Excel, vom folosi mai multe instrumente Funcții VBA și proprietăți în cod Următoarea secțiune descrie cum să deschis și scrieți codul în editor visual basic.

Scrieți cod în Visual Basic Editor

Urmați etape la deschis la editor visual basic și scrieți niște cod acolo.

• Mergeți la Dezvoltator din fila Panglica Excel .
• Faceți clic pe la Opțiunea Visual Basic.

• În Visual Basic pentru aplicații faceți clic pe fereastra Inserarea picăturii la selectați la Modul nou

Acum că o modul nou este deschis , scrieți un cod acolo și apăsați F5 la a alerga.

1. Inserarea datelor la ultimul rând al unui tabel utilizând VBA în Excel

În acest exemplu, vom folosi un VBA cod la adăugați a nou rând la partea de jos a tabelul și apoi introduceți date În tabelul nostru, avem 4 rânduri de date Pentru a adăuga Al cincilea , copie și pastă următorul cod în editorul Visual Basic.

 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 Sub 

Apăsați F5 la rulează la cod.

Noi am... introdus a nou rând de date la partea de jos a tabelul existent .

Codul Explicație:

• În codul nostru, am folosit Obiect ListObjects de VBA Excel pentru apuca la tabelul cu nume Pentru mai multe informații, fiecare a ListObject obiecte este un tabelul pe foaie de lucru Pentru a obține numele tabelului, click pe tabelul >> click pe Tabel Design tabel în Panglica Excel.

• Apoi, am folosit ListRows . Adăugați metoda pentru a adăuga un nou rând în tabelul . Aceasta metoda ia două argumente : Poziția și ÎntotdeaunaInserați .

Prin introducerea unui număr întreg , putem specifica poziția relativă a rând nou adăugat în tabelul În acest exemplu, noi lăsat în alb la argument de poziție , ca urmare, un nou rând a fost adăugat la partea de jos a tabelul .

• În cele din urmă, am stabilit datele în fiecare a celule a noilor rând adăugat În acest caz, datele au fost .Range(1) = "1/1/2022" ca OrderDate, .Range(2) = "Apple" ca Produs, .Range(3) = 5 ca Cantitate, .Range(4) = 1.77 ca Preț unitar.

Citește mai mult: Numele tabelului Excel: Tot ce trebuie să știți

2. Executați un cod VBA pentru a insera date la un anumit rând al unui tabel în Excel

În această ilustrație, vom adăugarea unui rând de date la o un anumit rând în raport cu tabelul folosind aceeași bucată de cod pe care am folosit-o în exemplul de mai sus. În acest caz, trebuie doar să specificați la Argument de poziție a Metoda ListRows.Add în codul nostru. Să spunem că vrem să adăugați date de vânzare pentru Portocaliu cu detalii în rândul numărul 3 relativ la tabelul existent . pentru ca acest lucru să se întâmple, copie și pasta următoarele cod în editorul vizual de cod.

 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 Sub 

Rularea codului prin apăsarea F5 a introdus la date de vânzare pentru Orange în Al treilea rând în raport cu tabelul .

Citește mai mult: Cod VBA Excel pentru fiecare rând dintr-un tabel (Adăugare, Suprascriere, Ștergere etc.)

Lecturi similare

• Suma câmpului calculat împărțită la număr în tabelul pivotant
• Cum se ilustrează distribuția de frecvență relativă în Excel
• [Fix] Nu se pot grupa datele în tabelul pivot: 4 soluții posibile
• Cum se calculează distribuția de frecvență procentuală în Excel (2 metode)
• Tabelul pivot nu se reîmprospătează (5 probleme & soluții)

3. Inserarea și suprascrierea datelor într-un tabel utilizând VBA în Excel

Aici vom ilustra cum să suprascrie la date existente într-o tabel în schimb de introducerea a nou rând de date Pentru a face acest lucru, trebuie să folosim Proprietatea ListObject.ListRows de Excel în schimb a Proprietatea ListRows.Add am folosit mai devreme . Proprietatea ListObject.ListRows de asemenea, ia numărul rândului ( Număr întreg valoare ) ca fiind argument Să spunem că vrem să... schimbare la preț unitar a Portocaliu de la 2,14 la 2,35 că noi introdus în exemplu anterior . Copiați și pastă codul de mai jos în editorul Visual Basic.

 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 Sub 

În codul nostru, noi set la argument pentru Proprietatea ListObject.ListRows ca 3 unde date pentru Portocaliu aparține . la cod prin apăsarea F5 și să vedeți diferență .

Codul are schimbat numai preț unitar a date la rândul numărul 3 relativ la tabelul .

Citește mai mult: Cum să inserați sau să ștergeți rânduri și coloane din tabelul Excel

4. Rularea unui cod VBA pentru a insera date într-un tabel Excel pe baza datelor introduse de utilizator

În acest exemplu, vom introduceți la numele tabelului și detalii de vânzare a unui produs ca intrarea utilizatorului mai degrabă decât hardcode în Cod VBA de fiecare dată Urmați instrucțiunile de mai jos pentru a realiza acest lucru.

• Copiați și pastă următorul cod în editorul de cod vizual.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Numele tabelului: ", Type:=2) A = Application.InputBox(Prompt:="Data comenzii: ", Type:=2) B = Application.InputBox(Prompt:="Numele produsului: ", Type:=2) C = Application.InputBox(Prompt:="Cantitatea: ", Type:=2) D = Application.InputBox(Prompt:="Prețul unitar: ",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 

• Presa F5 la rulează codul.
• Puneți la nume a tabelul în caseta de intrare ( Tabelul1 , în acest exemplu) și apăsați BINE.

• Apoi, puneți valorile pentru Data comenzii, numele produsului, cantitatea, și Preț unitar în casete de intrare că a apărut secvențial În acest exemplu, valorile pe care le-am folosit sunt 1/1/2022, Orange, 3, și 35.

• Ca urmare, avem un nou rând cu date inserate la partea de jos a tabelul .

Citește mai mult: Sfaturi de formatare a tabelelor Excel - Schimbarea aspectului tabelului

Note

Când noi adăugat a nou rând cu date utilizând cod VBA, se poate utiliza format , și formule obțineți a avut loc la un nou rând în mod automat . în exemplul nostru, se utilizează TotalPrice coloana ieșiri la produs a coloanelor Cantitate , și Preț unitar Noi doar... introdus doar la Cantitate și Valorile prețului unitar ; the nou rând a fost introdus cu produs de aceste două valori în Coloana Preț total.

Concluzie

Acum, știm cum să inserăm date într-un tabel Excel folosind codul VBA. Sperăm că vă va ajuta să folosiți aceste metode cu mai multă încredere. Orice întrebări sau sugestii nu uitați să le puneți în caseta de comentarii de mai jos.