17 November 2008
Membuat Form dengan VBA di Excel
Langkah Membuat Form
- Buka aplikasi Excel pada MS Office (disini saya menggunakan Excel 2007)
- Buat tabel seperti gambar berikut:

- Ganti nama Sheet1 menjadi INPUTDATA
- Klik Developer pada Menubar
- Klik Visual Basic
- Klik Insert New Form
- Buat pada form 10 buah label, 9 buah TextBox dan 2 buah CommandButton
- Atur posisi dan properties kontrol sehingga menjadi seperti gambar berikut

- Untuk label Nama properti TextBox beri nama: TxNama
- Untuk label NIS properti TextBox beri nama: TxNIS
- Untuk label Matematika properti TextBox beri nama: TxMatematika
- Untuk label PMP properti TextBox beri nama: TxPMP
- Untuk label IPS properti TextBox beri nama: TxIPS
- Untuk label IPA properti TextBox beri nama: TxIPA
- Untuk label B.Indonesia properti TextBox beri nama: TxBind
- Untuk label B.Inggris properti TextBox beri nama: TxBing
- Untuk label Orkes properti TextBox beri nama: TxOrkes
- Untuk label CommandButton beri nama SIMPAN dan KELUAR
Udah belum...??? Jika sudah mari kita teruskan
- Klik ganda pada CommandButton SIMPAN
- Lalu ketikkan kode berikut:


