NS Mesaj Kutusu işlevi içinde Excel VBA'sı basit bir MsgBox yapamazken bir sonuç döndürebilir.
Durum:
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk olarak, Integer türünde answer adında bir değişken tanımlıyoruz.
Dim cevap Tamsayı olarak
2. Değişken yanıtı kullanıcıdan gelen girdiyle başlatmak için MsgBox işlevini kullanırız.
MsgBox işlevi, parantez kullanırken üç bağımsız değişkene sahiptir. İlk kısım mesaj kutusundaki mesaj için kullanılır. Mesaj kutusunda hangi düğmelerin ve simgelerin görünmesini istediğinizi belirtmek için ikinci bölümü kullanın. Üçüncü kısım, mesaj kutusunun başlık çubuğunda görüntülenir.
cevap = MsgBox("Sayfayı boşaltmak istediğinizden emin misiniz?", vbYesNo + vbQuestion, "Empty Sheet")
Not: İmlecinizi Visual Basic Düzenleyicisi'nde vbYesNo'nun üzerine getirin ve başka hangi düğmeleri ve simgeleri kullanabileceğinizi görmek için F1'e tıklayın. vbYesNo ve vbQuestion sabitleri yerine, karşılık gelen 4 ve 32 değerlerini de kullanabilirsiniz.
3. Kullanıcı Evet düğmesini tıklarsa, Excel VBA sayfayı boşaltır. Kullanıcı Hayır düğmesini tıklarsa hiçbir şey olmaz. Bunu başarmak için aşağıdaki kod satırlarını ekleyin.
Cevap = vbYes ise
Cells.ClearContents
Başka
'hiçbir şey yapma
Bitir
4. Sayfadaki komut düğmesine tıklayın.
5. Evet'e tıklayın.
Sonuç:
