Ekranda 3 saniye görünüp kaybolan mesaj?

[zeliha]

Arkadaşlar,
Bir excel çalışma kitabı açıldığı anda ekrana bir mesaj penceresi gelecek ve 3 saniye göründükten sonra kaybolacak.Buna bir örnek hazırlayabilirseniz çok sevinirim.Çok teşekkür ederim.

 

[ALPEN]

http://www.excel.web.tr/viewtopic.php?t=6094

Edit:

Workbook_Open() olayına kodu kopyalayın.

 

[merguney]

sevgili alpen ikon.a bastığımda 5 sn.sonra kapanacak diye uyarı çıkıyor ama kapanmıyor..birde bu kapanma olayı hangi durumlarda etkin olarak kullanılıyor acaba anlamadım?

 

[Haluk]

Bu da aynısının biraz değişik bir versiyonu ..... 3 saniye için ayarlandı.

Sub Auto_Open()
    Dim WScript As Object
    Set WScript = CreateObject("WScript.Shell")
    x = WScript.popup("Deneme mesajı...", 3, "Kullanıcının dikkatine....!", 64 + 6)
    Select Case x
        Case 2
        MsgBox "Cancel - Vazgec tusuna basildi"
        Case 10
        MsgBox "Try again - Tekrar dene tusuna basildi"
        Case 11
        MsgBox "Continue - Devam tusuna basildi"
        Case -1
        MsgBox "Hmmm... uyuyorsun galiba !"
    End Select
End Sub

 

[girdap]

Merhaba,

Sayın Alpenin verdiği link çalışmıyor.
Sayın Haluk Bey'in çalışması ise bambaşka bir form uygulaması. Benim formum yeniden dene uygulaması değil.

Saygılarımla

 

[girdap]

Sayın Alpenin gösterdiği link çalışmadığından kon çözümlenemedi. Sayın hocalarım, konu hakkında bilginize ihtiyacım var.

Saygılarımla

 

[CRAYZLOVEIS]

Kardeş sanırım bu şekilde bir şey istiyorsun