Sisällysluettelo
Tässä artikkelissa näytän, miten voit luoda dynaamisen kaavion Excelissä käyttämällä VBA .
Lataa harjoituskirja
Lataa tämä harjoituskirja, jotta voit harjoitella tätä artikkelia lukiessasi.
Dynaaminen kaavio Excel.xlsm:ssä5 helppoa vaihetta dynaamisen kaavion luomiseen Excel VBA:n avulla
Tässä meillä on laskentataulukko nimeltä Sheet1 joka sisältää taulukon, joka sisältää tulot ja yrityksen tulosta joidenkin vuosien ajan.
Tavoitteenamme on tänään tuottaa dynaaminen kaavio tästä taulukosta Excelin avulla VBA .
⧪ Vaihe 1: Visual Basic -ikkunan avaaminen
Paina ALT+F11 näppäimistöllä avataksesi Visual Basic ikkuna.
⧪ Vaihe 2: Uuden moduulin lisääminen
Mene osoitteeseen Insert> Moduuli Valitse työkalupalkista vaihtoehto. Napsauta Moduuli Uusi moduuli nimeltä Moduuli1 lisätään.
⧪ Vaihe 3: VBA-koodin asettaminen
Tämä on tärkein vaihe. Laita seuraavat tiedot VBA Moduulin koodi.
⧭ VBA-koodi:
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("Pyöristetty suorakulmio 1", "Pyöristetty suorakulmio 2", "Pyöristetty suorakulmio 3") For i = LBound(Halutut_mallit) ToUBound(Halutut_muodot) With ActiveSheet.Shapes(Halutut_muodot(i)) If .Fill.ForeColor.Brightness = -0.150000006 Then Sequence(UBound(Sequence)) = .TextFrame2.TextRange.Characters.Text ReDim Preserve Sequence(UBound(Sarja) + 1) End If End With Next i If UBound(Sequence)> 0 Then ReDim Preserve Sequence(UBound(Sarja) - 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 
⧪ Vaihe 4: Työkirjan tallentaminen XLSM-muodossa.
Palaa seuraavaksi työkirjaan ja tallenna se nimellä Excel-makroilla varustettu työkirja .
⧪ Vaihe 5: Lopullinen tuotos
Suorita koodi Suorita Sub / UserForm vaihtoehto työkalupalkissa.
Löydät dynaamisen kaavion, joka on luotu taulukon perusteella osoitteessa Sheet2 laskentataulukkoa.
Muistettavat asiat
Taulukko on paras tapa luoda dynaaminen kaavio. Jos lisäät tai poistat elementin taulukosta, taulukko mukautuu automaattisesti, ja niin myös kaavio. Mutta on myös muita tapoja toteuttaa tämä, kuten käyttämällä Nimetty alue .