Private Sub SIMPAN_Click()
TxNama.SetFocus --->Untuk menempatkan kursor awalnya selalu di TextBox Nama
If TxNama.Text = "" Then
MsgBox "Anda Belum Mengisi Nama", vbInformation, "PESAN"
Exit Sub
End If
If TxNIS.Text = "" Then
MsgBox "Anda Belum Mengisi NIS", vbInformation, "PESAN"
Exit Sub
End If
If TxMatematika.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai Matematika", vbInformation, "PESAN"
Exit Sub
End If
If TxPMP.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai PMP", vbInformation, "PESAN"
Exit Sub
End If
If TxIPS.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai IPS", vbInformation, "PESAN"
Exit Sub
End If
If TxIPA.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai IPA", vbInformation, "PESAN"
Exit Sub
End If
If TxBind.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai B.Indonesia", vbInformation, "PESAN"
Exit Sub
End If
If TxBing.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai B.Inggris", vbInformation, "PESAN"
Exit Sub
End If
If TxOrkes.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai Orkes", vbInformation, "PESAN"
Exit Sub
End If
ActiveWorkbook.Sheets("INPUTDATA").Activate
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TxNama.Value
ActiveCell.Offset(0, 1) = TxNIS.Value
ActiveCell.Offset(0, 2) = TxMatematika.Value
ActiveCell.Offset(0, 3) = TxPMP.Value
ActiveCell.Offset(0, 4) = TxIPS.Value
ActiveCell.Offset(0, 5) = TxIPA.Value
ActiveCell.Offset(0, 6) = TxBind.Value
ActiveCell.Offset(0, 7) = TxBing.Value
ActiveCell.Offset(0, 8) = TxOrkes.Value
Call HAPUS ---> Fungsinya untuk mengosongkan form pada saat SIMPAN diklik
Exit Sub
End Sub
Private Sub HAPUS()
TxNama.Text = ""
TxNIS.Text = ""
TxMatematika.Text = ""
TxPMP.Text = ""
TxIPS.Text = ""
TxIPA.Text = ""
TxBind.Text = ""
TxBing.Text = ""
TxOrkes.Text = ""
End Sub
- Lalu ketikkan kode berikut:
Private Sub KELUAR_Click()
End --> Untuk keluar dari program
End Sub
- Jalankan program dengan meng-klik Run-->Run Sub/UserForm atau tekan F5
Tak percaya?? Buktiin aja Ndiri....
Label: VBA pada Excell
12 November 2008
Mengenal Kontrol Option Button
Fungsi utama dari kontrol ini adalah untuk memilih salah satu dari beberapa pilihan yang ada pada suatu program yang kita buat. Kontrol ini tidak bisa memilih lebih dari satu pilihan.- Buka Visual Basic 6.0, kemudian klik StandardExe lalu klik Open
- Klik ganda kontrol Option Button pada ToolBox, maka di layar form akan muncul seperti gambar berikut:
| Properti | Keterangan |
| Name | Nama dari kontrol OptionButton yang dibuat |
| Alignment | Menentukan letak kontrol Option Button 0 - Left Justify, berada di sebelah kiri teks 1- Right Justify, berada di sebelah kanan teks |
| Appereance | Menentukan warna dan efek Option Button 0 - Flat untuk tampilan datar 1 - 3D untuk tampilan 3 dimensi |
| BackColor | Menentukan warna background Option Button |
| Caption | Teks yang tampil dalam tombol |
| DisabledPicture | Menampilkan gambar saat tombol perintah pada posisi disable |
| DownPicture | Menampilkan gambar pada saat tombol tersebut di klik. Kita dapat memberikan gambar yang berbeda pada tombol, yaitu pada saat tidak menekan dan saat menekan tombol |
| DragIcon | Menampilkan Icon pada saat tombol di drag |
| Enabled | Menentukan aktif/tidak kontrol Option Button |
| Font | Menentukan jenis dan ukuran huruf. Juga untuk membuat huruf tebal atau miring |
| Height | Menentukan tinggi tombol Option Button |
| Left | Menentukan jarak Option Button dari sisi kiri form |
| MouseIcon | Menentukan Icon mouse |
| MousePointer | Menentukan bentuk kursor mouse pada saat diletakkan di atas TextBox |
| Top | Menentukan jarak Option Button dari sisi atas form |
| Visible | Menentukan tampil/tidaknya Option Button di aplikasi |
| Width | Menentukan lebar Option Button |
3. Contoh Penggunaan Option Button
- Buka form baru
- Buat satu buah kontrol label
- Buat empat buat kontrol OptionButton
- Atur posisinya, contohnya seperti gambar berikut
| Kontrol | Properti | Nilai |
| Form1 | Name | Form1 |
| Caption | Tokoh Sensasional 2008 | |
| Label1 | Name | Lb Judul |
| AutoSize | True | |
| Caption | Tokoh Sensasional 2008 | |
| Font | MS Sans Serif / size 14 | |
| Option1 | Name | Opt1 |
| Alignment | 0 - Left Justify | |
| Caption | Ryan | |
| Option2 | Name | Opt2 |
| Alignment | 0 - Left Justify | |
| Caption | Syech Puji | |
| Option3 | Name | Opt3 |
| Alignment | 0 - Left Justify | |
| Caption | Amrozi Cs | |
| Option4 | Name | Opt4 |
| Alignment | 0 - Left Justify | |
| Caption | Habib Rizieq |
- Maka hasil setelah pengaturan properti, hasilnya akan seperti gambar berikut;

- Klik Run pada Menubar selanjutnya klik Start atau bisa dengan tekan F5 saja
- Maka hasil akhir dari aplikasi ini adalah seperti gambar berikut
Maka anda tinggal mengarahkan kursor ke salah satu pilihan anda, lalu klik kiri di Option Button yang anda pilih.Tapi ngomong-ngomong anda pilih siap yach...???
Label: Kontrol Visual Basic
09 November 2008
Mengenal Kontrol CommandButton
Fungsi utama tombol ini adalah untuk menjalankan atau mengeksekusi suatu kode program. Bentuk fisiknya adalah tombol. Tombol-tombol ini antara lain tombol Save, Exit, OK, Clear dan lain sebagainya1. Membuat CommandButton
- Buka Visual Basic 6.0, kemudian klik StandardExe lalu klik Open
- Klik ganda CommandButton pada ToolBox, maka hasilnya akan seperti gambar berikut

