Cara Membuat Kotak Input Macro VBA untuk Mengambil Keputusan dalam Excel
Postingan sebelumnya membahas tentang salah satu alat yang paling tepat dan unggul untuk melakukan interaksi dengan pengguna yaitu Kotak Pesan atau Message Box, kali ini kita akan sedikit membahas tentang alat berguna lainnya dalam VBA yaitu Kotak Input atau InputBox.
Ibarat dalam keluarga, kotak input layaknya seperti seorang saudara sepupu jauh bagi kotak pesan ini.
Kotak Input dilengkapi dengan kotak isian untuk menyediakan tulisan sebagai arahan dari pengguna agar macro melakukan sesuatu, tombol OK dan Cancel tampil permanen, serta sebuah judul argumen yang bersifat pilihan saja (bukan keharusan).
InputBox mewajibkan suatu argumen yang menyediakan isian bagi pengguna untuk memasukkan informasi tertentu yang dibutuhkan macro untuk dapat melanjutkan tugasnya.
Masukan akan menghasilkan suatu variabel berjenis String, namun jika tidak ada masukan yang dibuat atau kosong begitu saja maka InputBox akan menghasilkan suatu null string, yang mana biasanya akan dianggap oleh VBA sama seperti ketika Anda memilih tombol Cancel.
Sebagai contoh, kode macro berikut akan menggunakan kotak input untuk menanyakan pengguna berapa jumlah baris yang akan ditambahkan atau disisipkan di bawah baris sel yang aktif di worksheet.
Berikut ini langkah-langkah yang dapat Anda ikuti:
1. Dalam Excel, buka VBE bisa dengan cara tekan ALT+F11.
2. Buat sebuah module melalui menu Insert > Module.
3. Ketik judul macro misalnya ContohKotakInput:
4. Buat variabel contohnya TB sebagai isian kotak input:
5. Tugaskan variabel tersebut dengan InputBox:
"Masukkan jumlah baris yang akan ditambahkan:", _
"Tambahkan berapa banyak baris di bawah sel yang aktif?")
6. Fungsi Val akan menghasilkan bilangan yang berisi string sebagai nilai numerik:
7. Statement ini akan menambahkan baris sebanyak bilangan yang dimasukkan kedalam kotak isian. Adapun properti Resize akan menghasilkan objek barisan sel menurut jumlah baris dan kolom pada barisan sel baru. Bilangan yang dimasukkan ke dalam kotak input mewakili jumlah baris yang akan ditambahkan. Jumlah hitungan kolom tidak harus dimasukkan pada properti Resize cukup barisnya saja:
Rows(ActiveCell.Row + 1).Resize(Val(TB)).Insert
Dan kode macro lengkapnya sebagai berikut;
Dim TB As String
TB = InputBox( _
"Masukkan jumlah baris yang akan ditambahkan:", _
"Tambahkan berapa banyak baris di bawah sel yang aktif?")
If TB = "" Or Val(TB) < 1 Then Exit Sub
Rows(ActiveCell.Row + 1).Resize(Val(TB)).Insert
End Sub
Demikian pembahasan tentang Kotak Input dalam Macro VBA Excel, semoga bermanfaat.