Dalam suatu kondisi tertentu, nilai yang terdapat di dalam TextBox barangkali ingin kita pilih semua tanpa harus mem-blok menggunakan mouse atau keyboard. Melainkan menggunakan bantuan dari Macro VBA.

Untuk kasus ini, saya gunakan perintah SendKeys "{Home}+{End}" untuk memilih semua isi dalam TextBox jika kondisi teksbox tidak terisi sesuai dengan yang diinginkan.

Lihat tampilan gambar di atas


Dalam tampilan di atas, TextBox1 hanya boleh diisi dengan nilai 12345, selain dari itu maka seluruh isi dalam TextBox1 akan terpilih semua. Tentunya kondisi ini bisa Anda sesuaikan sendiri sesuai dengan yang Anda inginkan.

Untuk melakukan ini, pastikan Anda memiliki beberapa objek berikut dalam Project VBA Anda.

• Userform
• TextBox1
• CommandButton1

Setelah Anda membuat objek-objek seperti di atas, langkah selanjutnya adalah, klik tombol CommandButton1 untuk menampilkan jendela kode

1. Tulis baris kode berikut di dalamnya
   

   If TextBox1 <> "12345" Then
   MsgBox "Silahkan isi textBox dengan angka 12345"
   TextBox1.SetFocus
   SendKeys "{Home}+{End}"
   Else
   Unload Me
   End If

2. Jalankan kode ini, kemudian coba memasukkan sebuah nilai ke dalam Texbox dan akhiri dengan menekan tombol CommandButton

Selamat...sekarang anda sudah berhasil mengetahui cara cepat memilih (menyeleksi) semua isi dalam kotak TeksBox dengan cepat. Semoga tutorial ini ada guna dan manfaatnya untuk anda.
Silahkan kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainyya bersama excelive.com