Kaaviot Excel VBA: ssa

Visualisointi on erittäin tärkeää kaikissa tiedoissa. Excelissä, kun tiedot esitetään taulukoissa ja käännettävissä, toisella käyttäjällä voi olla vaikea ymmärtää pääskenaariota tiedoista. Joten excelissä meillä on kaaviot tietojen esittämistä varten. Kaaviot ovat Excel-taulukon riveissä ja sarakkeissa olevien tietojen visuaalinen esitys. Nyt me kaikki tiedämme, kuinka lisätä kaavio Excel-taulukkoon. Tässä aiheessa opitaan kaavioiden käytöstä VBA: ssa. Se on niin yksinkertaista, kuin käytämme Excelissä kaavioita. Nyt kuin taulukossa, jossa meillä on erityyppisiä kaavioita valita samantapaisesti, meillä on kaikki VBA: n kaaviot myös objektina. Ainoa mitä meidän on tehtävä on kutsua kyseinen esine käyttämään sitä. Voimme tehdä kaavioita VBA: sta samassa laskentataulukossa tai erillisessä kaaviona. On kuitenkin suositeltavaa käyttää kaavioita erillisellä arkilla sekaannusten välttämiseksi.

Mitkä ovat VBA: n kaaviot? Kaaviot ovat yksinkertaisia ​​esineitä VBA: ssa. Voimme tehdä kahdentyyppisiä kaavioita VBA: ssa. Yksi tunnetaan kaaviona, toinen tunnetaan sulautettuina kaavioina. Kaaviolehdessä VBA luo uuden taulukon kaaviolle. Annamme lähdetiedoksi viitetiedot, jotka ovat toinen laskentataulukko. Nyt upotetut kaaviot ovat niitä kaavioita, jotka ovat samassa tietotaulukossa. Nyt näiden kahden tyyppisten kaavioiden koodaus eroaa hiukan toisistaan, mitä opimme tästä aiheesta. Käytämme kaavion ominaisuuksia VBA: lla käytämme piste (.) -Symbolia IntelliSsensenä. Nyt meidän on muistettava yksi asia, että Excelissä on erityyppisiä kaavioita. Jos emme tarjoa kaaviotyyppiä koodillemme, VBA tekee automaattisesti sarakekaavion meille oletuksena. Voimme tietysti muuttaa sen muutamalla koodirivillä.

Kuinka luoda kaavioita Excel VBA: lla?

Nyt opitaan tekemään kaavioita Excel VBA: n avulla muutamalla esimerkillä.

Voit ladata tämän VBA Charts Excel -mallin täältä - VBA Charts Excel Template

Kaikissa esimerkeissä tarkastellaan yhtä taulukossa 1 olevaa tietoa seuraavasti:

Excel VBA -kaaviot - esimerkki # 1

Ensin opitaan lisäämään kaavio VBA: han, noudata seuraavia vaiheita:

Vaihe 1: Aloita osaprosessilla seuraavasti.

Koodi:

 Alakaaviot1 () Loppu alaosaan

Vaihe 2: Ilmoita yksi muuttuja kaavioobjektiksi.

Koodi:

 Alakaaviot1 () Dim Cht Kuten kaavio Loppu alaosa

Vaihe 3: Jotta kaavioita voidaan käyttää, meidän on kutsuttava lisäämismenetelmä alla esitetyllä tavalla.

Koodi:

 Alakaaviot1 () himmennetty cht kaaviojoukkona Cht = Charts.Add End Sub

Vaihe 4: Jos haluat käyttää kaavioobjektin ominaisuuksia, lisää koodi lauseella alla olevan kuvan mukaisesti.

Koodi:

 Alakaaviot1 () himmennetty cht kaaviojoukkona Cht = kaaviot.Lisää Cht End with End Sub

Vaihe 5: Annamme nyt lähde tähän kaavioon, aloita pisteoperaattorilla ja se antaa meille muita vaihtoehtoja. Kirjoita seuraava koodi alle kirjoittaaksesi kaavion lähteen.