- Untuk merubah ukuran dan posisi kontrol CommandButton gunakan mouse pointer , tarik dan drag sesuai keinginan anda. Bisa juga dengan merubah nilai di properties untuk Height dan Width
2. Properti CommandButton
| Properti | Keterangan |
| Name | Nama dari kontrol CommandButton yang dibuat |
| Appereance | Menentukan warna dan efek 0 - Flat untuk tampilan datar 1 - 3D untuk tampilan 3 dimensi |
| BackColor | Menentukan warna background CommandButton dengan terlebih dahulu mengganti Style dengan 1 - Graphical |
| Cancel | Tombol perintah yang mendapat fokus akan bisa dijalankan dengan menggunakan tombol Esc |
| Caption | Teks yang tampil dalam tombol CommandButton |
| Default | Tombol perintah menjadi fokus pertama pada saat aplikasi dijalankan |
| DisabledPicture | Menampilkan gambar saat tombol perintah pada kondisi disabled |
| DownPicture | Menampilkan gambar pada saat tombol tersebut di klik. Kita dapat memberikan gambar yang berbeda pada tombol, yaitu pada saat tidak menekan dan saat menekan tombol |
| DragIcon | Menampilkan icon pada saat tombol di drag |
| Enabled | Menentukan kontrol CommandButton aktif atau tidak |
| Font | Menentukan jenis dan size huruf |
| Height | Menentukan tingginya kontrol |
| Left | Menentukan jarak kontrol dari sisi kiri form |
| MouseIcon | Menentukan Icon Mouse |
| MousePointer | Menentukan bentuk kursor Mouse, pada saat berada di atas kontrol CommandButton |
| Picture | Menentukan file gambar yang akan ditampilkan pada tombol perintah. Terlebih dahulu ganti Style dengan pilihan 1 - Graphical |
| Style | Menentukan jenis tombol perintah 0 - Standard untuk standard window 1 - Garaphical untuk gambar |
| TabIndex | Menentukan urutan nomor CommandButton |
| TabStop | Menentukan apakah tombol CommandButton dapat atau tidak menerima fokus |
| ToolTipText | Menentukan teks yang akan ditampilkan dalam tooltip (penjelasan singkat pada objek) |
| Top | Menentukan jarak kontrol dari sisi atas form |
| Visible | Menentukan tampil/tidaknya CommandButton di aplikasi |
| Width | Menentukan lebar CommandButton |
3. Contoh Penggunaan CommandButton
- Buat form baru
- Buat empat buah kontrol Label
- Buat tiga buah kontrol TextBox
- Atur posisi masing masing kontrol sesuai keinginan dan kebutuhan
Sebagai contoh seperti gambar berikut

Kemudian atur propertinya, sebagai berikut;
| Kontrol | Properti | Nilai |
| Form1 | Name | Form1 |
| Caption | Program Perkalian Sederhana | |
| Label1 | Name | Lb Judul |
| AutoSize | True | |
| Caption | Program Perkalian Sederhana | |
| Font | MS Sans Serif / size 14 | |
| Label2 | Name | LbBilangan1 |
| Caption | Bilangan 1 | |
| Label3 | Name | LbBilangan2 |
| Caption | Bilangan 2 | |
| Label4 | Name | LbHasil |
| Caption | Bilangan Hasil | |
| Text1 | Name | TxBilangan1 |
| Alignment | 0 - Left Justify | |
| TabIndex | 1 | |
| Text | Kosongkan | |
| Text2 | Name | TxBilangan2 |
| Alignment | 0 - Left Justify | |
| TabIndex | 2 | |
| Text | Kosongkan | |
| Text3 | Name | TxHasil |
| Alignment | 0 - Left Justify | |
| TabIndex | 3 | |
| Text | Kosongkan | |
| Command1 | Name | CbHitung |
| Caption | Hitung | |
| TabIndex | 3![]() | |
| Command2 | Name | CbSelesai |
| Caption | Selesai | |
| TabIndex | 4 |
Hasil pengaturan properti dapat dilihat pada gambar berikut:

