Sisukord
Selles artiklis näitan teile, kuidas saate Excelis luua dünaamilise diagrammi, kasutades järgmist. VBA .
Lae alla praktiline töövihik
Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.
Dünaamiline diagramm Excel.xlsm5 lihtsat sammu dünaamilise diagrammi loomiseks Exceli VBA abil
Siin on meil tööleht nimega Leht1 mis sisaldab tabelit, mis sisaldab tulud ja ettevõtte tulusid mõne aasta jooksul.
Meie tänane eesmärk on luua dünaamiline diagramm sellest tabelist Exceli abil VBA .
⧪ 1. samm: Visual Basic'i akna avamine
Press ALT+F11 klaviatuuril, et avada Visual Basic aken.
⧪ 2. samm: uue mooduli sisestamine
Minge Insert> moodul valiku tööriistaribal. Klõpsake Moodul Uus moodul nimega Moodul1 sisestatakse.
⧪ 3. samm: VBA koodi sisestamine
See on kõige tähtsam samm. Pange järgmine VBA Kood moodulis.
⧭ VBA kood:
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. samm: töövihiku salvestamine XLSM-vormingus
Seejärel naaske töövihikusse ja salvestage see kui Exceli makrofunktsiooniga töövihik .
⧪ 5. samm: lõplik väljund
Käivita kood koodist Run Sub / UserForm valik tööriistaribal.
Leiad dünaamilise diagrammi, mis on loodud tabeli põhjal, aadressil Leht2 töölehel.
Asjad, mida meeles pidada
Tabel on parim viis dünaamilise diagrammi loomiseks. Sest kui te lisate või eemaldate tabelist mõne elemendi, kohandub tabel automaatselt, ja nii ka diagramm. Kuid on ka teisi viise, kuidas seda saavutada, näiteks kasutades Nimeline vahemik .
