MsgBox'a 3-4-5 satır

[hassan26]

1.MsgBox'a alt alta birden çok satır yazı yazabiliyormuyuz
2.Msgbox'a evet, hayır, iptal butonları yanına help butonu koyup tıklandığında açılan help menü yapılabilirmi
3.Bağımsız olarak exceldeki gibi bir help menü nasıl yapılır.

 

[Orion1]

Birinci sorunuzun cevabı aşağıda.Diğer sorularınız bilmiyorum.

Sub mesaj()
MsgBox "Birinci satır." & vbLf & "İkinci Satır." & vbLf & "Üçüncü satır."
End Sub

 

[hassan26]

Orion2 teşekkür ederim 2 ve 3 pek gerek kalmadı ama onun üzerinde çalışıyorum örnek şablonda göndereceğim

 

[Skorpiyon]

Mesaj Kutusu Hakkında (ALINTIDIR)

MsgBox (Açıklama, Düğmeler, Başlık, Yardım Dosyası, İndis)
Açıklama (prompt) = Mesaj kutusunda son kullanıcıya görüntülenecek mesajdır.
Düğmeler (buttons) = Kutuda görüntülenen düğme ve uyarı ikonlarıdır.
Başlık (title) = Mesaj kutusu başlık çubuğuna yazılan ad.
Yardım Dosyası (HelpFile) = Tıklandığında görüntülenmesini istediğiniz yardım dosyasıdır.
İndis (context) = Yardım konusunun yardım dosyasındaki numarasıdır.

Düğmeler Değerleri Açıklaması

vbOkOnly 0 Tamam
vbOkCancel 1 Tamam, İptal
vbAbortRetryIgnore 2 Durdur,Yeniden Dene,Yoksay
vbYesNoCancel 3 Evet, Hayır, İptal
vbYesNo 4 Evet, Hayır
vbRetryCancel 5 Yeniden Dene, İptal
vbCritical 16 Stop İkonu
vbQuestion 32 Soru İşareti İkonu
vbExclamation 48 Ünlem İkonu
vbInformation 64 Bilgi İkonu
vbDefaultButton1 0 Birinci Düğme Seçili
vbDefaultButton2 256 İkinci Düğme Seçili
vbDefaultButton3 512 Üçüncü Düğme Seçili
vbDefaultButton4 768 Dördüncü Düğme Seçili
vbApplicationModal 0 Cevap verilmeden uygulama devam etmez.
vbSystemModal 4096 Cevap verilene kadar tüm işlemler askıya alınır

Peki yukarıda verilen değerler kod içinde nasıl kullanılır ?

Örnek :
Sub mesaj()
Msgbox “Selamlar”, 2 + 48 + 256
End sub

Msgbox’un sonuna yazılan rakamları yukarıdan bularak karşılığına bakınız.

Peki Cevaplar ? ? ?

Mesaj kutusu üzerindeki butonlara verilecek cevaplar için kullanılan değerler ise aşağıdadır.

Butonlar Değeri Açıklaması

vbOk 1 Tamam
vbCancel 2 İptal
vbAbort 3 Durdur
vbRetry 4 Yeniden Dene
vbIgnore 5 Yoksay
vbYes 6 Evet
vbNo 7 Hayır ‘dır.
Örnek :

Sub Deneme()
Dim Cevap as variant
Cevap = msgbox(“İyi misin ?”,vbYesNo)
If cevap = 6 then ‘Yani Cevap EVET ise diyoruz
Msgbox “Güzel”
Goto 10
Else
Msgbox”Neden iyi değilsin ?”
End if
10
End sub

Bu noktada 6’nın değeri EVET ise ‘dir. Gibi…


Peki bir mesaj kutusunda alt alta birden fazla yazı yazılabilir mi ?
Yani yazacağımız metin mesaj kutusunun sınırlarını taşıyorsa ne olacak ???

O zamanda aşağıdaki şekilde bir kullanım yapılabilir. (Ortak bir örnek kullanım yapalım)
Örnek 1:

