Obsah
V tomto článku vám ukážu, jak můžete vytvořit dynamický graf v aplikaci Excel pomocí. VBA .
Stáhnout cvičebnici
Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.
Dynamický graf v aplikaci Excel.xlsm5 snadných kroků k vytvoření dynamického grafu pomocí aplikace Excel VBA
Zde máme pracovní list s názvem List1 která obsahuje tabulku obsahující příjmy a zisků společnosti za několik let.
Naším dnešním cílem je vytvořit dynamický graf z této tabulky pomocí aplikace Excel VBA .
⧪ Krok 1: Otevření okna Visual Basicu
Tisk ALT+F11 na klávesnici, abyste otevřeli Visual Basic okno.
⧪ Krok 2: Vložení nového modulu
Přejděte na Vložit> Modul na panelu nástrojů. Klikněte na Modul . Nový modul s názvem Modul1 bude vložen.
⧪ Krok 3: Vložení kódu VBA
Toto je nejdůležitější krok. Vložte následující údaje VBA Kód v modulu.
⧭ 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("Obdélník 1", "Obdélník 2", "Obdélník 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žení sešitu ve formátu XLSM
Poté se vraťte do sešitu a uložte jej jako Sešit aplikace Excel s podporou maker .
⧪ Krok 5: Konečný výstup
Spusťte kód z Run Sub / UserForm na panelu nástrojů.
Dynamický graf vytvořený na základě tabulky najdete v části List2 pracovního listu.
Na co nezapomenout
Tabulka je nejlepším způsobem, jak vytvořit dynamický graf. Pokud totiž přidáte nebo odeberete prvek z tabulky, tabulka se automaticky přizpůsobí, a stejně tak i graf. Existují však i jiné způsoby, jak toho dosáhnout, např. pomocí nástroje Pojmenovaný rozsah .
