Chart Bar, Line, Pie Menggunakan VBA Macro Excel

Membuat chart atau Grafik difungsikan untuk menunjukan kesimpulan pada kumpulan data atau hasil pengolahan data. Dengan adanya Chart ini, Pemangku kepentingan terhadap laporan dari Data yang telah dikumpulkan akan lebih mudah untuk membuat keputusan yang baik buat kedepannya. Misalkan terjadinya pengurangan pemasukan dari hasil penjualan. Pastinya pemilik perusahaan akan membuat keputusan kebijakan berdasarkan dari Laporan tersebut. Terlalu jauh ya pembahasannya..wkwkwwk

Adapun contoh laporan pemasukan dilampirkan pada Tabel dibawah ini,

Ada beberapa chart yang dapat dibuat dari data tersebut

1. Chart Bar Dibedakan Dengan Penamaan Bulan
2. Chart Bar Dibedakan Dengan Warna
3. Chart Line
4. Chart Pie Total Penjualan Dalam 5 Bulan Masing-masing Cabang Outlet

Dalam pembuat Chart Bar, ChartType yang digunakan direkomendasikan gunakan xlColumnClustered karena penempatan Penamaan bulan akan ditempatkan pada sumbu X, sedangkan jika ingin penamaan bulan di tempatkan di sumbu Y maka ChartType yang digunakan adalah xlBarClustered.

Chart Bar Vba Excel Dibedakan Dengan Penamaan Bulan

Dari Tabel diatas data yang digunakan untuk membuat grafik adalah hasil dari Pemasukan Tiap Bulan di Outlet Majalengka dengan Tampilan Bar akan berikan penamaan waktu bulan.

Dimana Fungsi perintah yang digunakan adalah

Sub BuatChartRange1()  
   'Dim myRange As Range  
   'Set myRange = Application.InputBox(Prompt:="Pilih data", Type:=8)  
   Charts.Add  
   'ChartStyle Tipe Tampilan Saja  
   ActiveChart.ChartStyle = 18  
   'xlBarClustered kolom berada pada sumbu Y sedangkan xlColumnClustered berada pada sumbu X  
   ActiveChart.ChartType = xlColumnClustered  
   'Judul Grafik  https://agungpanduan.blogspot.co.id
   ActiveChart.HasTitle = True  
   ActiveChart.ChartTitle.Text = "PEMASUKAN" & vbCrLf & Range("B3").Value  
   'PlotBy xlRows maksudsnya nama-nama kolom seperti januari hingga Mei akan ditempatkan  
   'dibawah sumbu X  
   'Sedangkan xlColumns tidak hanya sebuah keterangan dengan dibedakan oleh warna  
   ActiveChart.SetSourceData Source:=Range("B2:G3"), PlotBy:=xlRows  
   With ActiveChart.Axes(xlCategory, xlPrimary)  
     .HasTitle = True  
     .AxisTitle.Text = Range("B3").Value 'JUDUL GRAFIK DIBAWAH X  
   End With  
   'Tampilkan Grafik pada Sheet Baru xlLocationAsNewSheet  
   ActiveChart.Location where:=xlLocationAsNewSheet  
 End Sub

Chart Bar Vba Excel Dibedakan Dengan Warna

Data yang digunakan untuk membuat grafik adalah hasil dari Pemasukan Tiap Bulan di Outlet Sukabumi dengan Tampilan Bar berikan akan warna untuk membedakan bulan.

Karena baris Judul Kolom tidak bersebelahan dengan data pemasukan maka source Range harus digabungkan dengan kode perintah Union menjadi.

Source:=Union(Range("B2:G2"), Range("B4:G4"))

Sehingga kode fungsi perintahnya menjadi,

Sub BuatChartRange2()  
   Charts.Add  
   'ChartStyle Tipe Tampilan Saja  
   ActiveChart.ChartStyle = 18  
   'xlBarClustered kolom berada pada sumbu Y sedangkan xlColumnClustered berada pada sumbu X  
   ActiveChart.ChartType = xlColumnClustered  
   'Judul Grafik  'https://agungpanduan.blogspot.co.id
   ActiveChart.HasTitle = True  
   ActiveChart.ChartTitle.Text = "PEMASUKAN" & vbCrLf & Range("B4").Value  
   'PlotBy xlRows maksudsnya nama-nama kolom seperti januari hingga Mei akan ditempatkan  
   'dibawah sumbu X  
   'Sedangkan xlColumns tidak hanya sebuah keterangan dengan dibedakan oleh warna  
   ActiveChart.SetSourceData Source:=Union(Range("B2:G2"), Range("B4:G4")), PlotBy:=xlColumns  
   With ActiveChart.Axes(xlCategory, xlPrimary)  
     .HasTitle = True  
     .AxisTitle.Text = Range("B4").Value 'JUDUL GRAFIK DIBAWAH X  
   End With  
   'Tampilkan Grafik pada Sheet Baru xlLocationAsNewSheet  
   ActiveChart.Location where:=xlLocationAsNewSheet  
 End Sub  

