vbe

Cara membuat prosedur-prosedur buatan kita sendiri pada Worksheet dan Workbook. Kode-kode program dalam prosedur yang kita buat di sebuah Worksheet dan Workbook tertentu, hanya akan bekerja pada Worksheet atau Workbook tersebut. Sedang prosedur yang tertulis pada Modules, bekerja pada Worksheet dalam Worbook yang aktif.
Pertama-tama masuk pada microsoft excel lalu tekan Alt+F11 cara untuk memebuka VBE, setelah itu klik Sheet 1, dan memberinya prosedur bernama "auto_open".

Perhatikan ketika kita mengetik mengetik perintahnya, jangan sampai ada yang salah atau terlewatkan
Contoh :
Sub auto_open() MsgBox “Hellloo World......What are you doing now?” End Sub
Selelah melakukan pengetikan tersebut, anda klik tanda play . Lalu akan ada tampilan seperti . Lalu klik ok.
Setelah Auto open, kita lanjutkan ke Input Box.
Caranya sama seperti auto open, pertama pada form diketik :
Sub coba_input()
Dim Pesan$, Isi As Variant
Pesan$ = “What’s Your name?”
Isi = InputBox (Pesan$)
MsgBox Isi
End Sub

Setalah itu klik tanda play, lalu akan muncul kotak dialog seperti berikut :

Isi kotak tersebut, lalu klik ok, akan keluar kotak dialog lagi lalu klik ok.

Selanjutnya setelah pembuatan input box, anda buat buat coba cell dab coba range cell.
Cara’nya sebagai berikut :
Sub coba_cell()
Cells (1, 2) = “tes”
End Sub
Penjelasan dalam gambar :
Pertama-tama ketik perintah seperti diatas, akan ditampilkan dalam gambar berikut :

Lalu klik icon play
Setelah itu lihatlah perubahan yang terjadi pada microrosoft excel yang sedang aktif, lihat gambar berikut :

Setelah coba cell selesai lanjutkan pada coba range
Caranya hampir sama didalam form VBE pada excel anada ketik
Sub coba_range()
Range("c3").Value = "merah"
End Sub
Penjelasan akan dibahas dengan gambar
Pertama anda ketik pada form VBE seperti yang diketikan di atas. Akan tampak gambar sebagai berikut :

Setelah itu klik icon play lalu lihat perubahan yang ada pada excel

Setelah selesai, lanjutkan pada Sub perulangan
Sub Perulangan
For i = 1 to 10
Cells(i, 1) = i
Next i
End Sub
Setelah pengetikan pada form, lalu tekan play

Perubahan yang terjadi pada excel.

Selanjutnya Sub perulangan yang ke-2
Sub perulangan()
For i = 1 to 5
For j = 1 to i
Cells(i, j) = i
Next j
Next i
End Sub
Lihatlah pda gambar form berikut lalu klik tanda play


Perubahan yang terjadi setelah menekan icon play

Selanjutnya pembuatan sub kondisi
Sub kondisi()
If Range(“a1”) . Value = “” Then
MsgBox “Range A1 Kosong”
Else
MsgBox “Range A1 Tidak Kosong”
End If
End Sub
Setelah pengetikan pada form

Hasil setelah di klik icon play

Klik OK.
Selesai