Microsoft Excel - membuat Form input

Diposting oleh Unknown on Jumat, 16 Maret 2012

M
ari Belajar microsoft excel lebih dalam. Layaknya Bahasa pemrograman, Microsoft Excel juga dilengkapi sebuah sistem ( membuat sebuah Excel Forms ), dimana kita dapat membangun sebuah Form Input untuk mengisikan sejumlah Data ke dalam table yang kita miliki pada sebuah worksheet di dalam program Microsoft excel.
Saya sakin ini hanya secuil ilmu dari sekian banyaknya ilmu menggunakan Microsoft Excel. Cara membuat sebuah form input untuk table Microsoft Excel 2003
  • Pertama kita buka Microsoft Excel dengan jendela kerja Baru
  • Buatlah beberapa header table pada baris sama, contoh : No, Nama Karyawan, Alamat Tinggal, Sex, Jabatan, Tanggal aktif.  Berikan background untuk header tadi agar terlihat jelas area table-nya
  • Ganti nama Sheet1 menjadi datakaryawan, Dapat anda lihat seperti contoh yang saya buat pada gambar 1
  • Simpan excel tadi dengan nama daftar karyawan dan pada kotak save as type pilih Microsoft excel 4.0 workbook
  • Buka menu tool pilih macro dan klik macros ( tekan  tombol Alt+F8 )
  • Pada Jendela macro, isikan macro name dengan Form dan pada macros in pilih datakaryawan, selanjutnya tekan tombol create lihat gambar 2 , maka system akan menampilkan jendela microsoft visual basic –daftarkaryawan.xlw seperti gambar 3
  • Klik kanan pada sheet1 ( datakaryawan ) pilih insert dan klik user form lihat gambar 4
  • Setelah anda lakukan langkah ke 7, maka anda akan di suguhkan tampilan Form kosong seperti gambar 5
  • pada kotak form toolbar, yang akan kita gunakan adalah label , textbox, commandbutton. serta melakukan pengeditan dari masing-masing komponen yang kita buat, pada area edit yang di tunjukkan pada gambar 5
  • sekarang mari kita berikan beberapa isi untuk Form, buatlah 6 buah label, 6 buah textbox dan 2 commandbutton

dengan ketentuan sebagai berikut :
label
  • label 1 caption-nya ganti dengan No
  •  label 2 caption-nya ganti dengan Nama Karyawan
  • label 3  caption-nya ganti dengan Alamat Tinggal
  • label 4 caption-nya ganti dengan Jenis Kelamin ( Sex )
  • label 5 caption-nya ganti dengan Jabatan
  • label 6 caption-nya ganti dengan Tanggal Aktif

textbox
  • textbox 1 (name)-nya ganti dengan no
  • textbox 2 (name)-nya ganti dengan nama
  • textbox 3 (name)-nya ganti dengan alamat
  • textbox 4 (name)-nya ganti dengan sex
  • textbox 5 (name)-nya ganti dengan jabatan
  • textbox 6 (name)-nya ganti dengan tglaktif
 CommandButton
  • Commandbutton1 ganti name-nya menjadi cmdsave dan ganti caption-nya menjadi Save
  • Commandbutton2 ganti name-nya menjadi cmdclose dan ganti caption-nya menjadi Close
kemudian tambahkan sebuah label dan ganti  caption-nya dengan INPUT DATA KARYAWAN PT. XXX , aturlah posisi sesuai dengan selera anda, sebagai contoh pengaturan posisi lihat gambar 6

  • selanjutnya kita akan memberikan kode perintah untuk setiap commandbutton
commandbutton save ( cmdsave )

kilk 2 kali pada commandbutton save dan tuliskan kode berikut tepat di bawah kode  Private Sub cmdsave_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("datakaryawan")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row


If Trim(Me.no.Value) = "" Then
Me.no.SetFocus
MsgBox "Masukan No Karyawan"
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.no.Value
ws.Cells(iRow, 2).Value = Me.nama.Value
ws.Cells(iRow, 3).Value = Me.alamat.Value
ws.Cells(iRow, 4).Value = Me.sex.Value
ws.Cells(iRow, 5).Value = Me.jabatan.Value
ws.Cells(iRow, 6).Value = Me.tglaktif.Value

Me.no.Value = ""
Me.nama.Value = ""
Me.alamat.Value = ""
Me.sex.Value = ""
Me.jabatan.Value = ""
Me.tglaktif.Value = ""
Me.no.SetFocus

Lihat gambar 7

Perhatikan lagi gambar 7 dan klik 2 kali userform1 agar muncul form desaign kita, kemudian klik 2 kali tombol close

Tuliskan Perintah Unload Me  tepat di bawah kode Private Sub cmdclose_Click()
Lihat gambar 8

  • Perhatikan lagi gambar 8 lihat pada module yang ditunjuk dengan lingkaran berwarna merah, klik kanan pada module pilih View Code
  • tepat di bawah kode Sub form() ketikkan kode perintah berikut

UserForm1.Show

Lihat gambar 9

  • selanjutnya kembali pada jendela worksheet Microsoft excel, buka menu View toolbar pilih form
  • Pada form toolbar yang muncul pilih button dan klik pada area worksheet
  • pilih Form dan tekan Ok
  • langkah terakhir, klik kanan button yang kita buat pilih add text, ubah label button tersebut dengan Tambah Data Karyawan, letakkan pada posisi yang anda inginkan lihat gambar 10
  • sekarang silahkan anda coba mengisi table dengan tombol Tambah Data Karyawan

perhatikan satu persatu setiap kode yang anda ketikkan, kesalahan sedikit dalam kode perintah akan menghentikan semua proses eksekusi perintah yang kita buat, artinya dalam memberikan perintah ( pengkodean ) tidak boleh ada kesalahan sedikitpun, semoga sedikit pelajaran ini dapat menambah motivasi kita dalam mempelajari berbagai ilmu computer, ingatlah bahwasanya setiap Ilmu yang kita dapatkan bisa kita kembangkan sendiri, Untuk dapat memahami Sebuah teori, maka harus ada praktik yang dilakukan.

{ 0 komentar... read them below or add one }

Posting Komentar