Dan graik yang dihasilnya adalah,

Chart Line Vba Excel

Data yang digunakan untuk membuat grafik adalah hasil dari Pemasukan Tiap Bulan di Outlet Sukabumi dengan ChartStyle-nya adalah xlLineMarkers atau hanyak sebuah Garis yang memperlihatkan naik turunnya pemasukan.

Dimana Fungsi perintah vba macro excel yang digunakan adalah

 Sub BuatChartLine()  
   Charts.Add  
   'ChartStyle Tipe Tampilan Saja  
   ActiveChart.ChartStyle = 18  
   'xlLineMarkers adalah garis grafik perkembangan  
   ActiveChart.ChartType = xlLineMarkers  
   'Judul Grafik   https://agungpanduan.blogspot.co.id
   ActiveChart.HasTitle = True  
   ActiveChart.ChartTitle.Text = "PEMASUKAN" & vbCrLf & Range("B4").Value  
   'PlotBy xlRows maksudsnya nama-nama kolom seperti januari hingga Mei akan ditempatkan  
   'dibawah sumbu X  
   'Sedangkan xlColumns tidak hanya sebuah keterangan dengan dibedakan oleh warna  
   ActiveChart.SetSourceData Source:=Union(Range("B2:G2"), Range("B4:G4")), PlotBy:=xlRows  
   With ActiveChart.Axes(xlCategory, xlPrimary)  
     .HasTitle = True  
     .AxisTitle.Text = Range("B4").Value 'JUDUL GRAFIK DIBAWAH X  
   End With  
   'Tampilkan Grafik pada Sheet Baru xlLocationAsNewSheet  
   ActiveChart.Location where:=xlLocationAsNewSheet  

 End Sub  

Chart Pie Vba Excel Total Penjualan Dalam 5 Bulan Masing-masing Cabang Outlet

Data yang akan digunakan adalah Total pemasukan setiap Outlet tiap Outlet sehingga kita akan mengetahui Outlet mana yang berkontribusi besar dalam penambahan pemasukan.

Yang akan ditampilkan adalah Outlet berserta persentasenya

Dimana fungsi perintah Vba Macro excel untuk membuat Chart bertipe Pie adalah sebagai berikut,

Sub BuatChartPie()  
   Charts.Add  
   'ChartStyle Tipe Tampilan Saja  
   ActiveChart.ChartStyle = 18  
   'xl3DPie adalah berbentuk bundaran dengan efek 3D  
   ActiveChart.ChartType = xlPie  
   'Judul Grafik  https://agungpanduan.blogspot.co.id
   ActiveChart.HasTitle = True  
   ActiveChart.ChartTitle.Text = "PEMASUKAN"  
   'PlotBy xlRows maksudsnya nama-nama kolom seperti januari hingga Mei akan ditempatkan  
   'dibawah sumbu X  
   'Sedangkan xlColumns tidak hanya sebuah keterangan dengan dibedakan oleh warna  
   ActiveChart.SetSourceData Source:=Union(Range("B3:G6"), Range("H3:H6")), PlotBy:=xlColumns  
   ActiveChart.Legend.Delete  
   ActiveChart.ApplyDataLabels xlDataLabelsShowLabelAndPercent  
   'ActiveChart.ApplyDataLabels xlDataLabelsShowValue  
   ActiveChart.SeriesCollection(1).HasLeaderLines = False  
   'Tampilkan Grafik pada Sheet Baru xlLocationAsNewSheet  
   ActiveChart.Location where:=xlLocationAsNewSheet  
 End Sub

Download Char VBA Excel 2016

Sekian dan Terima Kasih telah berkunjung ke https://www.agungpanduan.com

Semoga Bermanfaat

Excel

Share This :