userformda karşılama

[hassan26]

Arkadaşlar merhaba
Bir userform üzerinde oluşturulacak texbox veya label üzerine veya uygun araç ne olursa 24 saat formatı üzerinden sabah öğle akşam gece olmak üzere günün bölümlerine uygun olarak Sabah programı açınca hayırlı sabahlar Akşam programı açınca iyi akşamlar Gecede iyigeceler gibi yazılar otomatik yadırılabilirmi. Yani userformda üzerinde karşılama ekranı gibi. Ama kodlarda sadece ilgili userforma göre değil her userformda uygulanabilecek gibi yazılmalı yani hazırlayacağımız başka userform üzerinede uygulayabilelim (Bu userform ThisWorkBook ta otomatik açılmıyor olup kullanıcı tarafından manuel açılan bir userform olsun)
Saygılar..
http://www.excel.web.tr/showthread.php?t=14232&highlight=userformda+kar%FE%FDlama burda konu irdelenmiş kısaca ama ek falan yok faydası olmadığı için yeni konu açtım

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Activate()
saat = Time
If saat <= TimeValue("09:00:00") Then
MsgBox "Günaydın"
End If
If saat >= TimeValue("20:00:00") Then
MsgBox "İyi akşamlar"
End If
End Sub

 

[hassan26]

V.Basıc For Applications ilgine teşekkürler bu yazdığınız kod userform açıldığında Msgbox aracılığıyla oluyor, Benim sorduğum gün içinde arasıra sıkça açıp kapattığım yönetim userformunun üzerindeki bir TextBox üzerinde görüntülenmesiydi bunuda biraz kurcalayarak uyarladım tekrar teşekkürler.
Saygılar..

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Activate()
saat = Time
If saat <= TimeValue("09:00:00") Then
Label1 = "Günaydın"
End If
If saat >= TimeValue("20:00:00") Then
Label1 = "İyi akşamlar"
End If
End Sub