Cara membuat bar chart di vba (dengan contoh)

Anda dapat menggunakan sintaks dasar berikut untuk membuat diagram batang di Excel menggunakan VBA:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

Makro khusus ini akan meminta pengguna untuk memasukkan rentang masukan dan kemudian secara otomatis menghasilkan diagram batang menggunakan rentang masukan dan memasukkannya ke dalam lembar bernama Sheet1 dengan sudut kiri atas diagram terletak di sel yang sedang aktif.

Contoh berikut menunjukkan cara menggunakan makro ini dalam praktiknya.

Contoh: Cara Membuat Bar Chart di VBA

Misalkan kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang poin yang dicetak oleh berbagai pemain bola basket:

Katakanlah kita ingin menggunakan VBA untuk menghasilkan diagram batang menggunakan kumpulan data ini.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

Untuk menjalankan makro ini, kita dapat mengklik tab Pengembang di sepanjang pita atas di Excel lalu klik Makro .

Kita kemudian dapat mengklik yang berlabel CreateBarChart lalu klik Run :

Setelah kita mengklik Run , kita akan diminta memasukkan rentang input untuk diagram batang kita:

Kita ketik A1:B7 , lalu tekan OK .

Diagram batang berikut secara otomatis akan dibuat dan ditampilkan dengan sudut kiri atas diagram terletak di sel yang sedang aktif, yaitu sel D1 :

Catatan : Anda dapat mengubah nilai argumen Lebar dan Tinggi di fungsi ChartObjects.Add() untuk menyesuaikan lebar dan tinggi diagram batang.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung jumlah kolom yang digunakan