4 butonlu mesajbox yapmak mümkünmüdür

[hsayar]

Arkadaşlar bana 4 butonlu (Evet, Hayır, Tümü, İptal Butonlarından) oluşan mesajbox lazım ama bulamadım. yardımcı olurmusunuz

 

[Mahmut Kök]

Userform kullanarak kendiniz hazırlayabilirsiniz. Hazırladığınız userformu mesaj kutusu olarak kullanabilirsiniz. Forumda arama yaparsanız öreklere ulaşabilirsiniz.

 

[Seyit Tiken]

İstenilen böyle bir şey mi? Dosyayı inceleyiniz.

 

[uzmanamele]

merhaba
syn Seyit Tiken
İleti1 sayfasındaki sır nedir?

 

[hsayar]

sn hocam istediğim bu ama ben nasıl kullanacağım ne bir userform nede kod var ortalıkta

Mesaj kutusundaki Soru Nasıl değişecek, başlık nasıl değişecek buton adları nasıl değişecek vs. vs.

 

[uzmanamele]

merhaba
ben İleti1 sayfasına takıldım kaldım.
Da Vinci'nin şifresini çözmek daha mı kolay acaba?

 

[Haluk]

İleti sayfası, normal bir çalışma sayfası değil ... "Diyalog" sayfasıdır.

Yani, günümüz VBA' sinden önce kullanılan Excel4 makro sayfalarında, bugünkü UserForm'lar yerine kullanılan nesnelerdi.

Seyit bey'in dosyasında söz konusu sayfayı görüntülemek için, ekranın sol alt tarafında sayfa sekmelerinin olduğu kısmı fare ile tutup, çekerek görünür hale getirin.

 

[uzmanamele]

merhaba
syn Haluk
açıklamanız için teşekkür ederim.
kısaca bizi aşan bir konu yani

 

[Haluk]

Yok canım, aşacak bir konu değil....

Sadece, eski bir teknoloji .... :mrgreen:

Aynı şey, UserForm'larla daha rahat yapılır....

 

[hsayar]

Sn haluk hocam burara adı geçen sayfayı gördüm ama bomboş buradaki metinkutusu 6 da zannedersem düğme seçiniz metni var bu metni kodlardan nasıl değiştiririm

 

[uzmanamele]

merhaba
İleti1 sayfasını bulduk ama ne işe yaradığını anlayamamıştım. vba penceresinde de görünmüyordu.
yok yok bizi aşan bir konu

 

[hsayar]

http://www.h3.dion.ne.jp/~sakatsu/ktMsgBox_Series_English.htm

buradada ilginç mesajboxlar var maa nasıl kullanılır onuda anlamadım. vba kodlarıda şifreli

 

[Seyit Tiken]

Haluk Bey'in söylediği gibi, aynı UserFormların mantığı gibidir. Pek kullanılmıyor.
Formlar üzerindeki düğmeler, bu diyalog penceresine rahatlıkla uygulanabilir.

 

[hsayar]

Sn seyit hocam kodlar ile gövde metnini değiştimek nasıl mümkün olur
Mesala

Sub Makro1()
Sayfa1.[Z1] = Application.UserName
DialogSheets("İleti1").Show
End Sub
Sub Düğme2_Tıklat()
MsgBox "Evet Butonu"
End Sub
Sub Düğme3_Tıklat()
MsgBox "Hayır Butonu"
End Sub
Sub Düğme4_Tıklat()
MsgBox "Tümü Butonu"
End Sub
Sub Düğme5_Tıklat()
MsgBox "İptal Butonu"
End Sub

ise

Sub Makro1()
Sayfa1.[Z1] = Application.UserName
DialogSheets("İleti1").Show
End Sub

burada başlığı Z1 de al idye nasıl söyledik

metinkutusu 6 ya

nasıl değer vereceğiz? yoksa her mesaj için ayrı iletişim kutusu mu oluşturacağız.

 

[Seyit Tiken]

Şu şekilde cevap vereyim. Diyalog penceresinde iken, düğmelere sağ tıklanırsa, Makro Ata'yı görürüz. Z1 olayı da, uygulama kullanıcısı'nın ismi Z1 hücresine alınıyor. Formun Caption bölümü Metin Kutusu şeklindedir. Formülle kutuya bağlanmış. Butonlara üstüste iki kere tıklanırsa, ismini değiştirebilirsiniz...

 

[hsayar]

http://www.excel.web.tr/showthread.php?t=45047

istediğimi yukarıdaki linkte ekli eklenti ile yapabiliyorum küçük bir sıkıntım kladı onuda silere danışıyorum