Šajā rakstā mēs ilustrēsim, kā ievietot dati uz Excel tabula izmantojot VBA kods . Izmantojot Excel iebūvētās īpašības un metodes, mēs varam viegli atvieglot datu pievienošanas vai pārrakstīšanas funkcionalitāti tabulā. Iegremdēsimies piemēros, lai gūtu skaidru izpratni par metodēm kopā ar VBA kodiem.

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

4 piemēri datu iestarpināšanai tabulā, izmantojot VBA programmā Excel

Pieņemsim, ka mums ir pārdošanas saraksts veikala informāciju, piemēram, pasūtījuma datumu, produkta nosaukumu, daudzumu, vienības cenu un kopējo cenu.

Kā izveidot tabulu programmā Excel

Uz pagrieziens . datu kopa uz Excel tabula , veiciet šādas darbības.

• Atlasiet . visu datu kopu .
• Go uz Ievietot cilni no Excel lente .
• Noklikšķiniet uz par Tabula iespēja.

• Visbeidzot noklikšķiniet uz Poga OK in the Izveidot tabulas logu.

• Mēs esam veiksmīgi pārveidots . datu kopa uz Excel tabula .

Lai ievietotu datus Excel tabulā, mēs izmantosim vairākus VBA funkcijas un īpašības mūsu kods . Nākamajā sadaļā aprakstīts, kā atvērts un rakstīt kodu in the Visual Basic redaktors.

Koda rakstīšana programmā Visual Basic Editor

Sekojiet soļi uz atvērts . Visual Basic redaktors un uzrakstiet tajā kodu.

• Dodieties uz Izstrādātājs cilnē Excel lente .
• Noklikšķiniet uz . Visual Basic opcija.

• In the Visual Basic lietojumprogrammām logā noklikšķiniet uz Ievietot nolaižamo logu uz atlasīt . Jauns modulis

Tagad, kad jauns modulis ir . atvērts , uzrakstiet tur kodu un nospiediet F5 uz palaist.

1. Datu ievietošana tabulas pēdējā rindā, izmantojot VBA programmā Excel

Šajā piemērā mēs izmantosim VBA kodu, lai pievienot a jauna rinda pie apakšā no tabula un pēc tam ievietot datus tajā. Mūsu tabulā ir 4 rindas no dati . Lai pievienotu 5. , kopēt un ielīmēt vizuālā pamata redaktorā ievadiet šādu kodu.

 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 

Nospiediet F5 uz palaist . kods.

Mēs esam ievietots a jauna rinda no dati pie apakšā no esošā tabula .

Koda skaidrojums:

• Mūsu kodā mēs izmantojām ListObjects objekts VBA Excel, lai paķert . tabula ar tās nosaukums . Sīkākai informācijai, katrs no ListObject objekti ir tabula par darba lapa . Lai iegūtu tabulas nosaukumu, noklikšķiniet uz par tabula >> noklikšķiniet uz par Cilne Tabulu dizains in the Excel lente.

• Pēc tam mēs izmantojām ListRows . Pievienot metodi lai pievienotu jauna rinda in the tabula . Šis metode aizņem divi argumenti : Pozīcija un AlwaysInsert .

Ievadot vesels skaitlis , mēs varam norādīt relatīvā pozīcija no jaunpievienotā rinda in the tabula Šajā piemērā mēs atstāts tukšs . pozīcijas arguments , kā rezultātā jauna rinda ir pievienots pie apakšā no tabula .

• Visbeidzot, mēs iestatām datus katrs no šūnas no jaunā pievienotā rinda Šajā gadījumā dati bija .Range(1) = "1/1/2022" kā OrderDate, .Range(2) = "Apple" kā Produkts, .Range(3) = 5 kā Daudzums, .Range(4) = 1,77 kā Vienības cena.

Lasīt vairāk: Excel tabulas nosaukums: viss, kas jums jāzina

2. VBA koda palaišana, lai programmā Excel ievietotu datus noteiktā tabulas rindā

Šajā attēlā mēs pievienot datu rindu pie konkrētu rindu attiecībā pret tabulu izmantojot to pašu kodu, ko izmantojām iepriekš minētajā piemērā. Šajā gadījumā mums ir nepieciešams tikai norādiet . Pozīcijas arguments no ListRows.Add metode mūsu kodā. Pieņemsim, ka mēs vēlamies pievienot pārdošanas datus vietnē Orange sīkāka informācija ir sniegta 3. rindas numurs relatīvais uz esošā tabula . Lai tas notiktu, kopēt un ielīmēt šādus elementus. kods vizuālajā koda redaktorā.

 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 

