Spis treści
W tym artykule pokażę Ci jak możesz stworzyć dynamiczny wykres w Excelu używając VBA .
Pobierz Zeszyt ćwiczeń
Pobierz ten zeszyt ćwiczeń, aby ćwiczyć podczas czytania tego artykułu.
Wykres dynamiczny w Excelu.xlsm5 prostych kroków do stworzenia dynamicznego wykresu przy użyciu VBA w Excelu
Mamy tu arkusz o nazwie Plansza1. który zawiera tabelę zawierającą dochód i zarobki firmy przez kilka lat.
Naszym dzisiejszym celem jest wygenerowanie dynamiczny wykres z tej tabeli przy użyciu programu Excel VBA .
⧪ Krok 1: Otwarcie okna Visual Basic
Naciśnij ALT+F11 na klawiaturze, aby otworzyć Visual Basic okno.
⧪ Krok 2: Wstawianie nowego modułu
Idź do Insert> Moduł na pasku narzędzi. kliknij na Moduł Nowy moduł o nazwie Moduł1 zostanie wstawiony.
⧪ Krok 3: Umieszczenie kodu VBA
To najważniejszy krok. Załóż VBA Kod w module.
⧭ Kod VBA:
Sub Create_Dynamic_Chart() Application.ScreenUpdating = False With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor If .Brightness = 0 Then .Brightness = -0.1500006 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) To.UBound(Desired_Shapes) With ActiveSheet.Shapes(Desired_Shapes(i)) If .Fill.ForeColor.Brightness = -0.1500006 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 Pole:=1 Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter _ Pole:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 
⧪ Krok 4: Zapisanie skoroszytu w formacie XLSM
Następnie wróć do skoroszytu i zapisz go jako Skoroszyt z obsługą makr w programie Excel .
⧪ Krok 5: Wyjście końcowe
Uruchom kod z Run Sub / UserForm opcja na pasku narzędzi.
Dynamiczny wykres utworzony na podstawie tabeli znajdziesz w Plansza2 arkusza.
Rzeczy do zapamiętania
Tabela jest najlepszym sposobem na stworzenie dynamicznego wykresu, ponieważ jeśli dodasz lub usuniesz element z tabeli, tabela automatycznie się dostosuje, tak samo jak wykres. Ale są też inne sposoby, aby to osiągnąć, jak na przykład użycie metody Nazwany zakres .
