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
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
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
Sekian
dan Terima Kasih telah berkunjung ke https://www.agungpanduan.com
Semoga
Bermanfaat
Share This :
0 Comments