Diagramok az Excel VBA-ban

A megjelenítés nagyon fontos minden adatban. Ha az adatokat táblázatokban és pivotban mutatjuk be, akkor az excel szempontjából egy másik felhasználó számára nehéz lehet megérteni a fő forgatókönyvet az adatokból. Tehát az excelben diagramok vannak az adatok bemutatására. A grafikonok az adatok vizuális ábrázolása az Excel lap sorában és oszlopában. Most mindannyian tudjuk, hogyan kell diagramot beszúrni egy Excel munkalapba. Ebben a témában megismerjük a diagramok használatát a VBA-ban. Olyan egyszerű, mint az Excelben a grafikonokat használjuk. Most, mint egy munkalapon, ahol különféle diagramok vannak, amelyekhez hasonlóan választhatunk, a VBA összes diagramja objektumként is szerepel. Csak annyit kell tennünk, hogy felhívjuk az objektumot annak használatához. Diagramokat készíthetünk a VBA-ból ugyanabban a munkalapban vagy külön diagramlapon. A zavarok elkerülése érdekében azonban a legelőnyösebb a táblázatokat külön lapban használni.

Most mi a diagram a VBA-ban? A diagramok egyszerű objektumok a VBA-ban. Kétféle diagramot készíthetünk a VBA-ban. Az egyik diagramlapként, míg a másik beágyazott diagramként ismert. A diagramlapon a VBA új munkalapot hoz létre a diagramhoz. A referenciaadatokat forrásként adjuk meg, amely egy másik munkalap. A beágyazott diagramok azok a diagramok, amelyek az adatok ugyanazon munkalapján találhatók. Most a két diagramtípus kódolása kissé különbözik egymástól, amit ebben a témában tanulunk. A diagram tulajdonságainak a VBA-ban való felhasználásához Intelligensként pont (.) Szimbólumot használunk. Most emlékeznünk kell egy dologra, hogy különféle diagramok léteznek az Excelben. Ha nem adunk meg diagramtípust a kódunknak, akkor a VBA alapértelmezés szerint automatikusan oszlopdiagramot készít nekünk. Nyilvánvaló, hogy ezt néhány kódsorral megváltoztathatjuk.

Hogyan hozhatunk létre diagramokat az Excel VBA alkalmazásban?

Most tanuljunk meg néhány diagram segítségével az diagramok készítését az Excel VBA alkalmazásban.

Itt töltheti le a VBA Charts Excel sablont - VBA Charts Excel Template

Az összes példához az 1. lapon található adatokat vesszük figyelembe, az alábbiak szerint:

Excel VBA diagramok - 1. példa

Először tanuljunk meg egy diagram beszúrását a VBA-ban, ehhez hajtsa végre az alábbi lépéseket:

1. lépés: Indítsa el az alfolyamatot az alábbiak szerint.

Kód:

 Aldiagramok1 () Albekezdés vége

2. lépés: Nyisson meg egy változót diagramobjektumként.

Kód:

 Aldiagramok () Dim Cht Mint a diagram vége Sub

3. lépés: A diagramok használatához meg kell hívnunk az add módszert az alábbiak szerint.

Kód:

 Al Charts1 () Dim Cht Mint Chart Set Cht = Charts.Add End Sub

4. lépés: A diagramobjektum tulajdonságainak használatához illesszen be egy kódot az alább látható módon egy kóddal.

Kód:

 Al Charts1 () Dim Cht Mint Chart Set Cht = Charts.Add With Cht End with End Sub

5. lépés: Most adjunk egy forrást ehhez a diagramhoz, kezdjük egy dot operátorral, és ez további lehetőségeket kínál nekünk. Írja be az alábbi kódot, hogy beírja a diagram forrását.

Kód:

 Al Charts1 () Dim Cht Mint Chart Set Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") End with End Sub

6. lépés: Ne felejtse el, hogy nem adott meg semmilyen diagramtípust, először futtassa a fenti kódot az F5 billentyű lenyomásával és ellenőrizze, hogy milyen típusú diagram kerül beillesztésre.

Létrehoztunk egy új lapot, amelyet úgynevezett diagramnak hívunk, és benne van a diagramunk is.

7. lépés: Adjuk meg a kódnak azt a diagramtípust, amelyet használni szeretnénk ennek a reprezentációnak,

8. lépés: Válasszunk 3D-s területet erre a példára az alább látható módon,

Kód:

 Al Charts1 () Dim Cht Mint Diagramkészlet Cht = Charts.Add Cht .SetSourceData Forrás: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End With End Sub

9. lépés: Futtassa a kódot az F5 billentyű megnyomásával vagy a Play gombra kattintással, és ellenőrizze a táblázat típusát a munkalapon.

Ne feledje, minden alkalommal, amikor futtatjuk a kódot, új diagramlap készül nekünk. Ezt diagramlapnak is nevezik, mert egy másik lapon diagramokat hoz létre.

Excel VBA diagramok - 2. példa

Készítsünk beágyazott diagramot, amely azt jelenti, hogy a forrásadatok táblázata tartalmazza. Ehhez az alábbi lépéseket követve hozhat létre diagramot az Excel VBA-ban.

1. lépés: Ugyanebben a modulban indítsa el a következő alprocesszort.

 Kód: Al Charts2 () End Sub

2. lépés: ismét deklarálja a változót diagramtípusként az alábbiak szerint.

Kód:

 Aldiagramok () Dim Cht1 Mint a diagram vége Sub

