V tomto článku vám ukážeme, ako vložte údaje do Excel tabuľka pomocou VBA kód . Pomocou vstavaných vlastností a metód programu Excel si môžeme uľahčiť funkčnosť pridávania alebo prepisovania údajov do tabuľky. Ponorme sa do príkladov, aby sme jasne pochopili metódy spolu s kódmi VBA.

Stiahnite si cvičebnicu

Stiahnite si tento cvičebný zošit, aby ste si počas čítania tohto článku precvičili svoje zručnosti.

4 príklady na vkladanie údajov do tabuľky pomocou VBA v programe Excel

Povedzme, že máme predajný zoznam obchodu s podrobnosťami, ako je dátum objednávky, názov produktu, množstvo, jednotková cena a celková cena.

Ako vytvoriť tabuľku v programe Excel

Na otočiť . súbor údajov do Tabuľka Excel , vykonajte tieto kroky.

• Vyberte . celý súbor údajov .
• Prejsť na stránku na Vložiť kartu z Pásmo aplikácie Excel .
• Kliknite na . na Tabuľka možnosť.

• Nakoniec kliknite na Tlačidlo OK v Okno Vytvoriť tabuľku.

• Úspešne sme konvertované . súbor údajov do Tabuľka Excel .

Na vloženie údajov do tabuľky programu Excel použijeme niekoľko Funkcie VBA a vlastnosti v našom kód V nasledujúcej časti je opísané, ako otvoriť a napísať kód v editor Visual Basic.

Písanie kódu v editore jazyka Visual Basic

Sledujte kroky na otvoriť . editor Visual Basic a napíšte tam nejaký kód.

• Prejdite na Vývojár z karty Pásmo aplikácie Excel .
• Kliknite na . . Možnosť Visual Basic.

• V Visual Basic pre aplikácie kliknite na okno Vloženie rozbaľovacieho zoznamu na vybrať . Nový modul

Teraz, keď a nový modul je . otvorené , napíšte tam nejaký kód a stlačte F5 na beží.

1. Vloženie údajov do posledného riadku tabuľky pomocou VBA v programe Excel

V tomto príklade použijeme VBA kód na pridať a nový riadok na spodná časť z tabuľka a potom vložiť údaje V našej tabuľke máme 4 riadky z údaje Ak chcete pridať 5. , kopírovať a vložte nasledujúci kód do editora 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 

Stlačte tlačidlo F5 na spustiť . kód.

My sme vložené a nový riadok z údaje na spodná časť z existujúca tabuľka .

Vysvetlenie kódu:

• V našom kóde sme použili Objekt ListObjects VBA Excelu na uchopiť . tabuľka so svojou názov Ďalšie informácie, každý z ListObject objektov je tabuľka na pracovný list . Ak chcete získať názov tabuľky, kliknite na na tabuľka >> kliknite na na Karta Návrh tabuľky v Stuha aplikácie Excel.

• Potom sme použili ListRows . Pridať metódu pridať nový riadok v tabuľka . metóda berie dva argumenty : Pozícia a VždyVložiť .

Zadaním celé číslo , môžeme určiť relatívna poloha z novo pridaný riadok v tabuľka V tomto príklade ponechať prázdne . argument pozície , v dôsledku čoho sa nový riadok bola pridané na spodná časť z tabuľka .

• Nakoniec sme nastavili údaje v každý z bunky nového pridaný riadok V tomto prípade boli údaje .Range(1) = "1/1/2022" ako OrderDate, .Range(2) = "Apple" ako Produkt, .Range(3) = 5 ako Množstvo, .Range(4) = 1.77 ako Jednotková cena.

Prečítajte si viac: Názov tabuľky programu Excel: Všetko, čo potrebujete vedieť

2. Spustenie kódu VBA na vloženie údajov do konkrétneho riadku tabuľky v programe Excel

Na tomto obrázku budeme pridať riadok údajov na konkrétny riadok vzhľadom na tabuľku pomocou toho istého kódu, ktorý sme použili vo vyššie uvedenom príklade. V tomto prípade stačí uveďte . Argument polohy z Metóda ListRows.Add v našom kóde. Povedzme, že chceme pridať údaje o predaji pre Oranžová s podrobnosťami v riadok číslo 3 relatívne na existujúca tabuľka . Aby sa to stalo, kopírovať a vložte nasledujúce kód do vizuálneho editora kódu.

 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 

