Pada artikel kali ini, kita akan membahas tentang Excel VBA dan bagaimana cara menampilkan chart/grafik data di UserForm VBA Excel. Excel VBA adalah sebuah bahasa pemrograman yang diciptakan untuk menghubungkan Microsoft Excel dengan aplikasi lainnya seperti Microsoft Access, SQL Server, dan bahkan website.
Untuk dapat melakukan manipulasi data dengan mudah dan efektif, Excel VBA menyediakan UserForm yang dapat ditampilkan dalam Excel. UserForm merupakan jendela pop-up yang di dalamnya terdapat berbagai elemen seperti Text Box, Combo Box, Command Button, dan lain-lain. Pada artikel ini, kita akan fokus pada bagaimana cara menampilkan chart/grafik data di UserForm VBA Excel.
Sebelum kita mulai, pastikan bahwa Anda sudah memiliki data yang ingin ditampilkan dalam bentuk chart/grafik. Pada contoh ini, kita akan menggunakan data penjualan suatu toko dalam bentuk tabel seperti di bawah ini:
“`
| No | Nama Barang | Jumlah Terjual |
|—-|————-|—————-|
| 1 | Sepatu | 120 |
| 2 | Baju | 350 |
| 3 | Celana | 150 |
“`
Setelah memiliki data, kita dapat memulai untuk menampilkan chart/grafik di UserForm VBA Excel.
1. Buatlah UserForm pada aplikasi Excel Anda. Caranya adalah dengan mengklik Developer > Insert > UserForm.
2. Pada UserForm yang telah dibuat, tambahkanlah sebuah Frame dengan mengklik Toolbox > Frame.
3. Setelah menambahkan Frame, klik kembali Developer > Insert > Chart dan kemudian pilihlah jenis chart/grafik yang ingin ditampilkan.
4. Setelah memilih jenis chart/grafik, pilihlah range data yang ingin ditampilkan pada chart/grafik tersebut.
5. Setelah menentukan range data, klik pada chart/grafik yang telah dibuat dan pilihlah location untuk chart/grafik tersebut. Pada contoh ini, kita akan menempatkan chart/grafik pada Frame yang sudah dibuat sebelumnya.
6. Setelah menempatkan chart/grafik pada Frame, kita dapat menyesuaikan ukuran dan tampilan chart/grafik tersebut dan pastikan telah sesuai dengan keinginan.
Setelah melakukan langkah-langkah tersebut, kita telah berhasil menampilkan chart/grafik data di UserForm VBA Excel. Sekarang, kita dapat menambahkan beberapa fitur tambahan agar chart/grafik yang ditampilkan menjadi lebih dinamis dan interaktif.
Pertama, kita dapat menambahkan drop-down list yang dapat digunakan untuk memilih jenis chart/grafik yang ingin ditampilkan. Caranya adalah dengan menambahkan sebuah Combo Box pada UserForm, dan kemudian menambahkan kode VBA yang akan mengubah jenis chart/grafik yang ditampilkan berdasarkan pilihan pada Combo Box tersebut.
Berikut adalah contoh kode VBA yang dapat digunakan untuk mengubah jenis chart/grafik berdasarkan pilihan pada Combo Box:
“`
Private Sub ComboBox1_Change()
Dim chrt As Chart
‘ Mencari chart/grafik yang berada pada Frame
Set chrt = Me.Frame1.Controls(“Chart 1”)
‘ Mengubah jenis chart/grafik yang ditampilkan
If ComboBox1.Value = “Column” Then
chrt.ChartType = xlColumnClustered
ElseIf ComboBox1.Value = “Line” Then
chrt.ChartType = xlLineMarkers
ElseIf ComboBox1.Value = “Pie” Then
chrt.ChartType = xlPie
ElseIf ComboBox1.Value = “Bar” Then
chrt.ChartType = xlBarClustered
End If
End Sub
“`
Selanjutnya, kita dapat menambahkan fitur interaktif lainnya seperti tombol untuk mengatur tampilan chart/grafik, misalnya dengan menambahkan tombol untuk menampilkan atau menyembunyikan legend atau sumbu. Caranya adalah dengan menambahkan sebuah Command Button dan kemudian menambahkan kode VBA yang akan mengatur tampilan chart/grafik berdasarkan pilihan pada Command Button tersebut.
Berikut adalah contoh kode VBA yang dapat digunakan untuk menampilkan atau menyembunyikan legend atau sumbu pada chart/grafik:
“`
Private Sub CommandButton1_Click()
Dim chrt As Chart
‘ Mencari chart/grafik yang berada pada Frame
Set chrt = Me.Frame1.Controls(“Chart 1”)
‘ Menampilkan atau menyembunyikan legend
If chrt.HasLegend = True Then
chrt.HasLegend = False
Else
chrt.HasLegend = True
End If
End Sub
Private Sub CommandButton2_Click()
Dim chrt As Chart
‘ Mencari chart/grafik yang berada pada Frame
Set chrt = Me.Frame1.Controls(“Chart 1”)
‘ Menampilkan atau menyembunyikan sumbu-x
If chrt.Axes(xlCategory).TickLabels.Orientation = xlUpward Then
chrt.Axes(xlCategory).TickLabels.Orientation = xlHorizontal
Else
chrt.Axes(xlCategory).TickLabels.Orientation = xlUpward
End If
‘ Menampilkan atau menyembunyikan sumbu-y
If chrt.Axes(xlValue).TickLabels.Orientation = xlUpward Then
chrt.Axes(xlValue).TickLabels.Orientation = xlHorizontal
Else
chrt.Axes(xlValue).TickLabels.Orientation = xlUpward
End If
End Sub
“`
Dengan menambahkan fitur-fitur tambahan seperti drop-down list dan tombol untuk mengatur tampilan chart/grafik, kita dapat membuat chart/grafik yang ditampilkan menjadi lebih interaktif dan dinamis. Sekarang, kita telah berhasil membuat UserForm VBA Excel yang menampilkan chart/grafik data dengan berbagai fitur tambahan.
FAQ:
Q1. Apa itu Excel VBA?
A1. Excel VBA adalah sebuah bahasa pemrograman yang diciptakan untuk menghubungkan Microsoft Excel dengan aplikasi lainnya seperti Microsoft Access, SQL Server, dan bahkan website. Dengan Excel VBA, pengguna dapat melakukan manipulasi data dengan mudah dan efektif dengan menyediakan fitur-fitur berupa UserForm, Module, dan Class.
Q2. Apa saja fitur tambahan yang dapat ditambahkan pada UserForm VBA Excel yang menampilkan chart/grafik data?
A2. Ada banyak fitur tambahan yang dapat ditambahkan pada UserForm VBA Excel yang menampilkan chart/grafik data. Beberapa di antaranya adalah drop-down list untuk memilih jenis chart/grafik yang ingin ditampilkan, tombol untuk mengatur tampilan chart/grafik seperti menampilkan atau menyembunyikan legend atau sumbu, dan lain-lain. Dengan menambahkan fitur-fitur tambahan tersebut, pengguna dapat membuat chart/grafik yang ditampilkan menjadi lebih interaktif dan dinamis.
Video:
Berikut adalah video tutorial yang dapat membantu Anda dalam membuat UserForm VBA Excel yang menampilkan chart/grafik data: https://www.youtube.com/watch?v=ZmpCRPSlc5w
