Halo pembaca! Kali ini, kita akan belajar cara membuat grafik scatter menggunakan VBA di Microsoft Excel. Grafik scatter adalah salah satu jenis grafik yang paling umum digunakan untuk menampilkan hubungan antara dua variabel.

Kode VBA untuk Membuat Grafik Scatter

Berikut adalah contoh kode VBA sederhana untuk membuat grafik scatter:

Sub createmychart()
 Dim Chart1 As Chart
 Set Chart1 = Charts.Add
 With Chart1
 .ChartType = xlXYScatter
 .SeriesCollection.NewSeries
 'Ganti dengan nama seri yang Anda inginkan
 .SeriesCollection(1).Name = "Values"
 .SeriesCollection(1).XValues = "=usd_download data!$A$2:$A$26001"
 .SeriesCollection(1).Values = "=usd_download data!$B$2:$B$26001"
 End With
End Sub

Kode di atas menggunakan metode NewSeries untuk menambahkan seri baru ke koleksi seri chart. Lalu, kita dapat mengatur nama seri, nilai X, dan nilai Y menggunakan properti Name, XValues, dan Values.

Mengatasi Kesulitan

Jika Anda mengalami kesulitan dengan objek chart, chart, dan SeriesCollection, maka perlu diingat bahwa metode NewSeries digunakan untuk menambahkan seri baru ke koleksi seri chart. Dengan demikian, kita dapat menggunakan SeriesCollection(1) untuk merujuk pada seri yang ditambahkan.

Contoh Kode Lainnya

Berikut adalah contoh kode VBA lainnya yang dibuat oleh pengguna stackoverflow:

Private Sub CommandButton1_Click()
 Dim xrng As Range
 Dim yrng As Range

 Set xrng = Range("A12:A17")
 Set yrng = Range("B12:B17")

 Dim Chart1 As Chart
 Set Chart1 = Charts.Add

 With Chart1
 .ChartType = xlXYScatter
 .SeriesCollection.NewSeries
 'Ganti dengan nama seri yang Anda inginkan
 .SeriesCollection(1).Name = "Values"
 .SeriesCollection(1).XValues = xrng
 .SeriesCollection(1).Values = yrng

 End With

End Sub

Kode di atas menggunakan range cell untuk menentukan nilai X dan Y, serta nama seri.

Konklusi

Dalam artikel ini, kita telah belajar cara membuat grafik scatter menggunakan VBA di Microsoft Excel. Kita juga telah melihat contoh kode VBA yang dapat digunakan sebagai referensi. Semoga Artikel ini bermanfaat untuk Anda!