Hampir setiap aplikasi komputer memiliki kotak pesan yang berisi beragam informasi yang bertugas memberitahu kepada pengguna akan apa yang sedang dikerjakan, yang mana munculnya kotak pesan ini dipicu oleh bermacam kondisi dan situasi, sebut saja ketika pengguna berhasil menyimpan hasil pekerjaannya atau ketika pengguna melakukan sesuatu yang 'dilarang' oleh aplikasi tersebut, atau sekedar ingin menampilkan infomasi kepada pengguna tentang status dari pekerjaannya.

Berbagai macam kondisi yang menyebabkan munculnya kotak pesan tentunya berbeda antara aplikasi satu dengan lainnya, namun pada intinya munculnya kotak pesan disebabkan karena terdapat sesuatu yang memicunya. Tujuan dari kotak pesan memang ingin menampilkan informasi kepada pengguna tentang apa yang ia kerjakan dan biasanya juga menampilkan bantuan yang bertujuan untuk membantu pengguna dalam mengoperasikan aplikasi yang dimaksud.

Meskipun boleh dibilang bahwa munculnya jendela kotak pesan dapat membantu pengguna dalam memutuskan apa yang seharusnya dilakukan. Namun terkadang munculnya bisa sangat menggangu dan bahkan tidak diharapkan, terlebih ketika kotak pesan disematkan dalam module pengulangan - sebut saja parameter yang digunakan adalah For...Next. Ya, parameter For..Next adalah salah satu parameter yang terdapat dalam Macro VBA Microsoft Excel yang memungkinkan suatu perintah dapat diulang-ulang beberapa kali dan akan berhenti sampai suatu kondisi telah terpenuhi.

Coba perhatikan pernyataan berikut :
Maka dari pernyataan di atas dapat disimpulkan bahwa pengulangan perintah terjadi selama 3 kali, yakni perintah untuk mengisi huruf ABC mulai dari baris ke-1 dan akan berhenti pada saat masuk baris ke-3.
Bahasa kode VBA sederhana untuk menerjemahkan kalimat diatas adalah :

For a = 1 to 3
  Cells(a,1) = "ABC"
next 

Nah, sekarang coba bayangkan jika sebuah parameter MsgBox ditempatkan dalam parameter ini, pasti yang terjadi adalah pesan yang sama akan dibuka secara berulang-ulang sebanyak 3 kali. dan ini jelas-jelas akan sangat menganggu. Silahkan lihat kotak pesan yang muncul pada demonstrasi berikut


Demonstrasi diatas dihasilkan dari kode Macro VBA seperti ini

For a = 1 to 3
  MsgBox "Pengulangan sebanyak " & a & " kali"
next

Dari kode diatas, saya hanya melakukan pengulangan perintah sebanyak 3 kali saja namun saya sangat terganggu dengan munculnya kotak pesan setiap kali pengungalan dilakukan. Bagaimana jika saya ingin melakukan pengulangan lebih banyak dari ini?! Mungkin capek dan tentu kesal karena harus menekan tombol OK pada jendela kotak pesan agar bisa menuju ke pengulangan berikutnya hingga selesai.

Untungnya dengan menggunakan bantuan logika sederhana, 'kesalahan' ini bisa diatasi dan menghasilkan sesuatu yang seharusnya, yakni menampilkan kotak pesan cukup hanya sekali saja meskipun berkali-kali melakukan pengulangan perintah.
Jika ingin mencobanya, tulis baris kode Macro VBA berikut dalam sebuah Module kemudian jalankan dengan menekan tombol F5 di keyboard anda atau bisa juga menjalankannya dengan menekan tombol yang terdapat di menubar.

Sub PesanSekali()
Dim Pesan As Boolean
Pesan = True

For a = 1 To 3
If Pesan = True Then
  MsgBox "Pengulangan sebanyak " & a & " kali"
  Pesan = False
End If
Next
End Sub

Hasil akhir yang diperoleh dari kumpulan baris perintah Macro VBA yang sudah dibuat diatas tampak seperti dalam tampilan berikut :


Lantas bagaimana cara mengkombinasikannya dengan kode-kode atau perintah lainnya?!
Untuk mengetahui kegunaan dan cara mengaplikasikan kedalam baris perintah yang lebih kompleks, silahkan kunjungi tutorialnya disini

Sebagai penutup untuk tutorial kali ini, saya ucapakan selamat kepada anda karena sudah berhasil mengetahui bagaimana caranya menghentikan munculnya kotak pesan agar tidak tampil secara berulang-ulang ketika di sematkan dalam parameter For..Next. Mudah-mudahan tutorial kali ada guna dan manfaatnya, dan membantu anda dalam menyelesaikan permasalah excel yang saat ini anda hadapi.

Silahkan bookmark website ini jika anda suka dengan tutorial-tutorial yang telah kami sajikan, dan jangan lupa kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya bersama xcelive.com. We'll be right back

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :