Input Data dengan Form di VBA Microsoft Excel

 

Halo,. kali ini saya akan sharing cara input Data dengan Form di VBA Ms.Excel, langsung saja cekidot…

1. Buka Program Microsoft Excel

2. Buat Header untuk data yang akan kita buat seperti gambar dibawah ini

3.Buka VBA Ms.Excel dengan cara tekan alt+F11 atau dengan cara klik kanan pada Tab Sheet kemudian pilih View Code.

4. Buat sebuah form dengan cara klik menu insert kemudian klik User Form

5. Disainlah Form seperti ini (3 buah label, 3 buah textbox, dan 1 buah command button)

6. Klik 2x (Double Click) tombol Simpan (Command Button) dan ketikan kode dibawah ini

Private Sub CommandButton1_Click()
Set Data = Sheets("Sheet1")

RecordAkhir = Data.Cells(Data.Rows.Count, "B").End(xlUp).Offset(0, 0).Row
With Data
.Cells(RecordAkhir + 1, 1).Value = TextBox1.Value
.Cells(RecordAkhir + 1, 2).Value = TextBox2.Value
.Cells(RecordAkhir + 1, 3).Value = TextBox3.Value
End With
MsgBox ("Data Berhasil disimpan")
Unload Me
End Sub

7. Buat Tombol command button di lembar kerja Ms. Excel klik menu Developer kemudian klik insert command button (ActiveX Control)

ganti captionnya dengan nama Tambah

8. Klik 2x (Double Click) Command Tambah Tersebut dan masukan Koding berikut:

 

9. Buka kembali VBA Ms.Excel dengan cara tekan alt+F11 atau dengan cara klik ikon Ms. Excel  di kiri atas lembar kerja.

10. Selesai. Silahkan dicoba… Jangan lupa disimpan dengan save as type Excel-Macro Enabled Workbook.