Bu dosya, VBA ile Evet ve Hayır düğmeli bir soru penceresinin nasıl açıldığını ve verilen cevaba göre nasıl işlem yapıldığını gösteren makrolu bir şablondur. Pencere, WScript.Shell nesnesinin Popup yöntemiyle oluşturulur; belirli süre içinde cevap verilmezse pencere kendiliğinden kapanır.
Dosyanın içeriği
- Disc: Popup yönteminin söz dizimini ve bağımsız değişkenlerini (strText, nSecondsToWait, strTitle, nType) açıklayan başvuru sayfasıdır. Düğme türü değerleri (1-5), simge türü değerleri (16, 32, 48, 64) ve geri dönüş değerleri tablo halinde verilmiştir.
- Const: Makroda kullanılan sabitlerin listelendiği sayfadır.
- Module1: Makro kodunun bulunduğu VBA modülüdür.
Makrolar
- Tester: "Answer This Question:" başlıklı, bilgi simgeli ve Evet/Hayır düğmeli bir pencere açar. Pencere 5 saniye bekler. Evet seçilirse (dönüş değeri 6) olumlu bir mesaj, Hayır seçilirse (dönüş değeri 7) nedenini soran bir mesaj gösterilir. Süre dolarsa dönüş değeri -1 olur ve "You didn't respond!" mesajı görüntülenir.
- StatusMsgBox: "ATTENTION" başlıklı, hücre hesaplamasının başlayacağını bildiren bilgi penceresini 2 saniye gösterip kendiliğinden kapatır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F11 ile VBA düzenleyicisini açıp Module1 modülüne gidin.
- Tester veya StatusMsgBox prosedürünü F5 ile ya da Alt+F8 penceresinden çalıştırın.
- Soru metnini, başlığı, bekleme süresini ve düğme türünü kendi işleminize göre değiştirin; Select Case bölümüne Evet ve Hayır için yapılacak işlemleri yazın.
- Düğme ve simge değerleri için Disc sayfasındaki tablolara başvurun.