MEMBUAT FORM SEDERHANA DENGAN VBA

Topik Terkait

tutorialmicrosoftexcel.net -Pada Tutorial Microsoft Excel yang lalu kita telah membahas beberapa point mengenai bagaimana cara memulai VBA Excel Macro. Kali ini kita akan praktik bagaimana membuat FORM dengan VBA Excel dan menyimpan data pada Ms.Excel menggunakan form tersebut. Membuat form dengan VBA Excel dimaksudkan agar aplikasi pada VBA Excel lebih user friendly dan mudah untuk melakukan control data.

Pada Tutorial Excel kali 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 (baca Tutorial Memulai VBA Excel)
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
   Show

5. entries

   Search:

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

   Showing 1 to 7 of 7 entries

   PreviousNext
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
   Search:

   Control	Name	Caption
   From	frmKaryawan	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	Sex
   Text Box	txtidKar	-
   Text Box	txtnamaKaryawan	-
   Text Box	txttempatLahir	-
   Text Box	txtemailid	-
   Combo Box	cmbTgl	-
   Combo Box	cmbBulan	-
   Combo Box	cmbTahun	-
   Radio Button	radioLaki	Laki-Laki
   Radio Button	radioPerempuan	Perempuan
   Button	btnSimpan	Simpan
   Button	btnBatal	Batal

   Showing 1 to 18 of 18 entries
8. Kini saatnya untuk melakukan coding program,
9. Klik kanan pada form lalu pilih viewcode
10. Masukkan code pemrograman di bawah ini.
    
    Private Sub UserForm_Initialize() 'Kosongkan data Text Box txtidKar.Value = "" txtemKar.SetFocus txtnamaKaryawan.Value = "" txttempatLahir.Value = "" txtemailid.Value = "" 'Clear Combo Tanggal Lahir cmbTgl.Clear cmbBulan.Clear cmbTahun.Clear 'Isi Tanggal untuk combo Box Tanggal Lahir With cmbTgl .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 Private Sub cmdSimpan_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 = cmbdate.Value & "/" & cmbmonth.Value & "/" & cmbyear.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

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132

    Private Sub UserForm_Initialize() 'Kosongkan data Text Box txtidKar.Value = "" txtemKar.SetFocus txtnamaKaryawan.Value = "" txttempatLahir.Value = "" txtemailid.Value = ""   'Clear Combo Tanggal Lahir cmbTgl.Clear cmbBulan.Clear cmbTahun.Clear   'Isi Tanggal untuk combo Box Tanggal Lahir With cmbTgl .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   Private Sub cmdSimpan_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 = cmbdate.Value & "/" & cmbmonth.Value & "/" & cmbyear.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

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

Selamat mencoba Tutorial Microsoft Excel. Baca juga artikel kami VBA Macro Excel yang lain seperti Object Range Pada Macro Excel.