Friday, April 19, 2013

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:

ObjekProperti
LabelName:Label1      Caption:Nomor Kartu      Tempat=dikiri atas
LabelName:Label2      Caption:Jenis Kartu         Tempat=dikiri tengah
LabelName:Label3      Caption:Atas Nama          Tempat=dikiri tengah
LabelName:Label4      Caption:Harga                   Tempat=dikiri bawah
Command ButtonName: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

No comments:

Post a Comment

Post a Comment