3. lépés: A beágyazott diagramok közötti különbség az, hogy a munkalapot, amelyben az adatok aktív lapként szerepelnek, az alábbiakban bemutatott kód szerint mutatjuk be.

Kód:

 Aldiagramok2 () Dim Cht1 Mint diagramkészlet Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

4. lépés: Most, hogy a diagramok készítése és megtervezése a többi részben hasonló, újra beillesztettük a kódot az alábbiak szerint.

Kód:

 Aldiagramok2 () Dim Cht1 Mint diagramkészlet Cht1 = ActiveSheet.Shapes.AddChart.Chart Cht1-vel Vége a végsõvel

5. lépés: Adjuk meg azt a helyet, ahol a diagram lesz, mivel nem akarjuk, hogy az adatok fölött legyen, tehát mielőtt a Nyilatkozattal adjuk hozzá a következő kódot, ahol a diagramot az alábbiak szerint állítottuk be.

Kód:

 Aldiagramok2 () Dim Cht1 Mint diagramkészlet Cht1 = ActiveSheet.Shapes.AddChart (Balra: = 200, Szélesség: = 300, Felül: = 50, Magasság: = 300) .Kartum a Cht1-vel

6. lépés: Most adja meg a következő adatok forrását és a kívánt diagramtípust.

Kód:

 Aldiagramok2 () Dim Cht1 Mint diagramkészlet Cht1 = ActiveSheet.Shapes.AddChart (Balra: = 200, Szélesség: = 300, Felül: = 50, Magasság: = 300) .Kartal a Cht1-vel .SetSourceData Forrás: = Lapok ("1. lap ") .Range (" A1: B6 ") .ChartType = xl3DArea End With End Sub

7. lépés: Futtassa a kódot az F5 billentyű lenyomásával vagy a Lejátszás gombra kattintással, és az eredményt a lapon láthatja, ahol az adatok a következők.

Ezt beágyazott diagramnak nevezzük, mivel a diagram ugyanabban a lapon található, mint az adat.

Excel VBA diagramok - 3. példa

Van még egy módszer a diagram létrehozására a munkalapokban a VBA használatával. Ez a módszer ChartsObject módszer néven ismert.

1. lépés: Ugyanazon modulban kezdjük el egy harmadik alfolyamatot az alábbiak szerint.

Kód:

 Aldiagramok3 () Albekezdés vége

2. lépés: Kúp munkalap adatként írjon be egy másik tartományt és egy diagramobjektumként, az alább látható módon.

Kód:

 Aldiagramok3 () Halvány WK mint munkalap, Rng mint tartomány, Cht3 mint ChartObject Vége Al

3. lépés: Először állítsa be a munkalapot arra, ahol vannak az adatok, ebben az esetben az 1. lap.

Kód:

 Aldiagramok3 () Halk WK mint munkalap, Rng mint tartomány, Cht3 mint ChartObject Set WK = Munkalapok ("Sheet1") End Sub

4. lépés: Most válassza ki a következő adatsort.

Kód:

 Aldiagramok3 () Halványan WK mint Munkalap, Rng As Range, Cht3 As ChartObject Set WK = Munkalapok ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub

5. lépés: Most állítsa be a diagramobjektumot a diagramobjektum tulajdonság használatával történő hozzáadásához az alábbiak szerint.

Kód:

 Aldiagramok () Halvány WK Munkalapként, Rng As Range, Cht3 ChartObject Set WK = Munkalapok ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Balra: = ActiveCell.Left, szélesség: = 400, felső: = ActiveCell.Top, magasság: = 200) End Sub

6. lépés: Most adja meg a diagram forrását az alábbiak szerint.

Kód:

 Aldiagramok3 () Halvány WK mint munkalap, Rng mint tartomány, Cht3 mint ChartObject Set WK = Munkalapok ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Balra: = ActiveCell.Left, szélesség: = 400, felső: = ActiveCell.Top, magasság: = 200) Cht3.Chart.SetSourceData Forrás: = Rng End Sub

7. lépés: Most válassza ki a kívánt diagramtípust hasonlóan, az alábbiak szerint.

Kód:

 Aldiagramok3 () Halvány WK mint munkalap, Rng mint tartomány, Cht3 mint ChartObject Set WK = Munkalapok ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Balra: = ActiveCell.Left, szélesség: = 400, felső: = ActiveCell.Top, magasság: = 200) Cht3.Chart.SetSourceData Forrás: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub

8. lépés: Futtassa a kódot az F5 billentyű lenyomásával vagy a Play gombra kattintással, és az eredmény megjelenik az 1. lapon.

Dolgok, amikre emlékezni kell

  • Diagramtípus beállításával eldönthetjük, hogy milyen típusú diagramokat akarunk használni.
  • Diagram típusban az a hány alkalommal futtatjuk a kódot, amikor egy új munkalapot létrehozunk egy egyedi diagramnév alatt, amelyben egy diagram található.
  • A diagramobjektum azon lapok tagja, amelyekben mind diagramok, mind lapok egyaránt megtalálhatók.
  • A diagramobjektum használatához SET-utasítást kell használnunk a diagram első beállításához.

Ajánlott cikkek

Ez egy útmutató a VBA táblázatokhoz. Itt tárgyaljuk, hogyan lehet diagramokat készíteni Excel-ben VBA-kóddal, valamint gyakorlati példákat és letölthető Excel sablont. Megnézheti más javasolt cikkeinket -

  1. VBA PowerPoint
  2. Excel kombinációs táblázatok
  3. A VBA ellenőrző fájl létezik
  4. Excel oszlopdiagram

Kategória:

VBA