Excel VBA i Greu Tabl o Ystod (6 Enghraifft)

Hugh West

16-10-2023 Macros & Excel VBA
  • Rhannu Hwn
Hugh West

Wrth weithio gyda Microsoft Excel , efallai y byddwn yn defnyddio archwilio symiau mawr o ddata. Ac, trawsnewid yr ystodau data hynny yn dabl yw un o'r opsiynau mwyaf. Mae tablau Excel yn ein galluogi i ddidoli a hidlo'r data yn gyflym, ychwanegu cofnodion newydd, a diweddaru siartiau a PivotTables ar unwaith. Ac mae Excel VBA yn helpu'r defnyddiwr i addasu'r rhaglen gyda rhai codau syml yn unig. Yn yr erthygl hon, fe welwn rai enghreifftiau o Excel VBA i greu tabl o ystod.

Lawrlwytho Gweithlyfr Ymarfer

Gallwch chi lawrlwytho'r llyfr gwaith ac ymarfer gyda nhw.

Creu Tabl o Range.xlsm

6 Enghreifftiau o Excel VBA i Greu Tabl o Ystod

Dechreuodd tablau fel rhestrau yn rhifyn dewislen Excel, ond tyfodd y rheini o ran ymarferoldeb yn yr amrywiadau rhuban. Mae trosi ystod data i dabl yn ehangu gallu, gan ganiatáu i chi weithio'n gyflymach ac yn haws. I drosi'r amrediad yn dabl gan ddefnyddio VBA yw'r ffordd hawsaf na defnyddio'r rhuban.

Tybiwch, mae gennym set ddata syml sy'n cynnwys rhai eitemau yn y golofn B , nifer yr eitemau hynny yng ngholofn C , a chyfanswm gwerthiant pob eitem yng ngholofn D . Nawr, rydym am drosi'r ystod ddata yn dabl. Gadewch i ni ddangos gwahanol enghreifftiau a chyfarwyddiadau cam wrth gam i greu tabl o ystod B4:D9 gydag Excel VBA.

Defnyddiwch ListObjects .Ychwanegwch i droi aamrywio i mewn i dabl Excel. Mae gan y gwrthrych Taenlen nodwedd ListObjects . Mae gan ListObjects dechneg o'r enw Ychwanegu . Mae'r meini prawf ar gyfer .Add fel a ganlyn.

expression .Add(SourceType, Source, LinkSource, HasHeaders,Destination)

A, defnyddiwch y Math Ffynhonnell xlSrcRange .

1. Excel VBA i Gynhyrchu Tabl o Ystod

Gyda Excel VBA , gall defnyddwyr ddefnyddio'r cod sy'n gweithredu fel dewislenni excel o'r rhuban yn hawdd. I ddefnyddio'r cod VBA i gynhyrchu tabl o'r ystod, gadewch i ni ddilyn y drefn i lawr.

CAMAU:

  • Yn gyntaf, ewch i'r tab Datblygwr o'r rhuban.
  • Yn ail, o'r categori Cod , cliciwch ar Visual Basic i agor y Golygydd Sylfaenol Gweledol . Neu pwyswch Alt + F11 i agor y Golygydd Sylfaenol Gweledol .
  • Yn lle gwneud hyn, gallwch dde-glicio ar eich taflen waith a mynd i Gweld Cod . Bydd hyn hefyd yn mynd â chi i Golygydd Sylfaenol Gweledol .

  • Bydd hyn yn ymddangos yn y Golygydd Sylfaenol Gweledol lle rydym yn ysgrifennu ein codau i greu tabl o ystod.
  • Yn drydydd, cliciwch ar Modiwl o'r gwymplen Mewnosod .
    • <14

    • Bydd hyn yn creu Modiwl yn eich llyfr gwaith.
    • Ac, copïwch a gludwch y VBA cod a ddangosir isod.

    Cod VBA: 

    3556
    • Ar ôl hynny, rhedwch y cod drwy glicio ar y botwm RubSub neu wasgu'r bysellfwrddllwybr byr F5 .

    Nid oes angen i chi newid y cod. Y cyfan y gallwch chi ei wneud yw newid yr ystod yn unol â'ch gofynion.

    • Ac, yn olaf, bydd dilyn y camau yn creu tabl o ystod B4:D9 .
    Esboniad Cod VBA 
1581

Mae is yn rhan o god sy'n a ddefnyddir i drin y gwaith yn y cod ond ni fydd yn dychwelyd unrhyw werth. Fe'i gelwir hefyd yn subprocedure. Felly rydyn ni'n enwi ein gweithdrefn Creu_Table() .

5289

Dyma'r brif linell god ar gyfer trosi'r amrediad fel tabl. Fel y gwyddom eisoes mae ListObjects.Add i droi ystod yn dabl Excel. Ac rydym yn defnyddio xlSrcRange fel math o ffynhonnell. Hefyd, rydym yn datgan ein hystod Ystod (“B4: D9”) . Ac yn olaf, enwch ein tabl fel Tabl1 .

1411

Bydd hyn yn dod â'r drefn i ben.

