CARA MEMBUAT APLIKASI FORM DI MS.EXCEL
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 :
- 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
Video Yang terkait dengan materi ini adalah dibawah ini :
Bagian Video Yang Baru dan terkait dengan script di atas
0 komentar:
Posting Komentar