LATIHAN 1 : Membuat User Form

Contoh User Form

Private Sub CMDMASUK_Click()
Dim Kolom As Long
Dim lembar As Worksheet
Set lembar = Worksheets("LATIHAN")
Kolom = lembar.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
'ngcek kolom kosong
If Trim(Me.txt_no.Value) = "" Then
Me.txt_no.SetFocus
MsgBox "No Tidak Boleh Kosong"
Exit Sub
End If
 'fungsi masukan data ke cells
lembar.Cells(Kolom, 1).Value = Me.txt_no
lembar.Cells(Kolom, 2).Value = Me.txt_nama
lembar.Cells(Kolom, 3).Value = Me.txt_jeniskelamin
lembar.Cells(Kolom, 4).Value = Me.txt_alamat

'hapus data
Me.txt_no.Value = ""
Me.txt_nama.Value = ""
Me.txt_jeniskelamin.Value = ""
Me.txt_alamat.Value = ""
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
cancel = True
MsgBox "Gunakan Tombol Untuk Keluar"
End If
End Sub