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
- Slides: 11