- Klik ganda pada CommandButton Hitung, akan muncul sebuah jendela kode. Ketikkan kode berikut pada jendela kode tersebut
Private Sub CbHitung_Click()
TxHasil.Text = TxBilangan1.Text * TxBilangan2.Text
End Sub
- Kemudian klik ganda pada CommandButton Selesai maka akan muncul lagi jendela kode yang tadi.
- Ketikkan kode berikut
Private Sub CbSelesai_Click()
End
End Sub
Kode ini akan mengakhiri atau keluar dari aplikasi pada saat CommandButton atau tombol Selesai di klik.
Jendela kode dan kode program dari kedua CommandButton di atas dapat dilihat pada gambar berikut:

- Klik Run atau tekan F5
Maka aplikasi akan dijalankan, dan tampilan aplikasinya adalah seperti gambar berikut:

Ketikkan angka di kotak Bilangan1 dan Bilangan2 kemudian klik tombol Hitung, maka di kotak Hasil akan tampil hasil perhitungannya.
Untuk mengakhiri atau keluar program klik tombol Selesai.
Label: Kontrol Visual Basic
02 November 2008
Mengenal Kontrol Text Box
TextBox adalah kontrol untuk menerima input dari pemakai program. Kebanyakan TextBox ini diberi keterangan oleh Label untuk memperjelas pada saat input data oleh si pemakai.1. Membuat TextBox
- Buka Visual Basic 6.0, kemudian klik StandardExe lalu klik Open
- Klik ganda kontrol TextBox pada Toolbox maka di layar form akan muncul sebuah kontrol TextBox (lihat gambar)

- Untuk merubah ukuran dan posisi kontrol TextBox gunakan mouse pointer , tarik dan drag sesuai keinginan anda. Bisa juga dengan merubah nilai di properties untuk Height dan Width
2. Properti TextBox
Berikut penjelasan mengenai properti yang umum dipakai pada kontrol TextBox
| Properti | Keterangan |
| Name | Nama dari kontrol TextBox yang dibuat |
| Alignment | Meratakan teks pada kotak objek TextBox 0 - Left Justify untuk perataan kiri 1- Right Justify untuk perataan kanan 2 - Center untuk perataan tengah |
| Appereance | Menentukan warna dan efek 0 - Flat untuk tampilan datar 1 - 3D untuk tampilan 3 dimensi |
| BackColor | Menentukan warna background TextBox |
| BackStyle | Menentukan sifat dari label 0 - Transparent untuk transparan (tembus pandang) 1 - Opaque untuk tidak transparan (tembus pandang) |
| BorderStyle | Menentukan tipe bingkai kotak TextBox 0 -None untuk tidak ada pembatas 1 - Fixed Single untuk membuat pembatas garis tunggal |
| DataFormat | Menentukan Format dari data yang diisikan |
| Enabled | Menentukan aktif/tidak kontrol TextBox |
| Font | Menentukan jenis dan ukuran huruf. Juga untuk membuat huruf tebal atau miring |
| ForeColor | Menentukan warna teks dalam objek TextBox |
| Height | Menentukan tinggi TextBox |
| Left | Menentukan jarak TextBox dari sisi kiri form |
| Locked | Mengunci atau melepas pengisian data pada TextBox |
| MouseIcon | Menentukan Icon mouse |
| MultiLine | Teks yang diinput pada TextBox bisa lebih dari satu baris |
| MousePointer | Menentukan bentuk kursor mouse pada saat diletakkan di atas TextBox |
| PasswordChar | Menentukan karakter yang akan ditampilkan saat input . Umumnya digunakan simbol password atau kata sandi |
| ScrollBars | Menampilkan ScrollBar (penggulung) |
| TabStop | Menentukan TextBox bisa menerima fokus atau tidak |
| TabIndex | Menentukan nomor urut fokus TextBox |
| Text | Teks yang akan tampil pada TextBox. Umumnya dikosongkan Sehingga pada saat proses pengisian tidak ada data terlihat |
| ToolTipText | Menentukan teks yang akan ditampilkan dalam tooltip (penjelasan singkat pada objek) |
| Top | Menentukan jarak TextBox dari sisi atas form |
| Visible | Menentukan tampil/tidaknya TextBox di aplikasi |
| Width | Menentukan lebar TextBox |
3. Contoh Penggunaan TextBox
- Buat tiga buah kontrol label dan 3 buah kontrol TextBox, sehingga terlihat seperti gambar

