Obsah
V tomto článku vám ukážem, ako môžete vytvoriť dynamický graf v programe Excel pomocou VBA .
Stiahnite si cvičebnicu
Stiahnite si tento cvičebný zošit, aby ste si počas čítania tohto článku precvičili svoje zručnosti.
Dynamický graf v programe Excel.xlsm5 jednoduchých krokov na vytvorenie dynamického grafu pomocou programu Excel VBA
Tu máme pracovný hárok s názvom List1 ktorá obsahuje tabuľku obsahujúcu príjmy a zisky spoločnosti za niekoľko rokov.
Naším dnešným cieľom je vytvoriť dynamický graf z tejto tabuľky pomocou programu Excel VBA .
⧪ Krok 1: Otvorenie okna jazyka Visual Basic
Tlač ALT+F11 na klávesnici otvoriť Visual Basic okno.
⧪ Krok 2: Vloženie nového modulu
Prejdite na Vložiť> Modul možnosť na paneli nástrojov. Kliknite na Modul . Nový modul s názvom Modul1 sa vloží.
⧪ Krok 3: Vloženie kódu VBA
Toto je najdôležitejší krok. VBA Kód v module.
⧭ Kód VBA:
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("Zaoblený obdĺžnik 1", "Zaoblený obdĺžnik 2", "Zaoblený obdĺžnik 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 Pole:=1 Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter _ Pole:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 
⧪ Krok 4: Uloženie zošita vo formáte XLSM
Potom sa vráťte do zošita a uložte ho ako Pracovný zošit programu Excel s podporou makier .
⧪ Krok 5: Konečný výstup
Spustite kód z Spustiť podponuku / UserForm na paneli nástrojov.
Dynamický graf vytvorený na základe tabuľky nájdete v List2 pracovného hárku.
Čo si treba zapamätať
Tabuľka je najlepší spôsob, ako vytvoriť dynamický graf. Ak totiž pridáte alebo odstránite prvok z tabuľky, tabuľka sa automaticky prispôsobí, a tak aj graf. Existujú však aj iné spôsoby, ako to dosiahnuť, napr. pomocou Pomenovaný rozsah .
