Daftar Isi
Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda dapat membuat bagan dinamis di Excel menggunakan VBA .
Unduh Buku Kerja Praktik
Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.
Bagan Dinamis di Excel.xlsm5 Langkah Mudah Membuat Bagan Dinamis Menggunakan Excel VBA
Di sini kita punya lembar kerja bernama Sheet1 yang berisi tabel yang berisi pendapatan dan pendapatan perusahaan selama beberapa tahun.
Tujuan kami hari ini adalah untuk menghasilkan bagan dinamis dari tabel ini menggunakan Excel VBA .
⧪ Langkah 1: Membuka Jendela Visual Basic
Tekan ALT+F11 pada keyboard Anda untuk membuka Visual Basic jendela.
⧪ Langkah 2: Memasukkan Modul Baru
Pergi ke Sisipkan> Modul pada bilah alat. Klik pada Modul Sebuah modul baru yang disebut Modul1 akan dimasukkan.
⧪ Langkah 3: Menempatkan Kode VBA
Ini adalah langkah yang paling penting. VBA Kode dalam modul.
⧭ Kode VBA:
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 Dim Sequence() As String Desired_Shapes = Array("Persegi Panjang Bulat 1", "Persegi Panjang Bulat 2", "Persegi Panjang Bulat 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 
⧪ Langkah 4: Menyimpan Buku Kerja dalam Format XLSM
Berikutnya, kembali ke buku kerja dan menyimpannya sebagai Buku Kerja Excel yang Diaktifkan Makro .
⧪ Langkah 5: Keluaran Akhir
Jalankan kode dari Jalankan Sub / UserForm pada bilah alat.
Anda akan menemukan bagan dinamis yang dibuat berdasarkan tabel di Sheet2 dari lembar kerja.
Hal-hal yang Perlu Diingat
Tabel adalah cara terbaik untuk membuat bagan dinamis. Karena jika Anda menambahkan atau menghapus elemen dari tabel, tabel akan secara otomatis menyesuaikan, begitu juga dengan bagan. Tetapi ada juga cara lain untuk mencapai hal ini, seperti menggunakan Rentang Bernama .
