Diagrammid Exceli VBA-s

Visuaalsus on mis tahes andmete puhul väga oluline. Excelis, kui esitame andmed tabelites ja pöördepunktina, võib teisel kasutajal olla raske peamistest stsenaariumitest aru saada. Nii et excelis on meil oma andmete esitamiseks diagrammid. Diagrammid on exceli lehe ridades ja veergudes olevate andmete visuaalne esitus. Nüüd teame kõik, kuidas diagrammi Exceli töölehele sisestada. Selles teemas õpime tundma graafikute kasutamist VBA-s. See on nii lihtne, kui me kasutame Excelis graafikuid. Nüüd nagu töölehel, kus sama tüüpi valimiseks on meil erinevat tüüpi diagramme, on meil ka kõik VBA diagrammid objektina. Peame vaid selle objekti kasutamiseks helistama. Diagramme saame VBA-st teha samal töölehel või eraldi diagrammilehel. Segaduste vältimiseks on kõige soovitatav kasutada diagramme eraldi lehel.

Mis on edetabelid VBA-s? Diagrammid on VBA-s lihtsad objektid. VBA-s saame teha kahte tüüpi diagramme. Üks on tuntud diagrammilehena, teine ​​aga manustatud diagrammidena. Diagrammi lehel loob VBA diagrammi jaoks uue töölehe. Esitame lähteandmetena võrdlusandmed, mis on veel üks tööleht. Nüüd on manustatud diagrammid need diagrammid, mis asuvad andmete samal töölehel. Nüüd on nende kahte tüüpi diagrammide kodeerimine üksteisest pisut erinev, mida me selles teemas õpime. Diagrammi omaduste kasutamiseks VBA-s kasutame IntelliSense'ina sümbolit dot (.). Nüüd peame meeles pidama ühte asja, et Excelis on erinevat tüüpi edetabeleid. Kui me oma koodile diagrammitüüpi ei esita, teeb VBA vaikimisi meile automaatselt veergude diagrammi. Ilmselt saame seda muuta mõne koodirea võrra.

Kuidas luua diagramme Excel VBA-s?

Nüüd õppige mõne näitega, kuidas teha diagramme Excel VBA-s.

Selle VBA diagrammide Exceli malli saate alla laadida siit - VBA graafikute Exceli mall

Kõigi näidete puhul käsitleme ühte 1. lehel sisalduvat teavet järgmiselt:

Exceli VBA diagrammid - näide # 1

Esiteks andke meile teada, kuidas sisestada diagrammi VBA-s, selleks toimige järgmiselt.

1. samm: alustage alamprotseduuriga järgmiselt.

Kood:

 Alamdiagrammid1 () lõpp alamdiagrammidega

2. samm: kuulutage üks muutuja diagrammiobjektiks.

Kood:

 Alamdiagrammid1 () Dim Cht Nagu diagrammi lõpp Sub

3. samm . Diagrammide kasutamiseks peame helistama liitmismeetodile, nagu allpool näidatud.

Kood:

 Alamdiagrammid1 () Dim Cht nagu diagrammikomplekt Cht = Charts.Add End Sub

4. samm: diagrammiobjekti atribuutide kasutamiseks sisestage koodi koos avaldusega, nagu allpool näidatud.

Kood:

 Alamdiagrammid1 () Dim Cht nagu diagrammikomplekt Cht = Charts.Add with Cht End with End Sub

5. samm: andke meile nüüd diagrammi allikas, alustage punktioperaatorist ja see annab meile täiendavaid võimalusi. Diagrammi allika sisestamiseks kirjutage allpool järgmine kood.

Kood:

 Alamdiagrammid1 () Dim Cht nagu diagrammikomplekt Cht = Charts.Add with Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") End with End Sub

6. samm: ärge unustage, et me pole diagrammi tüüpi esitanud. Esmalt käivitage ülaltoodud kood, vajutades klahvi F5, ja vaadake, millist tüüpi diagramm sisestatakse.

Meil on loodud uus leht nimega Diagramm ja selles on meie diagramm.

7. samm: andkem koodile seda tüüpi diagramm, mida me selle esituse jaoks kasutada soovime,

8. samm: valime selle näite jaoks 3D ala, nagu allpool näidatud,

Kood:

 Alamdiagrammid1 () Dim Cht nagu diagrammikomplekt Cht = Charts.Lisa Cht .SetSourceData allikaga: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End with End Sub

9. samm: käivitage kood, vajutades klahvi F5 või klõpsates nuppu Esita ja kontrollige diagrammi tüüpi töölehel.

Pidage meeles, et iga kord, kui käivitate koodi, loob see meile uue diagrammi lehe. Seda nimetatakse ka diagrammileheks, kuna see loob diagramme teisel lehel.

Exceli VBA diagrammid - näide nr 2

Nüüd teeme manustatud diagrammi, mis tähendab diagrammi lähteandmete lehel. Selleks toimige diagrammi loomiseks Excel VBA-s järgmiselt.

1. samm: käivitage samal moodulil järgmine alamprotsess järgmiselt.

 Kood: alamdiagrammid2 () lõpu alamkaart

2. samm: kuulutage muutuja uuesti diagrammi tüübiks järgmiselt.

Kood:

 Alamdiagrammid2 () Dim Cht1 Nagu skeem Lõpp-alam

3. samm: manustatud diagrammide erinevus seisneb selles, et töölehel, mille andmed on aktiivse lehena, viidatakse järgmise koodiga, mis on näidatud allpool.

