Í þessari grein munum við sýna hvernig á að setja gögn inn í Excel töflu með VBA kóði . Með hjálp innbyggðra eiginleika og aðferða Excel getum við auðveldað virkni þess að bæta við eða skrifa yfir gögn í töflu auðveldlega. Við skulum kafa ofan í dæmin til að fá skýran skilning á aðferðunum ásamt VBA kóðanum.

Hlaða niður æfingarvinnubók

Hlaða niður þessari æfingabók til að æfa á meðan þú ert að lesa þessa grein.

4 dæmi til að setja gögn inn í töflu með því að nota VBA í Excel

Segjum að við höfum sölulista yfir verslun með upplýsingum eins og pöntunardagsetningu, vöruheiti, magni, einingarverði og heildarverði.

Hvernig á að búa til töflu í Excel

Til að breyta gagnasettinu í Excel töflu , gerðu eftirfarandi-

• Veldu allt gagnasafnið .
• Farðu í flipann Insert frá Excel borði .
• Smelltu á á valkostinum Tafla .

• Smelltu loksins á OK hnappinn í glugganum Búa til töflu.

• Við höfum breytt gagnasettinu í Excel töflu .

Til að setja inn gögn inn í Excel töflu, munum við nota nokkrar VBA aðgerðir og eiginleikar í kóða okkar. Eftirfarandi kaflilýsir því hvernig á að opna og skrifa kóða í visual basic ritlinum.

Skrifaðu kóða í Visual Basic Editor

Fylgdu skrefunum til að opna visual basic ritstjóri og skrifaðu einhvern kóða þar.

• Farðu í flipann Developer frá Excel borði .
• Smelltu á valkostinn Visual Basic.

• Í glugganum Visual Basic for Applications , smelltu á Setja inn fellivalmyndina til að velja Nýja eininguna

Nú þegar ný eining er opnuð , skrifaðu einhvern kóða þar og ýttu á F5 til að keyra.

1. Setja inn gögn í síðustu röð töflu með VBA í Excel

Í þessu dæmi munum við nota VBA kóða til að bæta við a ný röð neðst í töflunni og síðan settu gögn í hana. Í töflunni okkar höfum við 4 raðir af gögnum . Til að bæta 5. einum afritaðu og límdu eftirfarandi kóða inn í Visual Basic ritilinn.

3312

Ýttu á F5 til að keyra kóðann.

Við höfum sett inn a nýja línu af gögnum á neðst í núverandi töflu .

Kóðaskýring:

• Í kóðanum okkar notuðum við ListObjects hlut í VBA Excel til að gripa töfluna með nafninu . Fyrir frekari upplýsingar, hver af ListObject hlutunum er töflu á vinnublaði . Til að fá nafn töflunnar, smelltu á töfluna >> smelltu á Table Design flipanum í Excel borði.

• Þá notuðum við ListRows . Add aðferð til að bæta nýri línu í töfluna . Þessi aðferð tekur tvær rök : Staðsetning og AlwaysInsert .

Með því að slá inn heiltölu númer , getum við tilgreint hlutfallslega stöðu í nýlega bættu línunni í töflunni . Í þessu dæmi höfum við skilið eftir auða stöðurökin , þar af leiðandi hefur nýri röð verið bætt við við neðst í töflunni .

• Að lokum setjum við gögn í hverja af hólfinu í nýlega bætt við röð . Í þessu tilviki voru gögnin .Range(1) = “1/1/2022” sem OrderDate, .Range(2) = “Apple” sem Product, .Range(3) = 5 sem Magn,  .Range(4) = 1,77 sem Einingaverð.

Lesa meira : Excel töfluheiti: Allt sem þú þarft að vita

2. Keyra VBA kóða til að setja inn gögn í ákveðna röð töflu í Excel

