Tutorial ini saya buat bagi yang baru belajar Macro atau VBA Excel dan mudah-mudahan bermanfaat. Sebelum kepada pembahasan silakan lihat bagaimana tampilan sebuah VBA Project yang secara default ketika menekan tombol ALT+F11.
Jika Anda lihat pada gambar tampilan VBA Project diatas ada 4 jenis objek VBA Project pada Book1 yang pertama adalah Sheet1, Sheet2, Sheet3 dan Workbook. Untuk menampilkan sebuah Form maka kita harus menyisipkan form dari menu Insert kemudian pilih UserForm
Setelah Anda klik menu diatas maka akan muncul sebuah Form baru bernama UserForm1 seperti tampilan berikut
Dari tampilan UserForm1 Anda bisa menentukan nama Form, label maupun ukuran Form, warna background dengan menggunakan Properties dari UserForm tersebut
Untuk mengganti nama UserForm1 silakan ganti pada properties diatas misalnya saya ganti menjadi misalnya seperti berikut. Catatan perlu diingat bahwa penamaan baik sebuah Form maupun textbox lainnya tidak boleh menggunakan spasi maka Anda akan melihat sebuah peringatan berikut
Jika ingin mempelajari lebih jauh bagaimana cara membuat pesan peringatan dengan VBA excel silakan lihat link ini
Apa saja yang akan dirubah untuk propertie UserForm1? Berikut contohnya
Name ganti dengan “FormInput”
Caption ganti dengan “Form Input Data”
Back Color ganti dengan “&H00004000&”
Anable ganti dengan “TRUE”
Height ganti dengan “180”
width ganti dengan “240”
Jika sudah mengganti Properties dari UserForm1 diatas maka hasilnya akan tampil seperti berikut ini
Jika Form sudah didesain, kemudian properties sudah disetting langkah berikutnya biasanya adalah pengkodeaan. Pengkodean disini menggunakan bahasa pemrograman VBA. Apa saja VBA untuk sebuah UserForm? Script VBA untuk userform banyak ragamnya yang sering digunakan misalnya seperti berikut
Private Sub UserForm_Initialize()
UserForm1.Caption = "FORM TEST"
End Sub
Script VBA diatas digunakan untuk mengidentifikasikan pada sebuah UserForm walaupun sudah diganti pada Propersies Caption “Form Input Data” apabila sudah diberi kode diatas maka Caption UserForm tersebut akan berubah menjadi “FORM TEST”
Private Sub UserForm_Activate()
UserForm1.BackColor = &HFF&
End Sub
Script diatas akan merubah warna background dari UserForm menjadi warna merah walaupun diatas sudah diganti pada properties menjadi warna hijau. Jika duab uah script VBA diatas dijalankan dengan menekan tombol F5 pada keyboard maka tampilan UserForm akan tampak seperti berikut
Bagaimana apabila Anda akan membuat sebuah tombol Exit dengan menggunakan CommandButton pada UserForm tersebut? Hal ini sangat mudah Anda tinggal tambahkan 1 buah CommandButton dari ToolBox dan buat pada UserForm
Untuk menutup UserForm dengan CommandButton silakan tuliskan script VBA berikut
Private Sub CommandButton1_Click()
Unload Me
End Sub
Untuk menguji script VBA apakah sudah berhasil atau belum silakan tekan F5 untuk menjalankan kemudian tekan tombol COmmandButton1 tersebut apabila sudah benar maka UserForm tersebut akan ditutup atau close. Untuk mengganti CommandButton yang ada di UserForm akan saya bahas pada artikel berikutnya.
tutorialnya sangat bermanfaat...bisa dibuatkan bukunya untuk didownload....
BalasHapusTerimakasih, Maksudnya buku digital (Ebook) tentang VBA?
Hapus