Sub mesaj()
Dim Cevap
Aciklama = “A1 hücresine 500 yazayım mı ?” + Chr(13)
Aciklama = Aciklama + “Cevabın EVET ise Değeri 6 olan EVET butonuna bas” + Chr (13)
Aciklama = Aciklama + “Cevabın HAYIR ise Değeri 7 olan HAYIR butonuna bas” + Chr (13)

Dugme = vbYesNo + VbQuestion

Baslik = “ Mesaj Kutusu Birleştirilmiş Örnek”

Cevap = Msgbox (Aciklama, Dugme, Baslik)
If cevap = 6 then
Range(“A1”).Value = 500
Else
Msgbox”Tamam yazmıyorum”
End if
End sub

Gibi. Bu örnekte hem mesaj kutusuna birden fazla satır yazmayı, hemde buton değerleri ile birlikte uygulamayı gördük.

 

[Skorpiyon]

Veya mesaj kutusu içinde birden fazla satır kullanmak için aşağıdaki örnekte kullanılabilir.

Sub Düğme1_Tıklat()
MsgBox "Selamlar" & vbNewLine & "Nasılsınız ?" & vbNewLine & _
"Sağolun bende iyiyim" & vbNewLine & "İyi Günler"
End Sub

Saygılarımla...

 

[hassan26]

Değerli arkadaşlar teşekkür ederim hepinize teşekkürler(bu arada burası yeri değil belki ama Ramazan ayı hakkınızda hayırlıra vesile olsun)
Yardım Dosyası (HelpFile) = Tıklandığında görüntülenmesini istediğimiz yardım dosyası ayrı bir userform üzerinde mi hazırlamalıyız yoksa text olarakta hazırlanabiliyormu. Text oluyorsa nasıl bağlıyoruz Excel'e
İndis (context) = Yardım konusunun yardım dosyasındaki numarası bizim satırlara verececeğimiz sıra no gibi birşeymi olacak.
Saygılar...

 

[Skorpiyon]

Sayın hassan26,

Şahsen daha önce böyle bir yardım dosyası kullanmadım (Herhalde ihtiyacım olmadığından olacak)

Ama yardım dosyaları .hlp uzantılı dosyalar ve oluşturacağınız dosya da hlp uzantılı bir dosya olmalı diye düşünüyorum. (Denemediğim için fikir yürüttüğümü tekrar belirtmek isterim)

Indis'in ise nasıl tanımlanacağı hakkında en ufak bir bilgim yok. Oluşturulan .hlp dosyasının yardım konusunda nasıl sıralandırılacağı hakkında maalesef bir şey diyemeyeceğim.

Yukarıdakiler, elimde olan bir kaynaktan derlediğim bir bilgiydi.

Saygılarımla...

 

[hassan26]

Sayın Sertkaya sağol bilgilendirdiğin için en azından konu askıda kalmamış oldu okuyanlar için.
Saygılar

 

[Skorpiyon]

Sayın hassan26,

Ben uğraşarak ancak bu kadar yapabildim. Diğer arkadaşlardan konu hakkında bilgisi olup da yardımcı olacak birileri çıkar umarım.

Benim yapabildiğim ektedir.

Saygılarımla...

 

[hassan26]

Sayın Sertkaya teşekkür ederim
chm uzantılı olarak yardım dosyası hazırlayabilirim köprü atama yöntemiyle hazırladığım dosyaya bağlayabilirmiyiz bu konuda bir bilginiz varmı yani yardım tuşuna bağlayabilirmiyiz context olması şart değil genel yardım gibi bir şey olur en azından kullanıcı başlıklara tıkladıkça konuları görecek nasıl olsa
Saygılar

 

[Skorpiyon]

Sayın hassan26,

Aşağıdaki kodları bir butona ekleyin ve deneyin. Dilerim işinizi görür.

Sub Makro1()
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\1055\VBLR6.CHM", _
TextToDisplay:= _
"C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\1055\VBLR6.CHM"
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A1").Value = ""
End Sub

Saygılarımla...