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

Chart Bar Dibedakan Dengan Penamaan Bulan
Chart Bar Dibedakan Dengan Warna
Chart Line
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