CARA MEMBUAT APLIKASI FORM DI MS.EXCEL

Hallo sobat muda semuanya jumpa lagi nih bersama saya...siapa yaah ?..hehe
Okeh langsung saja sob. ane mau bagi bagi tutorial nih yang mau belajar membuat form aplikasi sederhana dengan menggunakan program Ms. Excel yang nantinya kita akan kaitkan dengan yang namanya MACROH, gak pake H keleess..heeee...simak aja boss dibawah ini :

Langkah pertama buatlah tabel isian seperti dibawah ini sob hanya contoh saja, ente bisa kembangkan sendiri tabelnya

Ganti nama sheets nya sesuai dengan selera, disini saya menggunakan nama sheets "ISIDATA"
berikutnya, setelah ente buat tabelnya tekan tombol ALT+F11 untuk membuka Macronyah.
dan buatlah design form dengan cara klik kanan pada user form lalu klik insert lalu pilih user form. lihat gambar dibawah ini :

setelah itu design lah formnya seperti ini :

gunakan toolbox untuk membuat propertinya seperti
- LABEL
- TEXT BOX
- BUTTON
Untuk cara mendesignya anda bisa liat pada video tutorial di bawah ini :
setelah itu masukan scriptnya seperti di bawah ini

1. Script untuk button Tambah Data
Private Sub CMDTAMBAH_Click()Dim iRow As LongDim ws As WorksheetSet ws = Worksheets("ISIDATA")'menemukan baris kosong pada databaseiRow = ws.Cells(Rows.Count, 2) _.End(xlUp).Offset(1, 0).Row'check untuk sebuah kodeIf Trim(Me.tnama.Value) = "" ThenMe.tnama.SetFocusMsgBox "Masukan Nama Anda"Exit SubEnd If'copy data ke databasews.Cells(iRow, 2).Value = Me.tnama.Valuews.Cells(iRow, 3).Value = Me.tusia.Valuews.Cells(iRow, 4).Value = Me.tlp.Valuews.Cells(iRow, 5).Value = Me.tketerangan.Value'clear DataMe.tnama.Value = ""Me.tusia.Value = ""Me.tlp.Value = ""Me.tketerangan.Value = ""Me.tnama.SetFocusEnd Sub

2.Script Untuk Tombol "Keluar"
Private Sub CMDKELUAR_Click()
Unload Me
End Sub

3. Script Untuk kalimat Peringatan " Tempatkan di bagian user formnya"
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "MAKE TOMBOL ATUH KANG!"
End If

End Sub