Koda palaišana pēc nospiežot F5 ievietots . pārdošanas dati par apelsīnu krāsā 3. rinda attiecībā pret tabulu .

Lasīt vairāk: Excel VBA kods katrai tabulas rindai (pievienošana, pārrakstīšana, dzēšana utt.)

Līdzīgi lasījumi

• Aprēķinātā lauka summa, dalīta ar skaitu izvades tabulā
• Kā ilustrēt relatīvā biežuma sadalījumu programmā Excel
• [Labot] Nav iespējams sagrupēt datumus izvelkamajā tabulā: 4 iespējamie risinājumi
• Kā aprēķināt procentuālo frekvenču sadalījumu programmā Excel (2 metodes)
• Pivot tabulas neatjaunošana (5 problēmas & amp; risinājumi)

3. Datu ievietošana un pārrakstīšana tabulā, izmantojot VBA programmā Excel

Šeit mēs ilustrēsim, kā pārrakstīt . esošie dati ar tabulu vietā no ievietošana a jauna rinda no dati Lai to izdarītu, mums ir jāizmanto ListObject.ListRows īpašība Excel tā vietā no ListRows.Add īpašība mēs izmantojām iepriekš . ListObject.ListRows īpašība ņem arī rindas numurs ( Vesels skaitlis vērtība ) kā tās arguments . Teiksim, mēs vēlamies mainīt . vienības cena no Orange no 2,14 līdz 2,35 ka mēs ievietots in the iepriekšējais piemērs . Kopēt un ielīmēt vizuālā pamata redaktorā ievadiet šādu kodu.

 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 

Mūsu kodā, mēs iestatīt . arguments par ListObject.ListRows īpašība kā 3 kur dati vietnē Orange pieder ... . kods nospiežot F5 un skatiet atšķirība .

Kodā ir mainīts tikai vienības cena no dati vietnē 3. rindas numurs relatīvais uz tabula .

Lasīt vairāk: Kā ievietot vai dzēst rindas un kolonnas no Excel tabulas

4. VBA koda palaišana, lai ievietotu datus Excel tabulā, pamatojoties uz lietotāja ievadītajiem datiem

Šajā piemērā mēs ievietot . tabulas nosaukums un pārdošanas informācija no produkts kā lietotāja ievadi nevis cietais kods to VBA kods katru reizi Lai to paveiktu, izpildiet tālāk sniegtos norādījumus.

• Kopēt un ielīmēt vizuālajā koda redaktorā ievadiet šādu kodu.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Tabulas nosaukums: ", Type:=2) A = Application.InputBox(Prompt:="Pasūtījuma datums: ", Type:=2) B = Application.InputBox(Prompt:="Preces nosaukums: ", Type:=2) C = Application.InputBox(Prompt:="Daudzums: ", Type:=2) D = Application.InputBox(Prompt:="Vienības cena: ",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 End Sub 

• Spiediet F5 uz palaist kodu.
• Ievietot . nosaukums no tabula in the ievades lodziņš ( tabula1 , šajā piemērā) un nospiediet LABI.

• Tad ielieciet vērtības Pasūtījuma datums, produkta nosaukums, daudzums, un Vienības cena in the ievades lodziņi ka parādījās secīgi . Šajā piemērā izmantotās vērtības ir šādas. 1/1/2022, Orange, 3, un 35.

• Rezultātā mums ir jauna rinda ar ievietotie dati pie apakšā no tabula .

Lasīt vairāk: Excel tabulas formatēšanas padomi - tabulas izskata maiņa

Piezīmes

Kad mēs pievienots a jauna rinda ar dati izmantojot VBA kodu. formāts , un formulas saņemiet veikta uz automātiski izveido jaunu rindu . Mūsu piemērā Kopējā cena sleja izejas . produkts kolonnas Daudzums , un Vienības cena . Mēs vienkārši ievietots tikai . Daudzums un Vienības cenas vērtības ; ; jauna rinda bija ievietots ar produkts no šiem divas vērtības in the Kopējās cenas sleja.

Secinājums

Tagad mēs zinām, kā ievietot datus Excel tabulā, izmantojot VBA kodu. Cerams, ka tas palīdzēs jums pārliecinošāk izmantot šīs metodes. Ja rodas kādi jautājumi vai ieteikumi, neaizmirstiet tos ievietot komentāru lodziņā zemāk.