Bu yazımızda Excel VBA'da MsgBox fonksiyonunu öğreneceğiz, msgbox vba'nın buton argüman ayarları aşağıdadır:
| Devamlı | Değer | Açıklama |
| vbOKOnly | 0 | Yalnızca Tamam düğmesini görüntüleyin. |
| vbOKİptal | 1 | Tamam ve İptal düğmelerini görüntüleyin. |
| vbAbortRetryIgnore | 2 | Durdur, Yeniden Dene ve Yoksay düğmelerini görüntüleyin. |
| vbYesHayırİptal | 3 | Evet, Hayır ve İptal düğmelerini görüntüleyin. |
| vbYesHayır | 4 | Evet ve Hayır düğmelerini görüntüleyin. |
| vbRetryİptal | 5 | Yeniden Dene ve İptal düğmelerini görüntüleyin. |
| vbKritik | 16 | Kritik Mesaj simgesini görüntüleyin. |
| vbQuestion | 32 | Uyarı Sorgusu simgesini görüntüleyin. |
| vbExclamation | 48 | Uyarı Mesajı simgesini görüntüleyin. |
| vbInformation | 64 | Bilgi Mesajı simgesini görüntüleyin. |
| vbDefaultButton1 | 0 | İlk düğme varsayılandır. |
| vbDefaultButton2 | 256 | İkinci düğme varsayılandır. |
| vbDefaultButton3 | 512 | Üçüncü düğme varsayılandır. |
| vbDefaultButton4 | 768 | Dördüncü düğme varsayılandır. |
| vbApplicationModal | 0 | Uygulama modu; kullanıcının mevcut uygulamada çalışmaya devam etmeden önce mesaj kutusuna yanıt vermesi gerekir. |
| vbSystemModal | 4096 | Sistem modu; kullanıcı mesaj kutusuna yanıt verene kadar tüm uygulamalar askıya alınır. |
| vbMsgBoxHelpButton | 16384 | Mesaj kutusuna Yardım düğmesi ekler |
| VbMsgBoxSetÖn Plan | 65536 | Ön plan penceresi olarak mesaj kutusu penceresini belirtir |
| vbMsgBoxSağ | 524288 | Metin sağa hizalanmış |
| vbMsgBoxRtlOkuma | 1048576 | Metnin İbranice ve Arapça sistemlerde sağdan sola okuma olarak görünmesi gerektiğini belirtir |
Şimdi, vba mesaj kutusunun, kullanıcının mevcut çalışma sayfasındaki hücrelerin tüm içeriğini silmesine nasıl yardımcı olabileceğini görelim.
Verilerin anlık görüntüsü aşağıdadır:
Aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Bir Komut Düğmesi ekleyelim
- Geçerli çalışma sayfası modülüne aşağıdaki kodu girin: -
Seçenek Açık
Özel Alt KomutDüğmesi1_Click()
Dim cevap Tamsayı olarak
cevap = MsgBox("Geçerli sayfadaki tüm hücreleri silmek istiyor musunuz?", vbYesNo + vbQuestion, "Tüm hücreleri sil")
Cevap = vbYes ise
Cells.ClearContents
Başka
'hiçbir şey yapma
Bitir
Alt Bitiş
- Komut düğmesine tıkladığımızda aşağıdaki istem görünecektir
- Tüm hücreleri silmek için Evet düğmesine tıklayın.
- Sonuç aşağıdaki gibi olacaktır
Bu şekilde Excel VBA'da komut butonunu kullanarak tüm hücreleri silebiliriz.
Excel VBA'da İndir-Mesaj Kutusu