VBA Macro pada Microsoft Excel adalah suatu perintah atau program perumusan yang merupakan salah satu fitur Excel dimana data dalam macro akan tersimpan pada visual basic, Macro sendiri hanya menempel pada microsoft excel yang digunakan sebagai inangnya, namun dengan keberadaan vba macro tersebut dapat membantu user yang menggunakan microsoft excel yang terbatas, namun dengan menggunakan vba macro dapat menangani pekerjaan yang kompleks dan full, seperti misal saat penulis membuat sebuah data pada microsoft excel tidak lagi mencukupi namun dengan penggunaan vba macro maka data tersebut dapat tertampung, serta memudahkan pengguna excel dalam kaitanya dengan sistem input data, untuk pembahasan dan trik-trik atau cara mengunaan macro akan kita bahas pada akhir artikel ini, sedangkan yang pertama adalah bagaimana cara menampilkan atau mengaktifkan developer untuk vba macro itu sendiri pada microsoft exel.
Berikut adalah cara menampilkan developer untuk menampilkan vba macro pada office excel :
Ket : Untuk pengguna Microsoft Office 2007 caranya hampir sama hanya berbeda pada tampilannya saja sedangkan yang penulis dapat tampilkan adalah pada office excel 2010 karena memang saat ini penulis hanya menggunakan office 2010
Pertama* Buka Micosoft Office Excel
* Klik File Pada pojok kiri atas
* Pilih Option
* Klik Customize Ribbon
* Centang Developer Pada bilah sisi kanan
* Klik Ok
* Selesai
Dengan melakukan cara diatas secara otomatis anda telah mengaktifkan developer untuk menampilkan vba macro pada microsoft excel anda bisa lihat tampilannya seperti pada gambar screen shoot dibawah ini :
Penggunaan vba Macro Secara Dasar vba macro dapat digunakan untuk perintah penginputan, rumus-rumus formula yang lebih kompleks, formulir isian, auto print, user form excel dan banyak lainnya termasuk cara yang dasar yang akan kita bahas kali ini adalah mengenai cara input kode barang dengan membuat user form.
Kita langsung saja pada langkah demi langkahnya :
Membuat Form Input
* Buka Lembar Excel
* Silahkan Ganti Nama Sheet1 (Menu) Sheet2 (Data Input)
Seperti pada gambar berikut, meski sebenarnya bisa dibiarkan apa adanya namun penulis hanya ingin memastikan tutorial ini dapat dipahami oleh pembaca yang baik.
* Isi Kolom seperti pada gambar dibawah ini
Jika telah selesai pada lembar excel selanjutnya kita mengfungsikan VBAmacro dengan cara pilih developer kemudian klik Visual Basic seperti pada gambar dibawah ini :
Maka anda akan dibawa pada lembar microsoft visual basic seperti pada gambar dibawah dan dengan klik kanan pada VBA Project kemudian pilih insert selanjutnya klik UserForm untuk memulai membuat user form
Setelah UserForm terbuka silahkan masukkan Label yang berlogo huruf A dari toolbox pasa UserForm dan beri nama misal FORM INPUT BARANG, masukkan lagi Label dan rubah dengan nama Input Kode kemudian masukkan TextBox yang berlogo ab kemudian tempatkan pada UserForm tepat disamping textbox Input Kode tadi, kemudian langsung rubah pada kolom sisi kanan bawah di properties pada bagian name ganti textbox1 dengan nama tkode ini yang nantinya akan digunakan untuk input kode.
Kemudian tambahkan lagi Label dan buat nama Jenis Barang dan tambahkan lagi TextBox dan tempatkan pada UserForm tepat disamping Jenis Barang tadi dan rubah name pada properties dengan nama tjenisbarang. ini yang nantinya akan menampilkan jenis barang.
Hal yang sama seperti diatas yaitu dengan tambahkan lagi Label dan buat nama Harga Barang kemudian tambahkan lagi textbox disamping label Harga Barang tadi kemudian beri nama pada name properties dengan nama thargabarang.
Yang berikut adalah membuat tombol check yaitu dengan cara menambahkan commandButton dari toolbox dan menambahkan pada UserForm dan buat nama CHECK pada UserForm sedangkan pada properties sebelah kanan ganti name menjadi cmdcheck.
Buat tombol HAPUS dan ganti name pada properties dengan nama cmdhapus.
Buat tombol EXIT dan ganti name pada properties dengan nama cmdexit.
Hasilnya anda bisa lihat seperti pada gambar dibawah ini :
Setelah selesai dengan form selanjutnya adalah membuat kode scriptnya dengan cara klik kanan pada page UserForm kemudian pilih View Code maka untuk sript simpelnya silahkan paste kode berikut pada lembar script :
Private Sub Workbook_Open()
NamaUserForm1.Show
End Sub
Private Sub cmdcheck_Click()
Kode = Me.tkode.Value
With Worksheets("Data Input").Range("C2:C50")
Set C = .Find(Kode, LookIn:=xlValues)
If Not C Is Nothing Then
baris = C.Row
Me.tjenisbarang.Value = Worksheets("data Input").Cells(baris, 2).Value
Me.thargabarang.Value = Worksheets("Data Input").Cells(baris, 4).Value
Else
MsgBox "Maaf Kode Bahan tersebut Belum Terdaftar"
End If
End With
End Sub
Private Sub CmdEXIT_Click()
Unload Me
End Sub
Private Sub cmdhapus_Click()
Me.tjenisbarang.Value = ""
Me.thargabarang.Value = ""
Me.tkode.SetFocus
End Sub
Private Sub Label1_Click()
End Sub
Private Sub thargabarang_Change()
End Sub
Private Sub tjenisbarang_Change()
End Sub
Private Sub tkode_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Gunakan Tombol EXIT Woy!"
End If
End Sub
Selanjutnya silahkan anda lakukan pengujian dengan cara klik tombol Run Sub bertanda Play dan menginputkan kode A1 s/d A11 yang terdapat pada sheet Data Input Kolom C yang kita buat pada awal tadi.
Untuk penjelasan masalah kode diatas penulis tidak sempat menjelasakan secara mendetail satu persatu karena akan membutuhkan penjelasan yang panjang maka dari itu penulis ingin pembaca menganalisis sendiri dan jika terdapat hal yang tidak dipahami dapat mengajukan pertanyaan dengan cara komentar dibawah.
Namun sebagai tambahan penulis berikan satu cara lagi buat tombol SHOW atau tombol pemanggil Form tersebut pada pada lembar excel yang kita buat tadi pada sheet menu.
Caranya adalah silahkan klik insert pada lembar excel sheet menu dan tambahkan shapes sesuai selera kemudian beri nama apa saja sesuai dengan keinginan anda kemudian klik kanan shapes atau rencana tombol pemanggil tersebut dan lihat kebawah pilih asiggn macro dan pilih pada macros in dengan pilihan yang sesuai kemudian pilih new atau edit dan pada lembar terbuka silahkan masukkan kode : NamaUserForm1.Show diantara Private Sub Workbook_Open() dan End Sub, seperti contoh dibawah ini :
Private Sub Workbook_Open()
NamaUserForm1.Show
End Sub
Jika suda ada lewati saja
Terakhir silahkan klik simpan dan silahkan anda buka lagi kemudian coba tombol tersebut untuk memanggil Form, jika berhasil katakan Horee, namun jika belum berhasil komentar dibawah dengan baik pasti akan direspon dengan baik pula.
Terima Kasih semoga Bermanfaat