Darllen Mwy: Sut i Ddiweddaru Pivot Amrediad Tabl (5 Dull Addas)

2. Llunio Tabl o Ystod Gan Ddefnyddio Excel VBA

Gadewch i ni weld enghraifft arall i adeiladu tabl o ystod gan ddefnyddio Excel VBA.

CAMAU:

  • Yn gyntaf, ewch i'r tab Datblygu r o'r rhuban.
  • Yn ail, cliciwch ar Visual Basic i agor y Golygydd Sylfaenol Gweledol .
  • Ffordd arall i agor y Golygydd Sylfaenol Gweledol yn syml yw pwyso Alt + F11 .
  • Neu, de-gliciwch ar y ddalen , yna dewiswch Gweld Cod .
  • Nesaf, ewch i Mewnosod adewiswch Modiwl o'r gwymplen.
  • A bydd hyn yn agor y ffenestr sylfaenol weledol.
  • Ar ôl hynny, copïwch a gludwch y cod VBA isod.

Cod VBA: 

2197
  • Ymhellach, pwyswch yr allwedd F5 neu cliciwch ar y Rhedwch Fotwm Is i redeg y cod.

  • Ac, fe gewch y canlyniad fel y dangosir yn Dull 1 .

Esboniad Cod VBA 

3083

Datganiad DIM yn VBA yn cyfeirio at “ datgan, ” a rhaid ei ddefnyddio i ddatgan newidyn. Felly, rydym yn datgan ein hystod i tb2 a thaflen waith i ws .

7105

Mae Set VBA yn syml yn ein galluogi i osgoi gorfod teipio'r amrediad y mae angen i ni ei ddewis. a throsodd wrth redeg y cod. Felly, rydyn ni'n gosod ein hystod i'r rhanbarth presennol a'n taflen waith i'r daflen waith weithredol.

5237

Gyda'r llinell hon o god, rydyn ni'n creu'r tabl o'r ystod ac yn enwi ein tabl Tabl 2 .

Darllen Mwy: Sut i Ddefnyddio Tabl Excel gyda VBA (9 Ffordd Posibl)

3. Creu Tabl o Ystod gyda VBA yn Excel

Gadewch i ni edrych ar enghraifft arall o ddefnyddio Excel VBA i greu tabl o ystod.

CAMAU: <3

  • I ddechrau, dewiswch yr ystod gyfan rydych am ei throsi'n dabl.
  • Yn ail, cliciwch y tab Datblygwr ar y rhuban.
  • >Yn drydydd, lansiwch y Golygydd Sylfaenol Gweledol drwy glicio ar VisualSylfaenol .
  • Fel arall, gallwch gael mynediad i'r Golygydd Sylfaenol Gweledol drwy wasgu Alt + F11 .
  • Neu, i'r dde -cliciwch ar y ddalen a dewis Gweld Cod o'r ddewislen.
  • Nesaf, dewiswch y Modiwl o'r gwymplen o dan Mewnosod .
  • A bydd y ffenestr gweledol sylfaenol yn ymddangos.
  • Ysgrifennwch y cod yno.

Cod VBA: 

6493
  • Yn olaf, pwyswch y bysell F5 i redeg y cod.

