Visual Data Grafik Excel 2007 vs VBA

Anda ingin memvariasikan tampilan data Excel Anda dalam bentuk GUI? Sebaiknya Anda mencoba Tips Excel 2007 ini, semoga Tips dari saya ini menambah tingkat kemahiran dan pemahaman Anda dalam visualisasi pengolahan data Excel. Ketersediaan tools component yang lengkap pada Microsoft Excel 2007 memudahkan kita dalam proses visualisasi hasil pengolahan data yang telah kita inputkan. Saya akan mencoba mengkreasikan dan memvisualisasikan sebuah contoh file data dengan memanfaatkan fasilitas "Visual Basic Application".

Perhatikan langkah-langkah penerapannya di bawah ini.

Langkah pertama, Buatlah sebuah file data. Contoh file data yang saya buat bernama Nilai Semester.xlsx, perhatikan gambar di bawah ini:



Drug Command Button(ActiveX Control) pada lembar kerja ada di bawah tabel data. Perhatikan gambar di bawah ini:



Setelah itu klik kanan Command Button yang Anda drug tadi lalu pilih Properties, kemudaian ganti Caption CommandButton1 menjadi Tampilkan Menu Visual Grafik Data Di Atas. Kemudian klik kanan kembali, lalu pilih View Code. Tuliskan code program sebagai berikut:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Ganti name Worksheet dengan Visual. Perhatikan gambar di bawah ini:



Setelah Anda mengetikkan code program di atas pilih Tab Insert kemudian tekan UserForm. Kemudian desain Form tersebut dengan beberapa Toolbox di bawah ini:

ToolBox	Properties
1 UserForm1	name:UserForm1 Caption:Verynandus Hutabalian Blog's
1 ChartSpace	name: ChartSpace1
3 Label	name: Label 1-3 Caption: Sesuai dengan keinginan Anda
2 ScrollBar	name: ScrollBar 1-2
2 CommandButton	name: CommandButton 1-2
1 ListBox	name: ListBox 1

Desain component ToolBox di atas seperti desain gambar di bawah ini:



Setelah Anda mendesain Form di atas dengan mengatur setiap properties yang di miliki oleh setiap object ToolBox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++'
'Visual Data vs Grafik in Visual Basic Application'
'================================================='
' File Data Berada pada Sheet1 dengan Nama Visual '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Editing Programming by: Verynandus Hutabalian '
' Publish to V. Hutabalian's Blog 17 March 2010 '
'++++++++++++========================+++++++++++++'
Option Explicit
Option Base 1
Dim Cht As ChChart
Dim C
Private Sub ScrollBar2_Change()
Cht.DirectionalLightIntensity = ScrollBar2 / 10
Cht.DirectionalLightRotation = ScrollBar2 * 5
Cht.DirectionalLightIntensity = ScrollBar2 / 10
End Sub

Private Sub UserForm_Initialize()
Dim x As Byte

Set C = ChartSpace1.Constants
Set Cht = ChartSpace1.Charts.Add
For x = 3 To 8
ListBox1.AddItem Cells(x, 1)
Next x
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(6), Plage(6)
For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i
For i = 1 To 6
Tableau(i) = Cells(2, 1 + i)
Next i

With Cht
.HasLegend = True
.Legend.Position = chLegendPositionBottom
.HasTitle = True
.Title.Caption = "Grafik Nilai Bidang Studi Setiap Semester"
End With
If CommandButton2.Caption = "Graphic Bar" Then
Cht.Type = C.chChartTypeBarClustered3D
Else
Cht.Type = C.chChartTypeColumnClustered3D
End If

For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True Then
If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
For i = 1 To 6
Plage(i) = Cells(j + 3, 1 + i)
Next i

With Cht
.SetData C.chDimCategories, C.chDataLiteral, Tableau
.SeriesCollection(x).Caption = Cells(j + 3, 1)
.SeriesCollection(x).DataLabelsCollection.Add
.SeriesCollection(x).DataLabelsCollection(0).Position = chLabelPositionCenter
.SeriesCollection(x).DataLabelsCollection(0).Font.Color = RGB(255, 255, 255)
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 1)
End With

x = x + 1
Erase Plage
End If
Next j
End Sub

Private Sub CommandButton2_Click()
If CommandButton2.Caption = "Graphic Bar" Then
CommandButton2.Caption = "Graphic colom Bar"
Else
CommandButton2.Caption = "Graphic Bar "
End If
End Sub

Private Sub ScrollBar1_Change()
Cht.Rotation = ScrollBar1
End Sub

Setelah Anda mengetikkan listing source program diatas tekan F5. Kemudian Pilih nilai data yang ingin di tampilkan pada list, contoh Fisika 1. Hasil tampilan visualnya seperti gambar di bawah ini.



Menampilkan grafik tidak hanya dari jendelan desain Microsoft Visual Basic Application, dengan membuka Nilai Semester.xlsx kembali dan menekan tombol Tampilkan Menu Visual Grafik Data Di Atas di bawah tabel data tersebut maka dapat menampilkan desain visual seperti gambar paling atas.

Pengembangan Program dapat di sesuaikan dengan penggunaan yang diingikan, selamat Berkreasi.

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.