Mouse buton üstüne gelince mesaj formu çıksın

[Ulucdinc]

Selam arkadaşlar herkese kolay gelsin,

Herhangibir komut butonu üzerine mouse işaretçisini tıklamadan bu butonun üstüne geldiğinde bir mesaj görünsün istersek nasıl bir makro yazmalıyız:

Private Sub Mouse....
Msgbox = "Programı görmek için tıklayınız"

 

[Recep İpek]

Aşağıdaki kodları denermisiniz?

Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Programı görmek için tıklayınız"
End Sub

 

[Levent Menteşoğlu]

Bu işlem için koda gerek yok. Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?p=111275&highlight=controltiptext#post111275

 

[Ulucdinc]

Mesaj Box, butona basmama engel oluyor

Cevaplarınız için çok saolun. Ancak küçük bir problem var. Mesaj kutusu butona basmama engel olmakta. Ne yapacaz peki şimdi..:???:

 

[Recep İpek]

O zaman Sn.leventm'nin çözümü sizin için uygundur.Çünkü önce mesaj kutusunu kapatmanız gerekiyor.Fakat bu seferde tekrar butona basmak için üzerine geldiğinizde mesaj kutusu tekrar ekrana gelir.Böyle olunca bir türlü butona basma ihtimaliniz olamaz.

 

[Ulucdinc]

Özellikler alanında bu bölüm bulunmuyor

Versiyonum 2003 excel acaba bu versiyonda bu eklenti yokmu ben de yok ya da bulamadım_:roll:

 

[Merhum İdris SERDAR]

O zaman Sn.leventm'nin çözümü sizin için uygundur.....

Userform'daki için tamam da, Sheet'e konan "Command Button"un böyle bir özelliğini bir türlü bulamadım ben.????

Sayın Ulucdinc'in dediğini yapmak için, Belki, bu ifadeyi "Icon" olarak yapıp, Properties'den Mouseicon olarak seçmek ve MousePointer'i en sonda yer alan 99 nolu custom seçeneğini seçerek mümkün olabilir.

 

[Levent Menteşoğlu]

Userform'daki için tamam da, Sheet'e konan "Command Button"un böyle bir özelliğini bir türlü bulamadım ben.????

Userform üzerinde command butona tıkladığınızda properties penceresi görünür, bu penceredeki "controltiptext" kısmına istediğiniz mesajı yazabilirsiniz. Böylece fare buton üzerine gelince bu mesaj görünecektir.

 

[Merhum İdris SERDAR]

Userform üzerinde command butona tıkladığınızda properties penceresi görünür, bu penceredeki "controltiptext" kısmına istediğiniz mesajı yazabilirsiniz. Böylece fare buton üzerine gelince bu mesaj görünecektir.

Sayın Leventm,

Soru Userform için değil. Userform için OK diyorum. Bunda şüphe yok. Ama soru Sayfa'ya (Sheet'e) konulmuş "Command Button" için soruluyor.

Soru bu dosyadaki düğme için soruluyor.

http://www.excel.web.tr/attachment.php?attachmentid=4006&d=1159179198

 

[Levent Menteşoğlu]

Soru Userform için değil. Userform için OK diyorum. Bunda şüphe yok. Ama soru Sayfa'ya (Sheet'e) konulmuş "Command Button" için soruluyor.

O zaman durum değişir, sorunun sayfa üzerindeki bir buton için istenildiği belirtilmemiş maalesef. Bu durumda kod kullanmak veya mouse icon yada picture özelliği ile birşeyler yapılabilir.

 

[mehmett]

Sayfa'ya eklenen CommanButton için Sn Ripek'in kodlarına aşağıdaki ilaveler
yapılırsa butona basmak için 2 sn zaman kazanırız.

pausetime=2 değeri değiştirilerek zamanı ayarlayabiliriz.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Programı görmek için tıklayınız"
[COLOR=red]pausetime = 2[/COLOR]
[COLOR=red]Start = Timer[/COLOR]
[COLOR=red]Do While Timer < Start + pausetime[/COLOR]
[COLOR=red]DoEvents[/COLOR]
[COLOR=red]Loop[/COLOR]
End Sub