>
  • Ac, bydd hwn yn creu tabl o'r ystod data fel y cawsom yn Dull 1 .

    • Darllen Mwy: Sut i Wneud Tabl yn Excel (Gyda Customization )

    Darlleniadau Tebyg

    • Swm Maes Wedi'i Gyfrifo Wedi'i Rannu â Chyfrif mewn Tabl Colyn
    • Sut i Ddarlunio Dosbarthiad Amledd Cymharol yn Excel
    • Grŵp Tabl Colyn Excel fesul Wythnos (3 Enghraifft Addas)
    • [Trwsio] Dyddiadau Methu Grŵp mewn Tabl Colyn: 4 Ateb Posibl
    • Sut i Wneud Tabl Amorteiddio yn Excel (4 Dull) <1 3>

    4. Cymhwyswch VBA i Greu Tabl Dynamig o Ystod

    Gadewch i ni gael cipolwg ar ffordd arall o gynhyrchu tabl o ystod gan ddefnyddio Excel VBA.

    CAMAU:

    • I ddechrau, agorwch y rhuban a dewiswch yr opsiwn Datblygwr .
    • Yna, i gael mynediad i'r Golygydd Sylfaenol Gweledol , cliciwch ar Visual Basic .
    • Bydd pwyso Alt + F11 hefyd yn codi'r Visual BasicGolygydd .
    • Fel arall, de-gliciwch y ddalen a dewis Gweld Cod o'r ddewislen sy'n ymddangos.
    • Nawr, o'r Mewnosod opsiwn cwymplen, dewis Modiwl .
    • Yna copïwch a gludwch y cod VBA sy'n dilyn.
    0> Cod VBA: 
    9400
    • Rhedwch y cod drwy wasgu'r allwedd F5 .

    • Fel y dangosir yn narlun Dull 1 , bydd y tabl yn cael ei adeiladu o'r amrediad.

    VBA Cod Eglurhad 

    7680

    Mae'r llinell hon yn dynodi enw'r is-weithdrefn. 

    7547

    Defnyddir y ddwy linell hon ar gyfer datganiad newidyn. 

    2877

    Y Gyda mae datganiad yn eich galluogi i wneud dilyniant o osodiadau ar wrthrych unigol heb orfod ailgymhwyso enw'r gwrthrych. Felly, rydym yn amgáu'r Gyda datganiad gydag enw'r ddalen. 

    1404

    Mae'r rhain ar gyfer y drefn honno i ddod o hyd i'r rhes olaf a'r golofn olaf. 

    5902

    Ystod i greu'r tabl. 

    1498

    Creu tabl yn yr ystod a nodir uchod. 

    9976

    Pennu enw'r tabl 

    6275

    Nodwch arddull tabl.

    Darllen Mwy: Creu Tabl yn Excel Gan Ddefnyddio Llwybr Byr (8 Dull)

    5. Gwnewch Dabl Dynamig o'r Ystod

    Nawr, edrychwch ar ddull Excel VBA arall ar gyfer creu tabl o ystod.

    CAMAU:

    11>
  • I ddechrau, agorwch y rhuban a dewiswch Datblygwr o'r gwymplen.
  • Yna dewiswch Visual Basic i agor y Golygydd Sylfaenol Gweledol .
  • Gellir cael mynediad i'r Golygydd Sylfaenol Gweledol hefyd drwy wasgu Alt + F11 .
  • Fel arall, gallwch glicio ar y dde y ddalen a dewis Gweld y Cod o'r ddewislen naid.
  • Ar ôl hynny, dewiswch Modiwl o'r ddewislen 1>Mewnosod gwymplen.
  • Yna copïwch a gludwch y cod VBA canlynol.

    • Cod VBA: 

    3315
    <11
  • Yn olaf, rhedwch y cod trwy wasgu F5 ar eich bysellfwrdd a byddwch yn gweld y canlyniad yn eich taflen waith.

    • >
  • Ac, fel y dangosir yn narluniad Dull 1 , bydd y tabl yn cael ei adeiladu o'r amrediad.

    • Darllen Mwy: Sut i Gwneud i Dablau Excel Edrych yn Dda (8 Awgrym Effeithiol)

    6. Defnyddiwch Excel VBA i Adeiladu Tabl Dynamig

    Gadewch i ni archwilio ffordd Excel VBA arall o adeiladu tabl o ystod.

    CAMAU:

    • Yn y dechrau, ewch i'r tab Datblygwr > Visual Basic > Mewnosod > Modiwl .
    • Neu, bydd clicio ar y dde ar y daflen waith yn agor ffenestr. Oddi yno ewch i'r Cod Gweld .
    • Ac, bydd hyn yn mynd â chi i'r maes Golygydd Sylfaenol Gweledol , lle gallwn ysgrifennu Macros VBA.
    • Ar y llaw arall, bydd pwyso Alt + F11 hefyd yn agor y Golygydd Sylfaenol Gweledol .
    • Ar ôl hynny, teipiwch y cod VBA .

    Cod VBA: 

    3626
    • A, rhedwch y cod i weld y canlyniad erbynpwyso'r bysell F5 .

    • Ac, bydd y tabl yn cael ei greu o'r amrediad fel y dangosir yn y llun o Dull 1 .

    Darllen Mwy: Sut i Greu Tabl yn Excel gyda Data (5 Ffordd)

    Casgliad

    Bydd y dulliau uchod yn eich cynorthwyo i greu tabl o ystod yn Excel. Gobeithio bydd hyn yn eich helpu chi! Os oes gennych unrhyw gwestiynau, awgrymiadau neu adborth, rhowch wybod i ni yn yr adran sylwadau. Neu gallwch gael cipolwg ar ein herthyglau eraill yn y blog ExcelWIKI.com !

    Post blaenorol Sut i Argraffu i PDF yn Excel VBA : Gydag Enghreifftiau a Darluniau
    Post nesaf Sut i Ddefnyddio Cyfeiriad Anuniongyrchol yn Excel (4 Enghraifft)

    Mae Hugh West yn hyfforddwr a dadansoddwr Excel hynod brofiadol gyda dros 10 mlynedd o brofiad yn y diwydiant. Mae ganddo radd Baglor mewn Cyfrifeg a Chyllid a gradd Meistr mewn Gweinyddu Busnes. Mae gan Hugh angerdd am addysgu ac mae wedi datblygu dull addysgu unigryw sy’n hawdd ei ddilyn a’i ddeall. Mae ei wybodaeth arbenigol o Excel wedi helpu miloedd o fyfyrwyr a gweithwyr proffesiynol ledled y byd i wella eu sgiliau a rhagori yn eu gyrfaoedd. Trwy ei flog, mae Hugh yn rhannu ei wybodaeth gyda’r byd, gan gynnig tiwtorialau Excel am ddim a hyfforddiant ar-lein i helpu unigolion a busnesau i gyrraedd eu llawn botensial.