Kazalo
V tem članku vam bom pokazal, kako lahko v Excelu ustvarite dinamični graf z uporabo VBA .
Prenesi delovni zvezek za prakso
Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.
Dinamični diagram v Excelu.xlsm5 enostavnih korakov za ustvarjanje dinamičnega grafikona z uporabo programa Excel VBA
Tu imamo delovni list z imenom List1 ki vsebuje tabelo z prihodki in zaslužek podjetja za nekaj let.
Naš današnji cilj je ustvariti dinamični grafikon iz te tabele z uporabo programa Excel VBA .
⧪ Korak 1: Odpiranje okna Visual Basic
Pritisnite ALT+F11 na tipkovnici, da odprete Visual Basic okno.
⧪ Korak 2: Vstavljanje novega modula
Pojdite na Vstavljanje> Modul v orodni vrstici. Kliknite na Modul . Nov modul z imenom Modul1 se vstavi.
⧪ Korak 3: Vnos kode VBA
To je najpomembnejši korak. VBA Koda v modulu.
⧭ Koda 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("Zaobljen pravokotnik 1", "Zaobljen pravokotnik 2", "Zaobljen pravokotnik 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)Delovni listi("List1").ListObjects("Tabela1").Range.AutoFilter Polje:=1 Delovni listi("List1").ListObjects("Tabela1").Range.AutoFilter _ Polje:=1, Criteria1:=Sekvenca, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 
⧪ 4. korak: Shranjevanje delovnega zvezka v obliki XLSM
Nato se vrnite v delovni zvezek in ga shranite kot Delovni zvezek Excel s podporo za makre .
⧪ 5. korak: Končni rezultat
Zaženite kodo iz Run Sub / UserForm v orodni vrstici.
Dinamični grafikon, ustvarjen na podlagi tabele, najdete v List2 delovnega lista.
Stvari, ki si jih je treba zapomniti
Tabela je najboljši način za ustvarjanje dinamičnega grafa. Če v tabelo dodate ali odstranite element, se tabela samodejno prilagodi, enako velja za graf. Vendar obstajajo tudi drugi načini za doseganje tega, kot je uporaba Poimenovani obseg .