Spustenie kódu podľa stlačením klávesy F5 sa vloží . údaje o predaji pre Orange v 3. riadok vzhľadom na tabuľku .

Prečítajte si viac: Kód Excel VBA pre každý riadok v tabuľke (pridanie, prepísanie, odstránenie atď.)

Podobné čítania

• Vypočítaný súčet polí delený počtom v tabuľke Pivot
• Ako znázorniť relatívne rozdelenie frekvencií v programe Excel
• [Oprava] Nie je možné zoskupiť dátumy v tabuľke Pivot: 4 možné riešenia
• Ako vypočítať percentuálne rozdelenie frekvencií v programe Excel (2 metódy)
• Neobnovenie otočnej tabuľky (5 problémov & riešenia)

3. Vkladanie a prepisovanie údajov do tabuľky pomocou VBA v programe Excel

Tu si ukážeme, ako prepísať . existujúce údaje v tabuľka namiesto toho z vkladanie a nový riadok z údaje Aby sme to mohli urobiť, musíme použiť Vlastnosť ListObject.ListRows programu Excel namiesto toho z Vlastnosť ListRows.Add sme použili skôr . Vlastnosť ListObject.ListRows trvá aj číslo riadku ( Celé číslo hodnota ) ako jeho argument . Povedzme, že chceme zmeniť . jednotková cena z Oranžová od 2,14 do 2,35 že sme vložené v predchádzajúci príklad . Kopírovať a vložte nasledujúci kód v editore 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 

V našom kóde, my nastaviť . argument pre Vlastnosť ListObject.ListRows ako 3 kde údaje pre Oranžová patrí . . kód stlačením F5 a pozrite si rozdiel .

Kód má zmenená iba jednotková cena z údaje na adrese riadok číslo 3 relatívne na tabuľka .

Prečítajte si viac: Ako vložiť alebo odstrániť riadky a stĺpce z tabuľky programu Excel

4. Spustenie kódu VBA na vloženie údajov do tabuľky programu Excel na základe vstupu používateľa

V tomto príklade budeme vložte . názov tabuľky a podrobnosti o predaji o produkt ako vstup používateľa a nie pevný kód ho v Kód VBA zakaždým Postupujte podľa nižšie uvedených pokynov.

• Kopírovať a vložte nasledujúci kód do vizuálneho editora kódu.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Názov tabuľky: ", Type:=2) A = Application.InputBox(Prompt:="Dátum objednávky: ", Type:=2) B = Application.InputBox(Prompt:="Názov produktu: ", Type:=2) C = Application.InputBox(Prompt:="Množstvo: ", Type:=2) D = Application.InputBox(Prompt:="Jednotková 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 

• Tlač F5 na spustiť kód.
• Umiestnite stránku . . názov z tabuľka v vstupné pole ( Tabuľka1 v tomto príklade) a stlačte V PORIADKU.

• Potom vložte hodnoty pre Dátum objednávky, názov výrobku, množstvo, a Jednotková cena v vstupné polia že sa objavovali postupne V tomto príklade sme použili tieto hodnoty 1/1/2022, Orange, 3, a 35.

• Výsledkom je, že máme nový riadok s vložené údaje na spodná časť z tabuľka .

Prečítajte si viac: Tipy na formátovanie tabuliek programu Excel - zmena vzhľadu tabuľky

Poznámky

Keď sme pridané a nový riadok s údaje pomocou kódu VBA. formát a vzorce získajte vykonané na nový riadok automaticky V našom príklade Celková cena stĺpec výstupy . produkt stĺpcov Množstvo a Jednotková cena . Práve sme iba vložené . Množstvo a Hodnoty jednotkovej ceny ; nový riadok bola vložené s produkt z nich dve hodnoty v Stĺpec Celková cena.

Záver

Teraz už vieme, ako vkladať údaje do tabuľky Excelu pomocou kódu VBA. Dúfame, že vám to pomôže používať tieto metódy s väčšou istotou. Akékoľvek otázky alebo návrhy nezabudnite uviesť v komentári nižšie.