• Skrip VBA Untuk Menutup Kotak Pesan Secara Otomatis Dalam Waktu Tertentu

    MessageBox otomatis tertutupSalah satu yang yang suka dari Macro VBA adalah kemampuannya dalam memanipulasi beragam perintah yang dapat disesuaikan dengan kebutuhan, sehingga kehadirannya sangat efektif dalam membantu menyelesaikan pekerjaan tepat pada waktunya. Namun kadangkala tidak sedikit pula dalam projek Microsoft Excel yang telah kita berikan kode Macro VBA di dalamnya, seringkali kita merasa bahwa ada sesuatu yang "kurang" sehingga perlu untuk dilakukan penambahan disetiap skrip yang telah dibuat.

    Salah satu contoh sesuatu yang "kurang" tersebut adalah, ketika kita menyematkan sebuah skrip macro VBA berupa kotak pesan dalam sebuah tombol dan ketika pengguna menekan tombol tersebut, maka jendela kotak pesan yang telah kita buat akan ditampilkan. Dan untuk menutupnya, seorang pengguna harus mengkonfirmasi terlebih dulu dengan menekan tombol OK atau Cancel atau sejenisnya. Dan ini akan berjalan secara berulang-ulang.
    Mungkin jika memang butuh sebuah konfirmasi dari pengguna, saya pikir hal ini tidak akan menggangu, namun jika kotak pesan hanya berupa informasi sederhana, misalnya berisi sebuah pesan "Selamat... database berhasil disimpan" atau pesan-pesan informasi lainnya, maka kehadiran kotak pesan yang mana proses menutupnya dilakukan secara manual maka saya pikir agak sedikit kurang tepat, karena justru akan mengganggu pengguna.

    Baca tutorial terkait lain
    Cara Mudah Memberikan Nilai Properti Berbeda Setiap Objek VBA Berdasarkan Kriteria
    Skrip Macro VBA untuk menampilkan Informasi Data Dari 3 Kriteria
    Cara menggunakan parameter Intersect

    Nah, pada kesempatan kali ini saya akan share kepada anda tentang bagaimana membuat sebuah kotak pesan yang seperti saya contohkan di atas agar dapat menutup secara otomatis dalam kurun waktu tertentu tanpa harus menunggu konfirmasi dari pengguna sehingga dapat meminimalisir kesan "mengganggu" dari kemunculan kotak pesan ini. Langkah-langkah membuatnya adalah sebagai berikut :

    1. Sebagai langkah awal buat sebuah module baru dan tempelkan skrip kode berikut ini di baris awal (baris paling atas)
      #If Win64 Then '64?
          Private Declare PtrSafe Function MsgBoxTimeout _
              Lib "user32" _
              Alias "MessageBoxTimeoutA" ( _
                  ByVal hwnd As LongPtr, _
                  ByVal lpText As String, _
                  ByVal lpCaption As String, _
                  ByVal wType As VbMsgBoxStyle, _
                  ByVal wlange As Long, _
                  ByVal dwTimeout As Long) _
          As Long
      #Else
          Private Declare Function MsgBoxTimeout _
              Lib "user32" _
              Alias "MessageBoxTimeoutA" ( _
                  ByVal hwnd As Long, _
                  ByVal lpText As String, _
                  ByVal lpCaption As String, _
                  ByVal wType As VbMsgBoxStyle, _
                  ByVal wlange As Long, _
                  ByVal dwTimeout As Long) _
          As Long
      #End If
    2. Berikutnya silahkan buat Module baru atau letakkan kode berikut di baris setelah kode di langkah 1
      Sub PesanSatu()
          Call MsgBoxTimeout(0, "Pesan atau informasi yang terdapat dalam kotak pesan ", _
                                "Judul Pesan", vbInformation, 0, 2000)
      End Sub
      • Judul sub module di atas adalah PesanSatu yang bisa dipanggil menggunakan parameter Call
      • Angka yang bisa anda rubah untuk mengatur durasi lamanya kotak pesan agar bisa menutup secara otomatis adalah di bagian teks yang berwarna merah (2000)

    Untuk mengetahui bagaimana pesan yang sudah dimodifikasi menggunakan skrip di atas, silahkan tekan tombol F5 yang terdapat di keyboard anda, atau bisa juga menjalankannya dengan menekan tombol yang terdapat di menubar.
    Untuk hasil akhir, silahkan lihat kotak pesan berikut ini:
    Kotak pesan auto close

    Selamat... Anda sudah berhasil membuat kotak pesan tertutup secara otomatis dalam kurun waktu tertentu tanpa harus menekan tombol konfirmasi.
    Semoga tips ini bisa menambah wawasan baru kepada Anda. Dan jangan lupa kunjungi channel youtube kami untuk mengetahui video tutorial terbaru dari kami. Adios


    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, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    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