Belajar Visual Basic

Pada Tutorial Excel kali ini kita akan mencoba mempraktikkan membuat dan mendesain sebuah Form Pendaftaran UMPN sederhana, kemudian data tersebut dapat kita simpan di worksheet Excel. Ikuti langkah-langkah berikut ini.

1.      Buka Microsoft Excel, lalu pastikan anda telah mengaktifkan menu developer.

2.      Buat tabel di Microsoft Excel pada Sheet1 seperti ini.    

3.      Untuk membuat Tombol di Excel gunakan Button yang ada pada Form Controls.

 

4.    Tombol ini akan digunakan untuk memanggil Form VBA yang akan dibuat. Tambahkan coding berikut pada tombol.

Sub Button1_Click()

UserForm.Show

End Sub

5.     Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan Shortkey Alt + F11.

6.      Pilih menu Insert > UserForm maka akan tampil form VBA.

7.  Perhatikan jendela Toolbox, Jendela tool box digunakan untuk membuat control object yang dibutuhkan oleh form.

  

8.      Buatlah control sesuai dengan ketentuan properti di bawah ini.

Control	Name	Caption
From	UserForm	Aplikasi Pendaftaran UMPN PENS
Label Box	-	Aplikasi Pendaftaran UMPN PENS
	-	No Pendaftaran
	-	Nama
	-	Tempat Lahir
	-	Tanggal Lahir
	-	Jenis Kelamin
	-	Alamat
	-	No Telepon
	-	Email
	-	Asal Sekolah
	-	Nilai UN
	-	Pilihan Program Studi
Text Box	txtPendaftaran	-
	txtNama	-
	txtTempat	-
	txtAlamat	-
	txtTelepon	-
	txtEmail	-
	txtAsal	-
	txtNilai	-
Combo Box	cmbTanggal	-
	cmbBulan	-
	cmbTahun	-
	cmbJenjang	-
	cmbPilihan	-
Radio Button	radioLaki	-
	radioPerempuan	-
Command Button	btn_simpan	Simpan Data
	Btn_keluar	Keluar

9.   Letakkan semua control tadi hingga seperti ini.

10.  Kini saatnya untuk melakukan coding program, Klik kanan pada form lalu pilih view code, masukkan code pemrograman di bawah ini.

Private Sub btnSimpan_Click()

Dim emptyRow As Long

'aktifkan Sheet1

Sheet1.Activate

'deteksi baris kosong

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Simpan data ke sheet1

Cells(emptyRow, 1).Value = txtPendaftaran.Value

Cells(emptyRow, 2).Value = txtNama.Value

Cells(emptyRow, 3).Value = txtTempat.Value

Cells(emptyRow, 4).Value = cmbTanggal.Value & "/" & cmbBulan.Value & "/" & cmbTahun.Value

Cells(emptyRow, 6).Value = txtAlamat.Value

Cells(emptyRow, 7).Value = txtTelepon.Value

Cells(emptyRow, 8).Value = txtEmail.Value

Cells(emptyRow, 9).Value = txtAsal.Value

Cells(emptyRow, 10).Value = txtNilai.Value

Cells(emptyRow, 11).Value = cmbJenjang.Value & "-" & cmbPilihan.Value

If radioLaki.Value = True Then

    Cells(emptyRow, 5).Value = "LAKI-LAKI"

Else

   Cells(emptyRow, 5).Value = "PEREMPUAN"

End If

End Sub

Private Sub btnKeluar_Click()

End

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub UserForm_Initialize()

'Kosongkan data Text Box

txtPendaftaran.Value = ""

txtNama.Value = ""

txtTempat.Value = ""

txtAlamat.Value = ""

txtTelepon.Value = ""

txtEmail.Value = ""

txtAsal.Value = ""

txtNilai.Value = ""

'Clear Combo Tanggal

cmbTanggal.Clear

cmbBulan.Clear

cmbTahun.Clear

'Isi Tanggal untuk combo Box Tanggal Lahir

With cmbTanggal

.AddItem "1"

.AddItem "2"

.AddItem "3"

.AddItem "4"

.AddItem "5"

.AddItem "6"

.AddItem "7"

.AddItem "8"

.AddItem "9"

.AddItem "10"

.AddItem "11"

.AddItem "12"

.AddItem "13"

.AddItem "14"

.AddItem "15"

.AddItem "16"

.AddItem "17"

.AddItem "18"

.AddItem "19"

.AddItem "20"

.AddItem "21"

.AddItem "22"

.AddItem "23"

.AddItem "24"

.AddItem "25"

.AddItem "26"

.AddItem "27"

.AddItem "28"

.AddItem "29"

.AddItem "30"

.AddItem "31"

End With

'Isi Bulan untuk combo Box Bulan Lahir

With cmbBulan

.AddItem "JANUARI"

.AddItem "FEBRUARI"

.AddItem "MARET"

.AddItem "APRIL"

.AddItem "MEI"

.AddItem "JUNI"

.AddItem "JULI"

.AddItem "AGUSTUS"

.AddItem "SEPTEMBER"

.AddItem "OCTOBER"

.AddItem "NOVOMBER"

.AddItem "DESEMBER"

End With

'Isi Tahun untuk combo Box Tahun Lahir

With cmbTahun

.AddItem "1980"

.AddItem "1981"

.AddItem "1982"

.AddItem "1983"

.AddItem "1984"

.AddItem "1985"

.AddItem "1986"

.AddItem "1987"

.AddItem "1988"

.AddItem "1989"

.AddItem "1990"

.AddItem "1991"

.AddItem "1992"

.AddItem "1993"

.AddItem "1994"

.AddItem "1995"

.AddItem "1996"

.AddItem "1997"

.AddItem "1998"

.AddItem "1999"

.AddItem "2000"

.AddItem "2001"

.AddItem "2002"

.AddItem "2003"

.AddItem "2004"

.AddItem "2005"

.AddItem "2006"

.AddItem "2007"

.AddItem "2008"

.AddItem "2009"

.AddItem "2010"

.AddItem "2011"

.AddItem "2012"

.AddItem "2013"

.AddItem "2014"

.AddItem "2015"

.AddItem "2016"

End With

cmbJenjang.Clear

cmbPilihan.Clear

'Isi Jenjang untuk combo Box Jenjang

With cmbJenjang

.AddItem "D3"

.AddItem "D4"

End With

'Isi Pilihan untuk combo Box Pilihan Program Studi

With cmbPilihan

.AddItem "TEKNIK ELEKTRO"

.AddItem "TEKNIK TELEKOMUNIKASI"

.AddItem "TEKNIK ELEKTRO INDUSTRI"

.AddItem "TEKNIK INFORMATIKA"

.AddItem "TEKNIK KOMPUTER"

.AddItem "TEKNIK MEKATRONIKA"

.AddItem "SISTEM PEMBANGKIT ENERGI"

.AddItem "MULTIMEDIA BROADCASTING"

.AddItem "TEKNOLOGI GAME"

End With

'Reset Radio Button/Option Button

radioLaki.Value = False

radioPerempuan.Value = False

End Sub

Private Sub UserForm_Click()

End Sub

11.  Jalankan aplikasi tersebut, jika berhasil maka akan tampil seperti gambar di bawah ini.

 

Download Laporan