Kemudian atur Propertinya
| Kontrol | Properti | Nilai |
| Form1 | Name | FormTextBox |
| Caption | Menghitung Total Bayar | |
| Label1 | Name | Lb Judul |
| AutoSize | True | |
| Caption | Form1 | |
| Font | MS Sans Serif / size 14 | |
| Label2 | Name | LbHarga |
| Caption | Harga Kamar | |
| Label3 | Name | LbLama |
| Caption | Lama Menginap | |
| Label4 | Name | LbBayar |
| Caption | Total Bayar | |
| Text1 | Name | TxHarga |
| Alignment | 0 - Left Justify | |
| TabIndex | 1 | |
| Text | Kosongkan | |
| Text2 | Name | TxLama |
| Alignment | 0 - Left Justify | |
| TabIndex | 2 | |
| Text | Kosongkan | |
| Text3 | Name | TxBayar |
| Alignment | 0 - Left Justify | |
| TabIndex | 3 | |
| Text | Kosongkan |
Hasil dari pembuatan properti ini, dapat dilihat pada gambar berikut

- Klik ganda pada TextBox TxBayar (dengan label Total Bayar), maka akan muncul jendela kode di layar.Kemudian ketik kode program berikut ini
TxBayar.Text = TxHarga.Text * TxLama.Text
End Sub
Dalam gambar jendela kodenya sbb:

- Simpan form dan projek ini dengan nama Test-TextBox
- Untuk menjalankan program aplikasi tekan F5, atau di menubar klik Run lalu klik Start. Maka Hasil akhirnya seperti gambar berikut:

