Excel MsgBox Kullanımı

MsgBox Kullanımı hakkinda sitemiz uzerinden bircok ornek var tabiiki fakat yinede konuya basitce bir deginmek istedik. basit anlamada msgbox nasil kullanilir, case yapisiyla ve buton sonuclariyla msgbox nasil yonlendirilir seklinde aciklamalar yapmak istedik.

Oncelikle bir msgbox icerisinde nasil duragan bir mesaj yazabilir ornegine bakalim.

duragan mesaj kutusu cikartmak icin ornek kodlar;

Sub Duragan_Msgbox()
    'Public Const Baslik As String = "ExcelTR.com"
Const Baslik As String = "ExcelTR.com"
Const Mesaj As String = "Kendine bir iyilik yap ve takip et?"
MsgBox Mesaj, vbOKOnly, Baslik
End Sub

Buradaki msgbox bir ozelligi olmayan bir msgbox`ti, Gorunumlerini degirtirmek icin kullandigimiz kodlarda var bunlara goz atalim.

'Kritik
MsgBox "ExcelTR Egitim Sitesi", vbCritical

'Soru
MsgBox "ExcelTR Egitim Sitesi", vbQuestion 

'Uyarı
MsgBox "ExcelTR Egitim Sitesi", vbExclamation 

'Bilgi
MsgBox "ExcelTR Egitim Sitesi", vbApplicationModal

Kesinlikle ogrenmenizi istedigimiz orneklerden biride msgbox ile case yapisi kullanimidir, bunuda kucuk bir ornekle inceleyelim.

Sub Msgbox_Case_Yapisi()
Dim Cevap As Long
   Cevap = MsgBox("devam etmek istiyormusunuz?", vbYesNoCancel + vbQuestion)
    Select Case Cevap
        Case vbYes
          MsgBox "Evet Secildi"
        Case vbNo
          MsgBox "Hayir secildi"
        Case vbCancel
          MsgBox "Iptal Secildi"
    End Select
End Sub

Bu yapi sayesinde butona gore de kodlariniza bir yol secmis olabilirsiniz. bu yapiyi ayni sekilde default buton ile de kullanabilirsiniz.

vbYesNoCancel + vbQuestion + vbDefaultButton3

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


6 + 2 =