Cara Membuat Program di Ms. Excel



Untuk membuat program aplikasi yang sederhana di Ms. Excel adalah berikut cara-caranya, anda bsia lihat di video ini :



Untuk codingnya anda bisa copas dibawah ini :

Coding untuk ditempatkan di Button

Private Sub Label6_Click()

End Sub

Private Sub TombolCancel_Click()
Unload Me
End Sub

Private Sub TombolOK_Click()
Dim bariskosong As Long
Sheets("sheet1").Activate
bariskosong = WorksheetFunction.CountA(Range("B:B")) + 2
'CEK SEBUAH NAMA
If Trim(Me.Tbnama.Value) = "" Then
    Me.Tbnama.SetFocus
    MsgBox "Isi Data Terlebih Dahulu"
    Exit Sub
End If

Cells(bariskosong, 2).Value = Tbnama.Value
Cells(bariskosong, 4).Value = Tblp.Value
Cells(bariskosong, 3).Value = Tbkelas.Value
Cells(bariskosong, 5).Value = Tbkom.Value
Cells(bariskosong, 6).Value = Tbipa.Value
Cells(bariskosong, 7).Value = Tbmtk.Value
Cells(bariskosong, 8).Value = Tbing.Value
Cells(bariskosong, 9).Value = Tbin.Value
'menghapus data
Me.Tbnama.Value = ""
Me.Tbkelas.Value = ""
Me.Tblp.Value = ""
Me.Tbkom.Value = ""
Me.Tbipa.Value = ""
Me.Tbmtk.Value = ""
Me.Tbing.Value = ""
Me.Tbin.Value = ""
Me.Tbnama.SetFocus

End Sub

Berikutnya Coding untuk memanggil form, dan tempatkan di Modules

Sub input_data()
UserForm1.Show
End Sub


Previous
Next Post »
Comments
1 Comments

1 komentar:

Click here for komentar
dian herlina
admin
17 March 2015 at 23:59 ×

terima kasih sangat bermanfaat

http://cbs-bogor.net/

Congrats bro dian herlina you got PERTAMAX...! hehehehe...
Reply
avatar
Terima Kasih Sudah Berkomentar