Label: Kontrol Visual Basic
01 November 2008
Mengenal Kontrol Label
Label adalah sebuah kontrol yang berfungsi menampilkan teks pada aplikasi yang kita buat untuk memperjelas sebuah objek. Kontrol label paling banyak digunakan untuk memberi nama atau keterangan dari kontrol Text Box.1. Membuat Label
Berikut langkah-langkah untuk membuat label:
- Buka Visual Basic 6.0, kemudian klik StandardExe lalu klik Open
- Klik ganda kontrol label pada Toolbox maka di layar form akan muncul sebuah kontrol label
- Tekan F4 untuk menampilkan Properties Window
- Ketik pada Caption sebuah teks sesuai keinginan dan kebutuhan kita. Dalam hal ini misalnya joss7vb.blogspot.com
- Kita dapat merubah ukuran dan posisi dengan menempatkan mouse pointer pada handdle label. Kemudian rubah atau geser sesuai keinginan- Untuk merubah otomatis ukuran kotak kontrol sesuai dengan besar dan panjang teks maka ganti nilai AutoSize menjadi True.
- Jika ingin membuat teks yang terdiri dari beberapa baris ke bawah maka buat nilai properti AutoSize dan WordWrap bernilai True2. Properti Label
Berikut ini penjelasan beberapa properti penting dari kontrol label
| Properti | Keterangan |
| Name | Nama dari kontrol label yang dibuat |
| Alignment | Meratakan teks label pada kotak objek label. 0 - Left Justify untuk perataan kiri 1- Right Justify untuk perataan kanan 2 - Center untuk perataan tengah |
| Appereance | Menentukan warna dan efek 0 - Flat untuk tampilan datar 1 - 3D untuk tampilan 3 dimensi |
| AutoSize | Menyesuaikan kotak kontrol dengan besar dan panjangnya teks Pilihannya terdiri dari True & False |
| BackColor | Menentukan warna background label |
| BackStyle | Menentukan sifat dari label 0 - Transparent untuk transparan (tembus pandang) 1 - Opaque untuk tidak tranparan (tembus pandang) |
| BorderStyle | Menentukan tipe bingkai kotak label 0 -None untuk tidak ada pembatas 1 - Fixed Single untuk membuat pembatas garis tunggal |
| Caption | Teks yang akan ditampilkan pada label |
| Enabled | Mengaktifkan label |
| Font | Menentukan jenis dan ukuran huruf. Juga untuk membuat huruf tebal atau miring |
| ForeColor | Menentukan warna teks label |
| Index | Menentukan urutan nomor index objek sekarang dalam array objek |
| Height | Menentukan tinggi label |
| Left | Menentukan jarak label dari sisi kiri form |
| MousePointer | Menentukan bentuk kursor mouse pada saat diletakkan di atas label |
| TabIndex | Menentukan nomor urut fokus label |
| ToolTipText | Menentukan teks yang akan ditampilkan dalam tooltip (penjelaskan singkat pada objek |
| Top | Menentukan jarak label dari sisi atas form |
| Visible | Menentukan tampil/tidaknya label di aplikasi |
| Width | Menentukan lebar label |
| WordWrap | Menentukan ukuran kontrol label akan menyesuaikan dengan teks pada label yang terdapat pada Caption |
Label: Kontrol Visual Basic
30 Oktober 2008
Operator Dasar Visual Basic
1. Operator Aritmetika
| Operator | Keterangan | Contoh Penggunaan |
| ^ | Pemangkatan | 7 ^ 7 = 49 |
| * | Perkalian | 7 * 2 = 14 |
| + | Penjumlahan | 7 + 2 = 9 |
| - | Pengurangan | 7 - 1 = 6 |
| / | Pembagian | 49 / 7 = 7 |
| \ | Pembagian Integer | 14 \ 7 = 2 |
| MOD | Sisa hasil bagi | 7 MOD 2 = 1 |
2. Operator Pembanding
| Operator | Keterangan | Contoh Penggunaan | |
| Soal | Hasil | ||
| > | Lebih besar dari | 7 > 2 | Benar |
| 7 >7 | Salah | ||
| >= | Lebih besar dari sama dengan | 7 > = 2 | Benar |
| 7 > = 7 | Benar | ||
| < | Lebih kecil dari | 7 <> | Salah |
| 7 <> | Salah | ||
| <= | Lebih besar dari sama dengan | 7 < = 2 | Salah |
| 7 < = 7 | Benar | ||
| = | Sama dengan | 7 = 2 | Salah |
| 7 = 7 | Benar | ||
| < > | Tidak sama dengan | 7 < > 2 | Benar |
| 7 < >7 | Salah | ||
3. Operator Logika
Operator logika digunakan untuk membandingkan suatu nilai dengan nilai yang lain dan akan mendapatkan hasil TRUE (benar) atau FALSE (salah). Bentuk dan contoh dari operator ini dapat dilihat pada tabel berikut:
| Operator | Keterangan | Contoh Penggunaan | |
| Soal | Hasil | ||
| NOT | Menyatakan ekspresi TIDAK | NOT Benar | Salah |
| NOT Salah | Benar | ||
| AND | Menyatakan ekspresi DAN | Salah AND Salah | Salah |
| Salah AND Benar | Salah | ||
| Benar AND Salah | Salah | ||
| Benar AND Benar | Benar | ||
| OR | Menyatakan ekspresi ATAU | Salah OR Salah | Salah |
| Salah OR Benar | Benar | ||
| Benar OR Salah | Benar | ||
| Benar OR Benar | Benar | ||
Label: Dasar-dasar VB 6.0



.png)