1.Rename Worksheet menjadi "Kredit" *Tanpa tanda petik
2.buka ms excel
3.buat table untuk form input *di contoh gambar saya membuat form input kartu kredit
4.Buka tab View-Macros-View Macro,lalu buat macro dengan nama:Kredit
5.lalu akan terbuka Visual Basic,insert-userform masukkan dengan nama: bayar_kredit
6.lalu buat:
Objek | Properti |
---|---|
Label | Name:Label1 Caption:Nomor Kartu Tempat=dikiri atas |
Label | Name:Label2 Caption:Jenis Kartu Tempat=dikiri tengah |
Label | Name:Label3 Caption:Atas Nama Tempat=dikiri tengah |
Label | Name:Label4 Caption:Harga Tempat=dikiri bawah |
Command Button | Name:cmdInput Caption:Bayar Tempat=Bawah tengah |
7.lalu klik kanan Userform klik view code
Masukkan code:
Private Sub cmdInput_Click()
Set wsdatabase = Sheets("kredit")
Dim Barisdatabase As Long
If txtkartu.Text = "" Then
MsgBox "NOMOR masih kosong", vbOKOnly
txtNIS.SetFocus
Exit Sub
ElseIf txtjenis.Text = "" Then
MsgBox "jenis kartu kosong", vbOKOnly
txtbarang.SetFocus
Exit Sub
Exit Sub
End If
With wsdatabase
Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 1).Row
'--- data input
.Cells(Barisdatabase + 1, 1).Value = txtkartu.Text
.Cells(Barisdatabase + 1, 2).Value = txtjenis.Text
.Cells(Barisdatabase + 1, 3).Value = txtnama.Text
.Cells(Barisdatabase + 1, 4).Value = txtharga.Text
txtkartu.Text = ""
txtjenis.Text = ""
txtnama.Text = ""
txtharga.Text = ""
MsgBox "Data sudah disimpan", vbOKOnly
txtkartu.SetFocus
End With
End Sub
Private Sub UserForm_Click()
End Sub
8.Lalu ke module dengan project explorer:
Masukkan code:
Sub kredit()
bayar_kredit.Show
End Sub
lalu tekan CTRL+S Lalu Tutup Visual Basic,And Finish