Tartalomjegyzék
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.
Dinamikus diagram Excel.xlsm-ben5 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 .