Koodi:

 Alakaaviot1 () himmennetty cht kaaviojoukkona Cht = kaaviot.Lisätty cht.

Vaihe 6: Muista, että emme ole toimittaneet yhtään kaaviotyyppiä, ensin suoritetaan yllä oleva koodi painamalla F5-näppäintä ja katsotaan minkä tyyppinen kaavio lisätään.

Meille on luotu uusi arkki, nimeltään Kaavio, ja siinä on kaaviomme.

Vaihe 7: Annetaan nyt koodille tyyppi kaavio, jota haluamme käyttää tähän esitykseen,

Vaihe 8: Valitsemme 3D-alue tälle esimerkille alla olevan kuvan mukaisesti,

Koodi:

 Alakaaviot1 () himmennetty cht kaaviojoukkona Cht = kaaviot.Lisää Cht .SetSourceData -lähteellä: = Arkit ("Sheet1"). Alue ("A1: B6") .ChartType = xl3DArea End with End Sub

Vaihe 9: Suorita koodi painamalla F5-näppäintä tai napsauttamalla Toista-painiketta ja tarkista kaavion tyyppi laskentataulukossa.

Muista nyt, kun suoritamme koodin, se luo meille uuden kaavion. Tätä kutsutaan myös kaaviona, koska se luo kaavioita toiseen taulukkoon.

Excel VBA -kaaviot - esimerkki 2

Tehdään nyt upotettu kaavio, joka tarkoittaa kaaviota lähdetietojen taulukossa. Luo kaavio Excel VBA: ssä seuraavien ohjeiden mukaan.

Vaihe 1: Käynnistä samassa moduulissa toinen aliohjelma seuraavasti.

 Koodi: Alakaaviot2 () Loppu alaosaan

Vaihe 2: Ilmoita muuttuja uudelleen kaavion tyypiksi seuraavasti.

Koodi:

 Alakaaviot2 () Dim Cht1 Kuten kaavio Loppu Alaosa

Vaihe 3: Upotettujen kaavioiden ero on siinä, että me kutsumme taulukkoon, jolla on tiedot aktiivisena taulukkona, seuraavalla alla esitetyllä koodilla.

Koodi:

 Alakaaviot2 () himmennetty Cht1 kaaviojoukkona Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

Vaihe 4: Nyt loput osa kaavioiden tekemisestä ja suunnittelusta ovat samanlaisia, laitamme jälleen koodiin With-lausunnon seuraavasti.

Koodi:

 Alakaaviot2 () himmennetty Cht1 kuten kaaviojoukko Cht1 = ActiveSheet.Shapes.AddChart.Chart kanssa Cht1 End with End Sub

Vaihe 5: Määritämme sijainti, jossa kaaviomme tulee olemaan, koska emme halua sen olevan tietomme yläpuolella, joten lisää seuraava koodi siihen kohtaan, johon olimme asettaneet kaavion, ennen lausunnon antamista.

Koodi:

 Alakaaviot2 () himmennetty Cht1 kuten kaaviojoukko Cht1 = ActiveSheet.Shapes.AddChart (Vasen: = 200, Leveys: = 300, Ylä: = 50, Korkeus: = 300) .Kartta Cht1: llä End with End Sub

Vaihe 6: Antakaamme nyt tietolähde ja kaaviotyyppi, jonka haluamme olla seuraavanlainen.

Koodi:

 Alakaaviot2 () Dim Cht1 kuten kaaviojoukko Cht1 = ActiveSheet.Shapes.AddChart (Vasen: = 200, Leveys: = 300, Ylä: = 50, Korkeus: = 300) .Kartta Cht1 .SetSourceData -lähteellä: = Sheets ("Sheet1 ") .Range (" A1: B6 ") .ChartType = xl3DArea End with End Sub

Vaihe 7: Suorita koodi painamalla F5-näppäintä tai napsauttamalla Toista-painiketta ja katso tulos sivullamme, jossa tiedot ovat seuraavat.

