Pada kesempatan kali ini, kami akan membahas tentang cara membuat form input di Excel tanpa menggunakan Macro VBA. Dalam kegiatan sehari-hari, mungkin kita sering melihat atau menggunakan form input di Excel untuk memudahkan pengentry-an data.
Cara Otomatis Membuat Form Input di Excel Tanpa Macro VBA
Langkah pertama yang perlu dilakukan adalah membuka Excel dan membuat tabel sederhana seperti berikut:
| No | Nama | Umur | Alamat | No Telepon | Pekerjaan | |
|---|---|---|---|---|---|---|
| 1 | ||||||
| 2 | ||||||
| 3 | ||||||
| 4 | ||||||
| 5 |
Setelah tabel dibuat, langkah selanjutnya adalah mempersiapkan form input. Buka Developer Tab di Excel. Jika tidak ditemukan, klik File -> Pilihan -> Customize Ribbon -> centang pada Developer dan klik OK.
Setelah variasi ini disetel, beralih ke tab Developer. Pada tab ini, pilih Insert -> Form Control -> pilih Text Box. Setelah memilih Text Box, klik di dalam area tabel di mana kita ingin menempatkan form input.
Masukkan nilai properti pada kotak yang muncul sebagai berikut:
- Input Range: pilih sel atau area kolom tempat nilai masukan akan ditempatkan
- Linked Cell: pilih sel tempat nilai akan dikirimkan
- Multi-line: tidak perlu dicentang
- Vertical Scroll Bar: tidak perlu dicentang
- Password: tidak perlu dicentang
Setelah properti dimasukkan, klik OK. Lalu, salin dan tempel kotak ini pada sel lain di mana nilai masukan akan dimasukkan.
Dalam tutorial ini, script input untuk kolom “Nama” adalah:
Me.ListBox1.List = Sheets("Sheet1").Range("A2:A100").Value
Me.TextBox1.Value = ""
If Me.ListBox1.Value = "" Then Exit Sub
Me.TextBox1.Value = Me.ListBox1.Value
ActiveCell.Offset(0, 1).Activate
SendKeys "TAB"
Script input untuk kolom “Umur” adalah:
If Me.TextBox1.Value = "" Then Exit Sub ActiveCell.Value = Me.TextBox1.Value ActiveCell.Offset(0, 1).Activate SendKeys "TAB"
Script input untuk kolom “Alamat” adalah:
If Me.TextBox1.Value = "" Then Exit Sub ActiveCell.Value = Me.TextBox1.Value ActiveCell.Offset(0, 1).Activate SendKeys "TAB"
Script input untuk kolom “Email” adalah:
If Me.TextBox1.Value = "" Then Exit Sub ActiveCell.Value = Me.TextBox1.Value ActiveCell.Offset(0, 1).Activate SendKeys "TAB"
Script input untuk kolom “No Telepon” adalah:
If Me.TextBox1.Value = "" Then Exit Sub ActiveCell.Value = Me.TextBox1.Value ActiveCell.Offset(0, 1).Activate SendKeys "TAB"
Script input untuk kolom “Pekerjaan” adalah:
If Me.TextBox1.Value = "" Then Exit Sub ActiveCell.Value = Me.TextBox1.Value ActiveCell.Offset(1, -6).Activate SendKeys "TAB"
Selain itu, Anda juga bisa menambahkan script untuk tombol Simpan dan Batal jika dibutuhkan. Setelah semua script dimasukkan, pilih tab View Code dan tutup jendela kode.
Terakhir, keluar dari mode desain dan gunakan tombol “Kotak Form” pada tab “Developer” untuk menggunakan form input baru yang telah Anda buat sebelumnya. Hasil akhirnya akan terlihat seperti ini:
| No | Nama | Umur | Alamat | No Telepon | Pekerjaan | |
|---|---|---|---|---|---|---|
| 1 | [F2] | [F3] | [F4] | [F5] | [F6] | [F7] |
| 2 | [F2] | [F3] | [F4] | [F5] | [F6] | [F7] |
| 3 | [F2] | [F3] | [F4] | [F5] | [F6] | [F7] |
| 4 | [F2] | [F3] | [F4] | [F5] | [F6] | [F7] |
| 5 | [F2] | [F3] | [F4] | [F5] | [F6] | [F7] |
FAQ
1. Apakah saya harus menggunakan Macro VBA untuk membuat form input di Excel?
Tidak, Anda dapat membuat form input di Excel tanpa menggunakan Macro VBA. Anda dapat menggunakan fitur yang disediakan oleh Excel seperti form control atau data validation. Namun, jika lebih menyukai Macro VBA, Anda juga dapat menggunakan fitur tersebut untuk membuat form input.
2. Apakah saya bisa menambahkan lebih banyak kolom pada tabel form input?
Tentu saja, Anda dapat menambahkan lebih banyak kolom pada tabel form input sesuai kebutuhan Anda. Pastikan bahwa Anda menyesuaikan script input di bagian Visual Basic Editor (VBE) untuk setiap kolom yang ditambahkan.
Video Tutorial
Berikut adalah video tutorial tentang cara membuat form input di Excel tanpa menggunakan Macro VBA:
