mesaj kutusu

[mertdalagan]

excelde bir çalışma hazırladım. bu çalışmayı her açtığımda ilk olarak 3sn ekranda kalan bir mesaj görünsün istiyorum. aslında mesajdan kastım grafif te olabilir.

 

[bedersu]

Merhaba,
eger msgbox olarak istiyorsanız bunu yapamazsınız faka msgbox gibi bir userform hazırlayıp,bunun 3 saniye sonra kaybolmasını sağlayabilirsiniz.

Sub auto_open()
userform1.show
Dim duraksama, başla, dur
duraksama = 3
başla = timer
Do While timer < başla + duraksama
DoEvents
Loop
dur = timer
unload userform1

End Sub

 

[Ali]

excelde bir çalışma hazırladım. bu çalışmayı her açtığımda ilk olarak 3sn ekranda kalan bir mesaj görünsün istiyorum. aslında mesajdan kastım grafif te olabilir.

Msgbox'ınız 3 saniye ekranda gözükür.

Sub Sürelimsgbox()
Dim x
Dim y As Integer
Set x = CreateObject("WScript.Shell")
y = x.Popup("Excel.web'e hoşgeldiniz", 3, "Merhaba")
Set x = Nothing
End Sub

 

[bedersu]

Teşekkürler sayın Ali.

 

[mertdalagan]

teşekkürler

yardımlarınız için teşekkürler.