MEMBUAT FORM SEDERHANA PADA MS.EXCEL 2016

Hei sobat blogger gimana kabarnya nih..? sehat kan...

Kali ini saya akan sedikit berbagi pengetahuan mengenai pembuatan form pada Ms.Excel 2016.

Langsung saja ya, gak usah basa basi

Baiklah sekarang kita akan memulai membuat form tersebut.

Untuk langkah pertama silahkan buka Ms.Excel teman-teman lalu klik tab developer , untuk yang belum bisa memunculkan tab developer pada Ms.Excel 2016 silahkan klik di sini

Langkah yang kedua pada menu developer pilih macro security seperti gambar di bawah

lalu pada bagian macro setting kita enablekan dulu untuk mengantisipasi error, jika sudah click ok.

Jika semua langkah diatas sudah dilakukan, langkah yang selanjutnya adalah membuat tabel.

Untuk tabel terserah temen-temen ya. Untuk kali ini saya contohkan tabel data nama dan npm.

Seperti gambar dibawah

Setelah selesai membuat tabel, saya sarankan nama sheetnya diganti untuk mempermudah kita nantinya...

Langkah selanjutnya pada menu developer pilih macros

Lalu akan muncul form seperti gambar dibawah ini..

Form di bawah ini untuk membuat module (nama module terserah tman-teman), untuk contaoh saya buat module dengan nama datanama. Jika sudah membuat module lalu klik create

Sekarang kita akan membuat formnya

Silahkan tekan tombol alt+f11 lalu klik kanan pada module trus pilih insert dan pilih UserForm Seperti gambar berikut

Jika sudah maka akan muncul form seperti gambar berikut

Selanjutnya buatlah form seperti yang teman-teman inginkan, untuk kali ini saya contohkan seperti berikut

Rubahlah komponen dan propertiesnya seperti berikut

Komponen form dan properties

Toolbox	Propeties
Label1	Caption : DAFTAR NAMA KELAS SI 2C MATA KULIAH PPN
Label2	Caption :NPM
Label3	Caption :NAMA
Label4	Caption :HOBI
Textbox1	Name :txtnpm
Textbox2	Name :txtnama
Textbox3	Name :txthobi
Commandbutton1	Name :btninput Caption :INPUT
Commandbutton2	Name :btncencel Caption :CENCEL
Commandbutton3	Name :btnexit Caption :EXIT

Jika sudah membuat form dan mengatur propertiesnya tinggal masukin kodingnya,,,

Silahkan masukkan kode berikut

Private Sub btncencel_Click()

'kode dibawah ini digunakan untuk meng-cencel data yang akan diinput

Me.txtnpm.Value = ""

Me.txtnama.Value = ""

Me.txthobi.Value = ""

Me.txtnpm.SetFocus

End Sub

Private Sub btnexit_Click()

'kode dibawah ini digunakan untuk keluar dari form

Unload Me

End Sub

Private Sub btninput_Click()

'kode dibawah ini (kolom) digunakan untuk variable

Dim kolom As Long

'kode yang berada didalam kurung ("data") merupakan nama dari sheet yang telah kita buat

Sheets("data").Activate

'kode (Range("C:C")) +4 merupakan kode yang menunjukan bahwa penginputan dimulai dari kolom C pada baris ke 3

kolom = WorksheetFunction.CountA(Range("C:C")) + 4

If Trim(Me.txtnpm.Value) = "" Then

Me.txtnpm.SetFocus

MsgBox "Isi NPM..!"

Exit Sub

End If

If Trim(Me.txtnama.Value) = "" Then

Me.txtnama.SetFocus

MsgBox "Isi Nama..!"

Exit Sub

End If

If Trim(Me.txthobi.Value) = "" Then

Me.txthobi.SetFocus

MsgBox "Isi Hobi..!"

Exit Sub

End If

Cells(kolom, 3).Value = txtnpm.Value

Cells(kolom, 4).Value = txtnama.Value

Cells(kolom, 5).Value = txthobi.Value

'kode di bawah digunakan untuk mengkosongkan kolom secara otomatis setelah menginput data

Me.txtnpm.Value = ""

Me.txtnama.Value = ""

Me.txthobi.Value = ""

Me.txtnpm.SetFocus

End Sub

Note : Pada kode diatas sudah saya ikut sertakan penjelasanya. Jadi yang kurang paham dengan kodiannya bisa langsung baca keterangannya. Ok

Selamat mencoba, dan semoga berhasil

Salam,,,