Untuk menginput data dengan menggunakan Excel biasanya kita langsung mengetikannya, tetapi kali ini kita akan membuat sebuah Form yang dapat mengisi atau menginput data melalui sebuah form.
Cara kerja form ini adalah dengan memilih Nama kolom dan Nomor baris dengan menggunakan pilihan combobox, jika keduanya seudah ditentukan baris dan kolomnya maka anda dapat mengisi kalimatnya yang sudah disediakan di Textbox.
Untuk lebih jelasnya perhatikan gambar dibawah ini yang sudah Admin buat:
 |
| Form Input Sheet |
- Buka Excel Anda >> kemudian pilih Developer >> Visual Basic >> maka jendela Visual Basic akan terbuka
- Pada jendela Visual Basic pilih Insert >>UserForm >> maka jendela User Form1 akan terbuka
- Pada jendela UserForm1 desainlah form seperti gambar dibawah ini :
Desain Form - Tanamkan Form beberpa control yang terdiri dari 3 Label, 2 Combobox, 1 Textbox dan 1 Commandbutton komponen-komponen tersebut berada di tollbox sebelah kiri.
- Setelah mendesain form seperti diatas ketiklah kode berikut dibawah ini dengan cara :
- Klik kanan Commandbutton1 pilih View code kemudian ketik kode dibawah ini :
Private Sub CommandButton1_Click()Range(ComboBox1.Text + ComboBox2.Text).Value = TextBox1.TextRange(ComboBox1.Text + ComboBox2.Text).SelectEnd Sub
- Kemudian ketikan kode dibawah ini :
Private Sub UserForm_Activate()
For ascii = 65 To 90
ComboBox1.AddItem (Chr(ascii))
Next
For i = 1 To 26
ComboBox2.AddItem i
Next i
End Sub
Setelah selesai mengetikan kode jalankan program anda.
kemudian untuk mengisi sheet lewat form pilih kolom dan baris yang diinginkan setelah itu masukan kalimat yang akan dimasukan kedalam sheet didalam textbox.
Demikianlah artikel kali ini tentang Cara Membuat Form Input Untuk Mengisi Sheet Excel dengan VBA.
Semoga artikel ini bermanfaat buat kita semua, Amin.
Selamat mencoba semoga berhasil
No comments:
Post a Comment