Belajar VBA Sederhana Ms. Excel

Cara Membuat VBA Sederhana

 VBA adalah sebuah turunan bahasa pemrograman Visual Basic yang dikembangkan oleh Microsoft dan dirilis pada tahun 1993, atau kombinasi yang terintegrasi antara lingkungan pemrograman (Visual Basic Editor)dengan bahasa pemrograman(Visual Basic)yang memudahkan user untuk mendesain dan membangun program Visual Basic dalam aplikasi utama Microsoft Office, yang ditujukan untuk aplikasi-aplikasi tertentu.

Langkah-Langkah Membuat VBA

                Pada kesempatan kali ini, kita akan mencoba membuat VBA sederhan, yaitu membuat data mahasiswa pajak dengan cara entry data.

1.       Buka Ms. Excel

2.       Kemudian kita harus menampilkan Developer pada tab di Ms. Excel, pengaktifan dengan cara klik file, lalu klik option, kemudian pilih customize ribbon dan check list pada Developer. Maka developer akan secara otomatis tampil di barisan Tab kita.

3.      Save Dokumen tersebut dengan nama List Mahasiswa Pajak dengan type file “Excel Macro Enable Workbook / xlsm”

4.       Buatlah data apa saja yang akan dibutuhkan, pada contoh kali ini akan ada data “NPM, Nama, Kelas, dan Nomor HP”.

5.       Setelah itu klik Tab Developer dan klik Visual Basic

Maka akan tampil beberapa tampilan seperti Project, Properties, Form (halaman untuk bekerja pada VBA), dan ToolBox. Pada tool box akan dapat kita lihat ada beberapa fiture yang bisa digunakan seperti Label, Text Box, Combo Box, dan Command Button.

6.       Seperti yang dijelaskan pada step sebelumnya, kali ini kita akan mencoba membuat VBA untuk meng-entry data mahasiswa pajak. Kita dapat menggunakan Label, Text Box, Combo Box dan Command Button. Tata menjadi seperti ini

Jangan lupa untuk menamai masing-masing tools yang kita gunakan dari jendela properties. Contoh Label 1 adalah nama maka kita ganti lb_Nama begitu pun dengan yang lain, untuk TextBox seumpama untuk Nama maka kita ganti Txt_Nama, untuk kelas kita bisa gunakan combo box dengan memberi nama cmb_Kelas, untuk command button tambah kita bisa menamai cm_tambah

Untuk memberikan background seperti pada gambar dapat dengan klik pada Properties kemudian Klik pada Picture dan pilih gambar yang ingin di tampilkan sebagai background.

7.       Langkah selanjutnya yaitu dengan memasukan beberapa script untuk masing-masing tools yang telah kita ambil dari toolbox.  

-          Cmb_Kelas

Private Sub UserForm_Initialize()

With cmb_kelas

    .AddItem "Pajak A"

    .AddItem "Pajak B"

    .AddItem "Pajak C"

    .AddItem "Pajak D"

    .AddItem "Pajak E"

End With

End Sub

-          Cb_tambah

Private Sub cb_tambah_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("List Mahasiswa Pajak")

'untuk menemukan baris kosong pada database Anda

iRow = ws.Cells(Rows.Count, 4) _

.End(xlUp).Offset(1, 0).Row

'untuk mengecek kode mahasiswa

'If Trim(Me.txt_NPM.Value) = "" Then

'untuk mengcopy data ke database Anda

ws.Cells(iRow, 1).Value = Me.txt_NPM.Value

ws.Cells(iRow, 2).Value = Me.txt_Nama.Value

ws.Cells(iRow, 3).Value = Me.cmb_kelas.Value

ws.Cells(iRow, 4).Value = Me.txt_NomorHP.Value

'untuk membersihkan form sebelum ditambahkan data baru Anda

Me.txt_NPM.Value = ""

Me.txt_Nama.Value = ""

Me.cmb_kelas.Value = ""

Me.txt_NomorHP.Value = ""

Me.txt_Kode_Input.SetFocus

End Sub

-          Agar VBA yang nantinya terbuka tidak bisa di tutup secara paksa dengan tanda silang yang biasanya ada di pojok kanan atas, masukkan script ini

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

‘Kata-kata tersebut bisa diganti dengan kata-kata lain yang akan muncul ketika kita menekan tombol silang di pojok kanan atas VBA

MsgBox "SUDAH YA? Klik Selesai"

End If

End Sub

-          Untuk mengaktifkan Command Button Selesai atau command button yang berfungsi untuk menutup jendela VBA

Private Sub cb_Selesai_Click()

Unload Me

End Sub

8.       Setelah itu simpan script VBA yang telah kita buat, dan kembali pada worksheet Ms. Excel kita dan buatlah tombol yang nantinya menampilkan VBA yang telah kita buat tadi.

9.       Setelah itu klik kanan pada tombol yang telah kita bikin dan klik pada assign macro, setelah ada jendela baru muncul pilih nama file dari dokumen tersebut yaitu “List Mahasiswa Pajak”

10.   Setelah itu kita klik edit yang ada pada sisi kanan dari jendela assign micro tersebut, dan akan muncul kembali jendela VBA dan ketikan

Sub List_Mahasiswa_Pajak()

UserForm1.Show

End Sub

11.   Kembalilah ke Worksheet yang telah kita buat klik OK pada jendela assign micro.

12.   VBA kita sudah siap digunakan.