Kood:

 Alamdiagrammid2 () Dim Cht1 nagu diagrammikomplekt Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

4. samm: nüüd on ülejäänud diagrammide tegemise ja kujundamise osa sarnased, panime jälle koodiga avalduse järgmiselt.

Kood:

 Alamdiagrammid2 () Dim Cht1 nagu diagrammikomplekt Cht1 = ActiveSheet.Shapes.AddChart.Chart Cht1-ga End with End Sub

5. samm: täpsustagem asukoht, kus meie diagramm saab olema, kuna me ei soovi, et see ületaks meie andmeid, nii et lisage enne avaldusega järgmist koodi sinna, kuhu diagrammi seadsime, järgmiselt.

Kood:

 Alamdiagrammid2 () Dim Cht1 nagu diagrammikomplekt Cht1 = ActiveSheet.Shapes.AddChart (vasakul: = 200, laius: = 300, ülaosa: = 50, kõrgus: = 300) .Chart Cht1-ga End With End Sub

6. samm: andke nüüd andmete allikas ja diagrammitüüp, milleks tahame olla järgmised.

Kood:

 Alamdiagrammid2 () Dim Cht1 nagu diagrammikomplekt Cht1 = ActiveSheet.Shapes.AddChart (vasakul: = 200, laius: = 300, ülaosa: = 50, kõrgus: = 300) .Kart Cht1-ga .SetSourceData Allikas: = Lehed ("Sheet1 ") .Range (" A1: B6 ") .ChartType = xl3DArea End with End Sub

7. samm: käivitage kood, vajutades klahvi F5 või klõpsates nuppu Esita ja vaadake tulemust meie lehel, kus andmed on järgmised.

Seda nimetatakse manustatud diagrammiks, kuna diagramm on andmetega samal lehel.

Exceli VBA diagrammid - näide nr 3

Samuti on veel üks viis diagrammi loomiseks meie töölehtedel VBA abil. Seda meetodit nimetatakse ChartsObject-meetodiks.

1. samm: alustame samas moodulis kolmanda alamprotseduuriga järgmiselt.

Kood:

 Alamdiagrammid3 () lõpp alamdiagrammidele

2. samm: koonuse töölehe andmetena sisestage teine ​​vahemik ja üks diagrammiobjektina, nagu allpool näidatud.

Kood:

 Alamdiagrammid3 () Tühi WK töölehena, Rng vahemikuna, Cht3 Nagu ChartObject Lõpp Sub

3. samm. Esmalt määrake tööleht sinna, kus andmed asuvad, mis antud juhul on 1. leht.

Kood:

 Alamdiagrammid3 () Pähkel WK töölehena, Rng vahemikuna, Cht3 ChartObject-komplektina WK = Töölehed ("Leht1") Lõpp-alam

4. samm: valige nüüd andmevahemik järgmiselt.

Kood:

 Alamdiagrammid3 () Pähkel WK töölehena, Rng vahemikuna, Cht3 ChartObject-komplektina WK = Töölehed ("Leht1") Rng = WK.Range ("A1: B6") End Sub

5. samm: seadke nüüd diagrammiobjekt, et lisada diagramm objektiobjekti atribuudi abil järgmiselt.

Kood:

 Alamdiagrammid3 () Tühjenda WK töölehena, Rng kui vahemik, Cht3 Nagu ChartObject Set WK = töölehed ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (vasakul: = ActiveCell.Left, laius: = 400, ülemine: = ActiveCell.Top, kõrgus: = 200) End Sub

6. samm: andkem nüüd diagrammi allikas järgmiselt.

Kood:

 Alamdiagrammid3 () Tühjenda WK töölehena, Rng kui vahemik, Cht3 Nagu ChartObject Set WK = töölehed ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (vasakul: = ActiveCell.Left, laius: = 400, ülemine: = ActiveCell.Top, kõrgus: = 200) Cht3.Chart.SetSourceData Allikas: = Rng End Sub

7. samm. Valige nüüd diagrammi tüüp, mida soovite sarnaselt järgmiselt.

Kood:

 Alamdiagrammid3 () Tühjenda WK töölehena, Rng kui vahemik, Cht3 Nagu ChartObject Set WK = töölehed ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (vasakul: = ActiveCell.Left, laius: = 400, ülemine: = ActiveCell.Top, kõrgus: = 200) Cht3.Chart.SetSourceData Allikas: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub

8. samm: käivitage kood, vajutades klahvi F5 või klõpsates nuppu Esita ja vaadake tulemust 1. lehel.

Asjad, mida meeles pidada

  • Diagrammi tüübi määramise kaudu saame otsustada, millist tüüpi diagramme me soovime kasutada.
  • Diagrammi tüübi korral mitu korda käitatakse koodi, mille abil luuakse uus tööleht unikaalse diagrammi nime all koos diagrammiga.
  • Diagrammiobjekt on ka nende lehtede liige, kus meil on nii graafikuid kui ka lehti.
  • Diagrammiobjekti kasutamiseks peame diagrammi esmalt seadistamiseks kasutama SET-avaldust.

Soovitatavad artiklid

See on VBA edetabelite juhend. Siin arutatakse, kuidas luua VBA-koodi abil diagramme Excelis koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA PowerPoint
  2. Exceli kombineeritud diagrammid
  3. VBA kontrollfail on olemas
  4. Exceli tulpdiagramm

Kategooria:

VBA