Tätä kutsutaan sulautetuksi kaavioksi, koska kaavio on samalla arkilla kuin tiedot.

Excel VBA -kaaviot - esimerkki 3

On myös toinen tapa luoda kaavio taulukkoomme VBA: n avulla. Tämä menetelmä tunnetaan nimellä ChartsObject -menetelmä.

Vaihe 1: Aloitetaan samassa moduulissa kolmannella alaprosessilla seuraavasti.

Koodi:

 Alakaaviot3 () Loppu alaosaan

Vaihe 2: Kartio laskentataulukkotiedoksi kirjoita toinen alueeksi ja yksi kaavioobjektiksi kuten alla.

Koodi:

 Alakaaviot3 () himmennetään WK työarkkitehtona, Rng asteikolla, Cht3 Kuten ChartObject End Sub

Vaihe 3: Aseta ensin laskentataulukko siihen kohtaan, missä tiedot ovat, mikä on tässä tapauksessa arkki 1.

Koodi:

 Alakaaviot3 () himmennetään WK työarkkitehtona, Rng asteikolla, Cht3 kuten ChartObject Set WK = laskentataulukot ("Sheet1") End Sub

Vaihe 4: Valitse nyt tietomme alue seuraavasti.

Koodi:

 Alakaaviot3 () himmennetään WK työarkkina, Rng asteikkona, Cht3 ChartObject Set WK = taulukot ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub

Vaihe 5: Aseta nyt karttaobjekti lisätäksesi kaavio käyttämällä karttakohteen ominaisuutta seuraavasti.

Koodi:

 Alakaaviot3 () himmennetään WK kuin taulukko, Rng asteikkona, Cht3 kuten ChartObject Set WK = taulukot ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Vasen: = ActiveCell.Left, leveys: = 400, yläosa: = ActiveCell.Top, korkeus: = 200) End Sub

Vaihe 6: Annetaan nyt kaavion lähde seuraavasti.

Koodi:

 Alakaaviot3 () himmennetään WK kuin taulukko, Rng asteikkona, Cht3 kuten ChartObject Set WK = taulukot ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Vasen: = ActiveCell.Left, leveys: = 400, ylhäällä: = ActiveCell.Top, korkeus: = 200) Cht3.Chart.SetSourceData Lähde: = Rng End Sub

Vaihe 7: Valitse nyt haluamasi kaavion tyyppi samalla tavalla seuraavasti.

Koodi:

 Alakaaviot3 () himmennetään WK kuin taulukko, Rng asteikkona, Cht3 kuten ChartObject Set WK = taulukot ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Vasen: = ActiveCell.Left, leveys: = 400, yläosa: = ActiveCell.Top, korkeus: = 200) Cht3.Chart.SetSourceData Lähde: = Rng Cht3.Chart.ChartType = xl3DSarakkeen loppuosa

Vaihe 8: Suorita koodi painamalla F5-näppäintä tai napsauttamalla Toista-painiketta ja nähdäksesi tulos sivulla 1.

Muistettavat asiat

  • Voimme päättää, minkä tyyppisiä kaavioita haluamme käyttää asettamalla kaavion tyypin.
  • Kaaviotyypissä kuinka monta kertaa suoritamme koodia, jolla uusi taulukko luodaan yksilöivällä kaavion nimellä ja kaavio siinä.
  • Kaavio-objekti on myös jäsen arkkien sisällä, joissa meillä on sekä kaavioita että arkkeja.
  • Karttaobjektin käyttämiseksi on käytettävä SET-käskyä asettaaksesi kaavio ensin.

Suositellut artikkelit

Tämä on opas VBA-kaavioihin. Tässä keskustellaan kuinka luodaan kaavioita Exceliin VBA-koodilla yhdessä käytännöllisten esimerkien ja ladattavan Excel-mallin kanssa. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA PowerPoint
  2. Excel-yhdistelmäkaaviot
  3. VBA-tarkistustiedosto on olemassa
  4. Excel-sarakekaavio

Luokka:

VBA