Cuprins
În acest articol, vă voi arăta cum puteți crea o diagramă dinamică în Excel folosind VBA .
Descărcați caietul de practică
Descărcați acest caiet de exerciții pentru a vă exercita în timp ce citiți acest articol.
Diagramă dinamică în Excel.xlsm5 pași simpli pentru a crea o diagramă dinamică utilizând Excel VBA
Aici avem o foaie de lucru numită Foaie1 care conține un tabel care conține venituri și a veniturilor unei companii timp de câțiva ani.
Obiectivul nostru de astăzi este de a genera o diagramă dinamică din acest tabel folosind Excel VBA .
⧪ Pasul 1: Deschiderea ferestrei Visual Basic
Presa ALT+F11 de pe tastatură pentru a deschide fereastra Visual Basic fereastră.
⧪ Pasul 2: Inserarea unui nou modul
Mergeți la Inserare> Modul din bara de instrumente. Faceți clic pe Modul Un nou modul numit Modul1 va fi introdus.
⧪ Pasul 3: Introducerea codului VBA
Acesta este cel mai important pas. Puneți următoarele VBA Codul din modul.
⧭ Cod 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("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 
⧪ Pasul 4: Salvarea caietului de lucru în format XLSM
Apoi, reveniți la registrul de lucru și salvați-l ca fișier Caietul de lucru cu macrouri Excel .
⧪ Etapa 5: Rezultatul final
Rulați codul din Rulați Sub / UserForm din bara de instrumente.
Veți găsi o diagramă dinamică creată pe baza tabelului din Foaie2 din foaia de lucru.
Lucruri de reținut
Un tabel este cel mai bun mod de a crea un grafic dinamic. Deoarece dacă adăugați sau eliminați un element din tabel, tabelul se va ajusta automat, la fel și graficul. Dar există și alte moduri de a realiza acest lucru, cum ar fi utilizarea unui element Gama numită .
