Cara Membuat Chart Dengan Macro VBA Excel

Chart adalah suatu penyajian data dalam bentuk bagan atau grafik. Suatu data yang disajikan dalam bentuk chart akan mudah digunakan untuk mengambil kesimpulan atau mengambil keputusan.

Dalam Ms. Excel tentunya chart sering sekali digunakan. Hanya dengan masuk ke menu insert, maka anda bisa membuat suatu chart dari suatu data. Namun, bisakah anda membuat suatu chart menggunakan suatu coding Macro VBA ??

Jika tidak bisa, maka anda sudah tepat berkunjung ke web kami, karena kali ini kami akan membahas bagaimana caranya membuat suatu chart dengan menggunakan coding Macro VBA Excel.

Misalkan anda memiliki data seperti gambar di bawah ini :

Untuk membuat chart menggunakan macro VBA Excel atas data di atas, maka bisa dilakukan dengan cara sebagai berikut :

1. Masuk ke dalam aplikasi VBA Excel.

Untuk masuk ke dalam aplikasi VBA Excel, anda pilih menu Developer → Viewcode.

2. Masukan code di bawah ini ke dalam suatu module VBA.

Berikut adalah codenya :

Sub Membuat_Chart()

Dim x As Range

Dim y As Range

Dim seris As Range

'menentukan range pada masing-masing variabel

Set x = Range("A2:A4")

Set y = Range("B2:B4")

Set seris = Range("B1")

'Membuat referensi ke active sheet

Dim sht As Worksheet

Set sht = ActiveSheet

'Membuat object baru dengan posisi tertentu

Dim chtobj As ChartObject

Set chtobj = sht.ChartObjects.Add(48, 195, 400, 300)

'Membuat referensi ke Chartobject

Dim cht As Chart

Set cht = chtobj.Chart

'Membuat series

Dim ser As series

Set ser = cht.SeriesCollection.NewSeries

ser.Values = y

ser.XValues = x

ser.Name = seris

ser.ChartType = xlXYScatterLines

End Sub

Setelah muncul jendela VBA Excel → masukan code di atas ke dalam module, yaitu dengan cara :

Pilih menu Insert → Module.

Setelah jendela module muncul, maka kemudian masukan code di atas ke dalam module VBA.

3. Jalankan Macro VBA.

Untuk menjalankan coding macro VBA yang telah di masukan ke dalam module, bisa dilakukan dengan cara :

Pilih menu Run → Run Sub/UserForm

Maka hasilnya menjadi

Demikian artikel kali ini.

Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Referensi :

• Google.com/

Salam,

Muhamad Pajar Sidik

President Director of (matematikaakuntansi.blogspot.com)
Email : fajarmoehamad@gmail.com
IG : @mupasid

BEANBAG TRIANGLE SIZE LARGE TERMASUK ISI , SIAP PAKAI😊

Jika ingin bertanya secara privat, Silahkan hubungi no 085709994443 dan untuk berkomentar silahkan klick link di bawah ini 👇