Program ini adalah program standard yang selalu dipakai dibahasa mana saja, bagi pemula karena sangat sederhana namun karena sudah merupakan tradisi ya kita ikuti aja
Program ini kalau dijalankan akan tampil sbb:
- Jika kita klik tombol di worksheet maka akan muncul form hello world
- Jika lalu kita klik tombol di form Hello world akan muncul message box dengan tulisan “Hello World!”
Begini step by stepnya
- Buka Excel kalo belum
- Buat new workbook
- Save sebagai Hello World.xlsm
- Kita masuk ke VBE dengan Klik Alt+F11
- Buat new userform dengan klik kanan pada File kita di project Explorer lalu pilih Insert Userform
- Akan dihasilkan 1 userform yang masih kosong, dimana kita aka isi dengan2 buah control yaitu Command button dan Label
- Command button merupakan suatu tombol yang jika diKlik akan mengeksekusi perintah
- sedang label merupakan tulisan yang akan kita letakkan sebagai petunjuk di form
- Kita isi dulu commandbutton lalu kita ubah caption/textnya menjadi “click here”
- Kita tambahkan label lalu kita isi dengan kata2 dibawah ini :
- Setelah tampilannya Oke kita tinggal tambahkan kode ke form tersebut
- Untuk memberikan code yang akan dieksekusi jika tombol “click here” diklik pada saat aplikasi dijalankan maka kita klik2 kali pada tombol tsb atau klik kanan dan pilih “View Code”
- Akan muncul Code windows sbb
-
12345Private Sub CommandButton1_Click()End Sub
-
12345Private Sub CommandButton1_Click()MsgBox "Hello World!", vbOKOnly, "ngilmu.com - Build a real apps"End Sub
- Ini merupakan pemrograman Object oriented sehingga Object Commandbutton1 dengan event Click, artinya code diantaranya akan dieksekusi jika commandbutton diklik
- Akan mengeksekusi kode msgbox, artinya kotak pesan, dengan kata2 “Hello World!”, dimana kotak pesan tadi akan berisi tombol OK (vbOKOnly) serta memiliki Caption/Title “ngilmu.com – Build a real apps”
- Kita juga akan beri kode pada saat form pertama kali muncul, caranya pilih Code windows, pilih userform dan pilih inisialisasi, akan muncul pertama kali adalah userform1_click karena merupakan kode default
- Jangan kuwatir ganti aja pada events, inisialisasi
- isi dengan berikut ini
-
12345Private Sub UserForm_Initialize()Me.Caption = "ngilmu.com - Build a real apps"End Sub
- Intinya akan mengganti caption atau title dari form dengan “ngilmu.com – Build a real apps”
- Ini lengkapnya gambar form dan code
- windows
- Jika kita Klik F5/Run maka ini hasilnya
- Klik Tombol dan akan muncul jendela pesan
- Untuk menjalankannya kita bisa buatkan Ribbon, Menu, ataupu Tombol di worksheet
- Pilihan terakhir lebih sederhana
- Untuk membuat tombol diworksheet maka kita klik ribbon developer
- Kita pilih Insert
- Untuk mengedit kita perlu klik dulu Design Mode pada ribbon Developer
- Baru bisa kita klik kanan untuk edit Code maupun properties
- Pilih Commandbutton tadi, klik kanan lalu pilih View Code
- Isi seperti dibawah ini
- jika mau menjalankan klik aja tombol Click Me
Catatan : jika kita perhatikan commandbutton click me sama namanya dengan commandbutton Click Here yaitu commandbutton1, namun lokasinya berbeda satu di worksheet1 sedang satu di userform1, hal ini diperbolehkan karena berbeda induknya
Download source code