APLIKASI INPUT DATA DENGAN VBA PADA EXCEL

Membuat Macro Excel dengan menggunakan bahasa pemrograman VB sangat mudah, disini saya akan contohkan bagaimana menginput (memasukan) data  ke beberapa cells di excel. Ya setidaknya terlihat sedikit keren !

1. Langkah pertama Buka Microsoft Excel  

2. Setelah itu buat Buat Table yang kamu ingin dibuat seperti contoh dibawah ini

3. Langkah Selanjutnya Pilih Developer

4. Lalu anda bisa pilih Visual Basic dan anda klik

5. Muncul tampilan seperti ini gan

6. Lalu kamu bisa pilih UserForm untuk membuat Form

7. Setelah kamu pilih muncul tampilan seperti dibawah ini lau kamu desain seperti yang kamu inginkan

 8. Klik Button Input Lalu masukan Script dibawah ini gan

Private Sub CommandButton1_Click()
Dim lilik As Long
Dim ws As Worksheet
Set ws = Worksheets("STOCK TOOLS")
'menemukan baris kosong pada database
deyas = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
 'check untuk sebuah kode
If Trim(Me.TextBox2.Value) = "" Then
Me.TextBox3.SetFocus
MsgBox "Isi Data Terlebih Dahulu"
Exit Sub
End If
'copy data ke database
ws.Cells(deyas, 1).Value = Me.TextBox1.Value
ws.Cells(deyas, 2).Value = Me.TextBox2.Value
ws.Cells(deyas, 3).Value = Me.TextBox3.Value
ws.Cells(deyas, 4).Value = Me.TextBox4.Value
ws.Cells(deyas, 5).Value = Me.TextBox5.Value
ws.Cells(deyas, 6).Value = Me.TextBox6.Value
ws.Cells(deyas, 7).Value = Me.TextBox7.Value
'clear data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox2.SetFocus
End Sub

Nah gan yang Ini Untuk Button Keluar ya

Private Sub CommandButton2_Click()
Unload Me
End sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Apakah Yakin Anda Mau Keluar Dari Program Ini, Tekan Tombol KELUAR!"
 End If
End Sub

Setelah kamu masukin semua Script coba kita jalankan yukk .... Seperti gambar dibawah ini ....

Simple Kan gan Semoga Bermanfaat yaa maaf kalo masih ada kekurangan