MEMBUAT FORM VBA SEDERHANA PADA MS EXCEL Form

MEMBUAT FORM VBA SEDERHANA PADA MS. EXCEL

Form Pendataan Karyawan Buka Microsoft Excel, lalu pastikan anda telah mengaktifkan menu developer Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan Shortkey Alt + F 11. Pilih menu Insert > User. Form maka akan tampil form VBA Perhatikan jendela Toolbox, Jendela tool box digunakan untuk membuat control object yang dibutuhkan oleh FORM.

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

Buatlah control sesuai dengan ketentuan properti di bawah ini

Masukkan code pemrograman di bawah ini. Private Sub btn. Simpan_Click() Dim empty. Row As Long 'aktifkan Sheet 1. Activate 'deteksi baris kosong empty. Row = Worksheet. Function. Count. A(Range("A: A")) + 1 'Simpan data ke sheet 1 Cells(empty. Row, 1). Value = txt. Id. Kar. Value Cells(empty. Row, 2). Value = txt. Nama. Karyawan. Value Cells(empty. Row, 3). Value = txt. Tempat. Lahir. Value Cells(empty. Row, 4). Value = cmb. Tanggal. Value & "/" & cmb. Bulan. Value & "/" & cmb. Tahun. Value Cells(empty. Row, 5). Value = txtemailid. Value

Lanjutan If Radio. Laki. Value = True Then Cells(empty. Row, 6). Value = "Laki-Laki“ Else Cells(empty. Row, 6). Value = "Perempuan" End If End Sub Private Sub cmd. Batal_Click() Unload Me End Sub Private Sub User. Form_Initialize() 'Kosongkan data Text Box txt. Id. Kar. Value = "“ txt. Id. Kar. Set. Focus 'txtempatlahir. Set. Focus txt. Nama. Karyawan. Value = "“ txt. Tempat. Lahir. Value = "" txtemailid. Value = ""

'Clear Combo Tanggal Lahir cmb. Tanggal. Clear cmb. Bulan. Clear cmb. Tahun. Clear 'Isi Tanggal untuk combo Box Tanggal Lahir With cmb. Tanggal. Add. Item "1". Add. Item "2". Add. Item "3". Add. Item "4". Add. Item "5". Add. Item "6". Add. Item "7". Add. Item "8". Add. Item "9". Add. Item "10". Add. Item "11". Add. Item "12". Add. Item "13". Add. Item "14". Add. Item "15". Add. Item "16". Add. Item "17". Add. Item "18". Add. Item "19". Add. Item "20". Add. Item "21". Add. Item "22". Add. Item "23". Add. Item "24". Add. Item "25". Add. Item "26". Add. Item "27". Add. Item "28". Add. Item "29". Add. Item "30". Add. Item "31" End With

'Isi Bulan untuk combo Box Bulan Lahir With cmb. Bulan. Add. Item "JAN". Add. Item "FEB". Add. Item "MAR". Add. Item "APR". Add. Item "MAY". Add. Item "JUN". Add. Item "JUL". Add. Item "AUG". Add. Item "SEP". Add. Item "OCT". Add. Item "NOV". Add. Item "DEC" End With

'Isi Tahun untuk combo Box Tahun Lahir With cmb. Tahun. Add. Item "1980". Add. Item "1981". Add. Item "1982". Add. Item "1983". Add. Item "1984". Add. Item "1985". Add. Item "1986". Add. Item "1987". Add. Item "1988". Add. Item "1989". Add. Item "1990". Add. Item "1991". Add. Item "1992". Add. Item "1993". Add. Item "1994". Add. Item "1995". Add. Item "1996". Add. Item "1997". Add. Item "1998". Add. Item "1999". Add. Item "2000". Add. Item "2001". Add. Item "2002"

. Add. Item End With "2003" "2004" "2005" "2006" "2007" "2008" "2009" "2010" "2011" "2012" 'Reset Radio Button/Option Button Radio. Laki. Value = False radio. Perempuan. Value = False End Sub Jalankan aplikasi tersebut, jika berhasil maka akan tampil seperti gambar di bawah ini

Tampilan