Membuat Isian Data Di Excel Menggunakan Fungsi VBA

Artikel rumus excel lengkap untuk VBA. Pada kesempatan ini, kita akan membahas tentang bagaimana cara membuat isian data di excel dengan menggunakan fungsi VBA. Seperti yang diketahui, VBA merupakan sebuah halaman pada Microsoft Excel yang digunakan untuk menuliskan code visual basic, dengan code tersebut kita dapat membuat berbagai form yang dibutuhkan. Dengan VBA tersebut kita juga dapat memungkinkan membuat sebuah aplikasi di Microsoft Excel.

Tanpa panjang lebar, mari kita langsung saja untuk membuat isian data menggunakan fungsi VBA. Yang mana form isian data ini dapat memudahkan kita menginputkan data dengan cepat dan lebih aman. Berikut langkah-langkahnya.

1. Langkah pertama, siapkan terlebih dulu data tabel di lembar kerja Excel seperti berikut.

cara 1 membuat isian data excel dengan fungsi VBA2.  Selanjutnya membuat tombol tambah, caranya arahkan kursor ke Tab Developer > Insert > CommandButton (ActiveX Control).

cara 2 membuat isian data excel dengan fungsi VBA3.  Lalu posisikan tombol tersebut sesuai kebutuhan, ganti nama tombol dengan tulisan Tambah, caranya klik kanan pada tombol lalu pilih CommandButton Object >> Edit. Hasilnya seperti berikut.

cara 3 membuat isian data excel dengan fungsi VBA4.  Kemudian klik kanan pada tombol Tambah, pilih View Code, maka akan tampil halaman Visual Basic for Application, kemudian isikan code berikut ini.

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Seperti pada tampilan berikut. (catatan, simpan halaman dengan nama IsianData.xlsb)

cara 4 membuat isian data excel dengan fungsi VBA5.  Kemudian klik kanan pada tulisan “VBAProject (IsianData.xlsb)”, lalu pilih insert >> UserForm, seperti tampilan berikut.

cara  5 membuat isian data excel dengan fungsi VBA6.  Selanjutnya buat tiga buah TextBox dengan satu tombol CommandButton, contohnya seperti tampilan berikut.

cara 6 membuat isian data excel dengan fungsi VBA7.  Kemudian double klik pada button Simpan, setelah itu masukan code seperti berikut.

 

Private Sub CommandButton1_Click()

Set wsDtbsBrg = Sheets(“Sheet1”)

RecordAkhir = wsDtbsBrg.Cells(wsDtbsBrg.Rows.Count, “B”). _

End(xlUp).Offset(0, 0).Row

With wsDtbsBrg

.Cells(RecordAkhir + 1, 1).Value = TextBox1.Value

.Cells(RecordAkhir + 1, 2).Value = TextBox2.Value

.Cells(RecordAkhir + 1, 3).Value = TextBox3.Value

End With

Unload Me

End Sub

 

Private Sub Textbox3_KeyPress(ByVal KeyAscii _

As MSForms.ReturnInteger)

Select Case KeyAscii

Case Asc(“0”) To Asc(“9”)

Case Else

KeyAscii = 0

End Select

End Sub

 

Seperti pada tampilan berikut. (catatan, setelah code di atas di tuliskan atau Anda bisa meng-copy pastenya, lalu save halaman?

cara 7 membuat isian data excel dengan fungsi VBA8.  Setelah itu Anda kembali lagi ke lembar kerja Excel, untuk mengaktifkan tombol “Tambah”, Anda bisa arahkan kursor ke tab Developer >> Design Mode.

cara 8 membuat isian data excel dengan fungsi VBA9.  Sekarang Anda coba klik tombol “Tambah”, jika tombol tersebut berfungsi maka akan muncul form dialog isian, dan coba Anda isi bagian Nama, Alamat dan No telepon, kemudian Klik Simpan, seperti berikut.

cara 9 membuat isian data excel dengan fungsi VBA10.  Maka pada tabel data akan terisi sesuai dengan data yang di inputkan pada form isian data. Jika Anda ingin menambahkan data lebih banyak lagi, cukup klik tombol “Tambah” dan lakukan pengisian data seperti pada no 9 diatas.

cara 10 membuat isian data excel dengan fungsi VBADengan demikian, jika Anda ingin mengisi data tabel hanya tinggal klik tombol “Tambah” saja, maka akan tampil form isian data. Semoga bermanfaat.

47 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

* Copy This Password *

* Type Or Paste Password Here *