• Membuat Kotak Pesan Agar Tampil Sekali Dalam Parameter For..Next

    msgbox - xcelive 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 :
    Seorang user ingin mengisi baris 1 sampai dengan baris ke 3 pada kolom A dengan huruf ABC
    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
    xcelive - loop msgbox

    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
    Rangkuman dan penjelasan singkat kode Macro VBA diatas :
    1. Pesan As Boolean
      Sebuah variabel Macro VBA yang dapat digunakan untuk menyimpan nilai TRUE atau FALSE
    2. Pesan = True
      Digunakan untuk menentukan nilai awal dari nilai Pesan, yakni nilai TRUE
    3. For a = ....
      Berfungsi untuk melakukan pengulangan perintah sebanyak 3 kali
    4. If Pesan = True
      Baris ini berfungsi untuk melakukan pengecekan sebelum mengeksekusi perintah-perintah setelahnya, yakni jika kondisi dari nilai Pesan adalah TRUE.
      Dan karena sebelumnya kita sudah menentukan nilai Pesan dengan nilai TRUE, maka pasti perintah selanjutnya akan dieksekusi
    5. Pesan = False
      Nah, inilah baris perintah yang digunakan untuk menghentikan munculnya jendela kotak pesan secara berulang-ulang, karena paremeter dari Logika IF yang dituliskan sebelumnya hanya akan menjalankan perintah jika status dari nilai Pesan = TRUE
    Hasil akhir yang diperoleh dari kumpulan baris perintah Macro VBA yang sudah dibuat diatas tampak seperti dalam tampilan berikut :
    kotak pesan berulang - xcelive

    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


    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger