Form VBA Sederhana Pada Excel

Haloo......Apa kabar tentunya baik-baik saja kan, pada kesempatan yang paling indah ini, disaat di luar rumah sedang gerimis-gerimis mengundang, saya sempatkan untuk membagikan sedikit Tutorial Excel membuat Form VBA Sederhana pada Excel, pada kesempatan ini kita akan mencoba mempraktikkan membuat dan mendesain sebuah Form pendataan Karyawan 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.     Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan Shortkey Alt + F11.

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

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

5.     Berikut ini keterangan dari control toolboxs yang akan kita gunakan untuk membuat form VBA Sederhana Pada Ms. Excel

Controls	Keterangan
	Label
	Text Box
	Combo Box
	Radio Button (Option Button)
	Command Button
	Check Box
	List Box

6.     Setiap control memiliki properti ada pada jendela properties. Gambar di bawah ini akan menjelaskan bagaimana mengisi sebuah properti pada control.

7.     Buatlah control sesuai dengan ketentuan properti di bawah ini

safs

Get paid to share your links!

dafdsafdsafsd

Control	Name	Caption
From	UserForm	Form Karyawan
Label Box	idKar	ID Karyawan
Label Box	namaKaryawan	Nama Karyawan
Label Box	tempatLahir	Tempat Lahir
Label Box	tglLahir	Tanggal Lahir
Label Box	mailid	Email ID
Label Box	sex	Jenis Kelamin
Text Box	txtidKar	-
Text Box	txtnamaKaryawan	-
Text Box	txttempatLahir	-
Text Box	txtemailid	-
Combo Box	cmbTanggal	-
Combo Box	cmbBulan	-
Combo Box	cmbTahun	-
Radio Button	radioLaki	Laki-Laki
Radio Button	radioPerempuan	Perempuan
Button	btnSimpan	Simpan
Button	btnBatal	Batal

8.     Kini saatnya untuk melakukan coding program,

9.     Klik kanan pada form lalu pilih viewcode

10.  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 = txtIdKar.Value

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

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

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

Cells(emptyRow, 5).Value = txtemailid.Value

If RadioLaki.Value = True Then

    Cells(emptyRow, 6).Value = "Laki-Laki"

Else

   Cells(emptyRow, 6).Value = "Perempuan"

End If

End Sub

Private Sub cmdBatal_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

'Kosongkan data Text Box

txtIdKar.Value = ""

txtIdKar.SetFocus

'txtempatlahir.SetFocus

txtNamaKaryawan.Value = ""

txtTempatLahir.Value = ""

txtemailid.Value = ""

'Clear Combo Tanggal Lahir

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 "JAN"

.AddItem "FEB"

.AddItem "MAR"

.AddItem "APR"

.AddItem "MAY"

.AddItem "JUN"

.AddItem "JUL"

.AddItem "AUG"

.AddItem "SEP"

.AddItem "OCT"

.AddItem "NOV"

.AddItem "DEC"

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"

End With

'Reset Radio Button/Option Button

RadioLaki.Value = False

radioPerempuan.Value = False

End Sub

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

Demikian Tutorial kami tentang Form VBA Sederhana Pada Excel sangat mudah dipraktikan dan dipahami. 

» Thanks for reading Form VBA Sederhana Pada Excel

Tweet