Í þessari mynd ætlum við að bæta við línu af gögnum í tiltekinni röð miðað við töfluna með því að nota sama kóða og við notuðum í dæminu hér að ofan. Í þessu tilfelli þurfum við bara að tilgreina Position argument í ListRows.Add aðferðinni í okkarkóða. Segjum að við viljum bæta við sölugögnum fyrir Orange með upplýsingum í línu númer 3 miðað við við núverandi töflu . Til að þetta gerist skaltu afrita og líma eftirfarandi kóða inn í sjónræna kóða ritilinn.

6143

Keyra kóðann með því að ýta á F5 setti sölugögnin fyrir Orange inn í 3. röð miðað við töfluna .

Lesa Meira: Excel VBA kóða fyrir hverja röð í töflu (bæta við, skrifa yfir, eyða osfrv.)

Svipuð lestur

• Reiknuð reitssumma deilt með fjölda í snúningstöflu
• Hvernig á að sýna hlutfallslega tíðnardreifingu í Excel
• [Fix] Ekki er hægt að flokka dagsetningar í snúningstöflu: 4 mögulegar lausnir
• Hvernig á að reikna út prósentudreifingu í Excel (2 aðferðir)
• Snúningstafla endurnýjar ekki (5 mál og lausnir)

3. Setja inn og skrifa yfir gögn í töflu með því að nota VBA í Excel

Hér munum við sýna hvernig á að skrifa yfir gögnin sem fyrir eru í tafla í staðinn fyrir að setja inn a nýja línu af gögnum . Til að gera það þurfum við að nota ListObject.ListRows eiginleikann í Excel í stað fyrir ListRows.Add eignina við notuðum fyrr . Eiginleikinn ListObject.ListRows tekur einnig línunúmer ( Heildtala gildi ) sem rök . Segjum að við viljum breyta einingaverðið á Orange frá 2,14 til 2,35 sem við settum inn í fyrra dæmi . Afritu og límdu eftirfarandi kóða fyrir neðan í Visual Basic ritlinum.

5696

Í kóðanum okkar, við settum rökin fyrir ListObject.ListRows eignina sem 3 þar sem gögnin fyrir Appelsínugult tilheyrir . Keyrðu kóðann með því að ýta á F5 og sjáðu muninn .

Kóðinn hefur breytti aðeins einingaverði á gögnunum í línu númer 3 miðað við við töfluna .

Lesa meira: Hvernig á að setja inn eða eyða línum og dálkum úr Excel töflu

4. Keyra VBA kóða til að setja gögn inn í Excel töflu byggt á innslátt notanda

Í þessu dæmi ætlum við að setja inn töfluheiti og söluupplýsingar fyrir vöru sem notandainntak frekar en harður kóða það í VBA kóðanum hver tími . Fylgdu leiðbeiningunum hér að neðan til að ná þessu.

• Afritu og límdu eftirfarandi kóða inn í sjónræna kóðaritilinn.

6273

• Ýttu á F5 til að keyra kóðann.
• Settu nafnið í töflunni í inntaksreitnum ( Tafla1 , í þessu dæmi) og ýttu á OK.

• Settu síðan gildin fyrir Oder Date, Vöruheiti, Magn, og Einingaverð í inntaksboxin sem birtust í röð . Í þessu dæmi eru gildin sem við notuðum 1/1/2022, Orange, 3, og 35.

• Í kjölfarið höfum við fengið nýja línu með innsettu gögnunum neðst neðst á borðinu .

Lesa meira: Excel töflusnið ráðleggingar – Breyttu útliti töflunnar

Athugasemdir

Þegar við bættum við nýrri línu með gögnum með VBA kóða, sniði og formúlum farast sjálfkrafa í nýju línuna . Í dæminu okkar gefur Heildarverð dálkur afurð í dálkunum Magn og Einingaverð . Við settum bara inn gildin Magn og Einingaverð ; nýja röðin var sett inn með vöru af þessum tveimur gildum í dálknum Heildarverð.

Niðurstaða

Nú vitum við hvernig á að setja gögn inn í Excel töflu með VBA kóða. Vonandi myndi það hjálpa þér að nota þessar aðferðir af meiri öryggi. Allar spurningar eða tillögur ekki gleyma að setja þær í athugasemdareitinn hér að neðan.