Cara Membuat Aplikasi Sederhana Dengan Ms Excel

Pada video ini dijelaskan petunjuk cara membuat aplikasi form input sederhana yang terhubung dengan file database worksheet Ms.Excel

Semoga bermanfaat

Private Sub cmdtambah_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“DATA_BARANG”)
‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
‘Chek untuk sebuah kode
If Trim(Me.tcode.Value) = “” Then
Me.tcode.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If
‘copy data ke database
ws.Cells(iRow, 1).Value = Me.tcode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value

‘Clear data
Me.tcode.Value = “”
Me.tnama.Value = “”
Me.tsatuan.Value = “”
Me.tharga.SetFocus
End Sub

Private Sub cmd_Click()
Unload Me
End Sub

Private Sub tnama_Change()

End Sub

Gambar dari sini