Cara Buat Insert Form Di Excel Dengan VBA (Visual Basic)

Malam Indonesia,ini adalah blog pertama saya dan post pertama saya,jadi maklum kalau jelek :D,langsung ke topik,kali ini saya akan membagi tutorial membuat form input di Excel,jika ingin mengubah,mengkopas silahkan tidak dilarang,lanjut ke topik,

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

Sehingga jadi seperti:

*Properti Dapat Diubah Di Pojok Kiri Bawah

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

Jika Kurang Ngerti Email Ke:michaelifebrian@gmail.com atau komen di bawah

download:Contoh