İçindekiler
Bu makalede, Excel'de dinamik bir grafiği nasıl oluşturabileceğinizi göstereceğim VBA .
Alıştırma Çalışma Kitabını İndirin
Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.
Excel.xlsm'de Dinamik Grafik5 Kolay Adımda Excel VBA Kullanarak Dinamik Grafik Oluşturma
Burada şu adda bir çalışma sayfamız var Sayfa1 içeren bir tablo içeren Gelir ve birkaç yıl boyunca bir şirketin kazançları.
Bugünkü hedefimiz dinamik bir grafik Excel kullanarak bu tablodan VBA .
⧪ Adım 1: Visual Basic Penceresini Açma
Basın ALT+F11 açmak için klavyenizdeki Visual Basic Pencere.
⧪ Adım 2: Yeni Bir Modül Ekleme
Şuraya git Insert> Modül seçeneğine tıklayın. Modül . adlı yeni bir modül Modül1 eklenecektir.
⧪ Adım 3: VBA Kodunun Yerleştirilmesi
Bu en önemli adımdır. Aşağıdakileri uygulayın VBA Modüldeki kod.
⧭ VBA Kodu:
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 
⧪ Adım 4: Çalışma Kitabını XLSM Formatında Kaydetme
Ardından, çalışma kitabına geri dönün ve bunu bir Excel Makro Etkin Çalışma Kitabı .
⧪ Adım 5: Nihai Çıktı
Kodu şuradan çalıştırın Sub / UserForm Çalıştır araç çubuğundaki seçenek.
içinde tabloya dayalı olarak oluşturulmuş dinamik bir grafik bulacaksınız. Sayfa2 çalışma sayfasının.
Hatırlanması Gerekenler
Bir tablo, dinamik bir grafik oluşturmanın en iyi yoludur. Çünkü tabloya bir öğe ekler veya çıkarırsanız, tablo otomatik olarak ayarlanır ve böylece grafik de ayarlanır. Ancak bunu başarmanın başka yolları da vardır, örneğin Adlandırılmış Aralık .
