Ebben a cikkben megmutatom, hogyan hozhat létre dinamikus diagramot az Excelben a következő eszközökkel VBA .

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

5 egyszerű lépés egy dinamikus diagram létrehozásához az Excel VBA használatával

Itt van egy munkalapunk, a neve Sheet1 amely egy táblázatot tartalmaz, amely tartalmazza a bevétel és a vállalat jövedelmét néhány évig.

A mai célunk az, hogy dinamikus diagram ebből a táblázatból Excel segítségével VBA .

⧪ 1. lépés: A Visual Basic ablak megnyitása

Sajtó ALT+F11 a billentyűzeten a Visual Basic ablak.

⧪ 2. lépés: Új modul beillesztése

Menjen a Beszúrás> modul opciót az eszköztáron. Kattintson a Modul Egy új modul, a Modul1 be lesz illesztve.

⧪ 3. lépés: A VBA kód beillesztése

Ez a legfontosabb lépés. Tegye a következőket VBA Kód a modulban.

⧭ VBA kód:

 Sub Create_Dynamic_Chart() Application.ScreenUpdating = False With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor If .Brightness = 0 Then .Brightness = -0.150000006 Else .Brightness = 0 End If End With Dim Sequence() As String Desired_Shapes = Array("Rounded Rectangle 1", "Rounded Rectangle 2", "Rounded Rectangle 3") For i = LBound(Desired_Shapes) ToUBound(Desired_Shapes) With ActiveSheet.Shapes(Desired_Shapes(i)) If .Fill.ForeColor.Brightness = -0.150000006 Then Sequence(UBound(Sequence)) = .TextFrame2.TextRange.Characters.Text ReDim Preserve Sequence(UBound(Series) + 1) End If End With Next i If UBound(Sequence)> 0 Then ReDim Preserve Sequence(UBound(Sequence) - 1)Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=1 Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter _ Field:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 

⧪ 4. lépés: A munkafüzet mentése XLSM formátumban

Ezután térjen vissza a munkafüzethez, és mentse el azt egy Excel makróval támogatott munkafüzet .

⧪ 5. lépés: Végső kimenet

Futtassa a kódot a Run Sub / UserForm futtatása opciót az eszköztáron.

A táblázat alapján létrehozott dinamikus diagramot az alábbi táblázatban találja Sheet2 a munkalapon.

Emlékezetes dolgok

A táblázat a legjobb módja egy dinamikus diagram létrehozásának. Mert ha hozzáadsz vagy eltávolítasz egy elemet a táblázatból, a táblázat automatikusan alkalmazkodik, és így a diagram is. De vannak más módszerek is, például egy Megnevezett tartomány .