Cara Menciptakan Aktivitas Input Data Dengan Vba Excel

belajar komputer

Menginput data ke sebuah sel memakai form akan lebih gampang dibanding dengan kita harus menentukan sel, kemudian gres mengetikan datanya.

Berikut yaitu cara menciptakan kegiatan input data dengan VBA pada excel 2013.


Langkah 1.

Buatlah lembar kerja menyerupai ini:

gambar. mencar ilmu komputer 1

caranya:

menciptakan lembar kerja kita sudah tahu, yang kita belum tahu yaitu menciptakan tombol CommandButton-1 yang berkhasiat untuk memanggil Formulir pada dikala akan menginput data ke sel nantinya, berikut cara membuatnya:

• klik sajian DEVELOPER,
• pilih Insert,
• pada kelompok Active X Control, pilih gambar persegi empat (CommandButton Active X Control) Insert a Command Button Control,kemudian bentuk di lembar kerja menyerupai gambar diatas.

--

Selanjutnya yaitu menawarkan script VBA nya, jikalau nanti tombol di klik akan menampilkan Formulir isian, caranya:

• klik 2 kali pada tombol tersebut, sehingga di layar monitor muncul tampilan menyerupai gambar berikut ini:

gambar. mencar ilmu komputer 2

• lalu ketikan instruksi berikut ini: userform1.show menyerupai gambar berikut ini:

gambar. mencar ilmu komputer 3

Langkah 2.

Selanjutnya mendesain formulir, caranya:

• tekan tombol Alt-F11, akan muncul tampilan Microsoft VB Apilcation,
• pilih sajian Insert kemudian pilih userForm, tampil kanvas desain untuk form,
• desainlah form menyerupai gambar berikut ini: 

gambar. mencar ilmu komputer 4

• lalu klik 2 kali pada tombol yang barusan dibuat, dan masukan instruksi VBA berikut ini:

Private Sub Nama_CommandButton1_Click()
Dim bariskosong As Long
Worksheets("Sheet1").Activate
bariskosong = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(bariskosong, 1).Value = TextBox1.Value
Cells(bariskosong, 2).Value = TextBox2.Value
Cells(bariskosong, 3).Value = ComboBox1.Value
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
TextBox1.SetFocus
End Sub

Private Sub UserForm_initialize()
With ComboBox1
.AddItem "Matang Suri"
.AddItem "Suri Matang"
.AddItem "dan lain-lain"
End With
End Sub

Seperti gambar berikut ini:

gambar. mencar ilmu komputer 6

• kemudian di save,

selanjutnya kembali ke lembar kerja di sheet1, dan tekan tombol CommandButton-1 untuk menginput data ke sel, sehingga tampil Formulir yang kita buat tadi, menyerupai gambar berikut ini:

gambar. mencar ilmu komputer 7

mulailah mengisi datanya, menyerupai gambar berikut ini:

 gambar. mencar ilmu komputer 8

Semoga bermanfaat.

Baca juga: