Satura rādītājs
Šajā rakstā es parādīšu, kā varat izveidot dinamisku diagrammu programmā Excel, izmantojot VBA .
Lejupielādēt Practice Workbook
Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.
Dinamiskā diagramma programmā Excel.xlsm5 vienkārši soļi dinamiskās diagrammas izveidei, izmantojot Excel VBA
Šeit mums ir darblapa ar nosaukumu Lapa1 kurā ir tabula, kas satur ieņēmumi un uzņēmuma peļņu dažu gadu laikā.
Mūsu mērķis šodien ir radīt dinamiskā diagramma no šīs tabulas, izmantojot Excel VBA .
⧪ 1. solis: Visual Basic loga atvēršana
Preses ALT+F11 uz tastatūras, lai atvērtu Visual Basic logs.
⧪ 2. solis: jauna moduļa ievietošana
Dodieties uz Ievietot> Modulis iespēju rīkjoslā. Noklikšķiniet uz Modulis . Tiek izveidots jauns modulis ar nosaukumu Modulis1 tiks ievietots.
⧪ 3. solis: VBA koda ievietošana
Šis ir vissvarīgākais solis. Ievietojiet šādu informāciju. VBA Kods modulī.
⧭ VBA kods:
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 If End With Dim Sequence() As String Desired_Shapes = Array("Noapaļots taisnstūris 1", "Noapaļots taisnstūris 2", "Noapaļots taisnstūris 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)Darblapas("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=1 Darblapas("Sheet1").ListObjects("Table1").Range.AutoFilter _ Field:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 
⧪ 4. solis: darbgrāmatas saglabāšana XLSM formātā
Pēc tam atgriezieties darbgrāmatā un saglabājiet to kā Excel darbgrāmata ar makrodatoriem .
⧪ 5. solis: galīgais rezultāts
Palaist kodu no Run Sub / UserForm iespēju rīkjoslā.
Jūs atradīsiet dinamisko diagrammu, kas izveidota, pamatojoties uz tabulu, kas atrodas 2 lapa darblapā.
Lietas, kas jāatceras
Tabula ir labākais veids, kā izveidot dinamisku diagrammu. Ja tabulā pievienosiet vai noņemsiet kādu elementu, tabula automātiski pielāgosies, tāpat arī diagramma. Taču ir arī citi veidi, kā to panākt, piemēram, izmantojot elementu. Nosauktais diapazons .
