selamlama kutusu

[lavvar]

merhabalar
Çalışma kitabını açtığımda içinde " Bu gün 23.kasım.2007 Cuma saat 13:30, Lavvar iyi günler diler. " yazılı bir kutu açılsın istiyorum. Altındada tamam yazan bir buton. Ve tabiki çalışma her açılıp kapandığında tarih ve saat kendini yenilemeli. Böyle birşey mümkünmü acaba şimdiden teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Auto_Open()
MsgBox "Bu gün " & Format(Date, "dd.mmmm.yyyy") & " " & Format(Date, "dddd") & " saat " & Format(Now, "hh:mm") & " , Lavvar iyi günler diler.", vbOKOnly + vbInformation
End Sub

 

[lavvar]

teşekkür ederim sayın orion2
peki bu yazıyı biçimlendirebilirmiyiz. Kutu içindeki tüm kutuları italik yapıp tarih ve saati kırmızı yazmak gibi mesala

 

[Orion1]

teşekkür ederim sayın orion2
peki bu yazıyı biçimlendirebilirmiyiz. Kutu içindeki tüm kutuları italik yapıp tarih ve saati kırmızı yazmak gibi mesala

Msgbox ta metin biçimlendiremeyiz.
Bunun için UserForm ile yapmak lazım.
Bir uğraşayım.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[ferhat0606]

sayın orion bu yaptığın işlemi adım adım yazabilirmisin saygılarla

 

[Orion1]

sayın orion bu yaptığın işlemi adım adım yazabilirmisin saygılarla

Bir tane Userform oluşturuyorsunuz ona 5 tane label koyuyorsunuz.
Label2 ve label4 için aşağıdaki kodları yazıyorsunuz.

Private Sub UserForm_Initialize()
Label2.Caption = Format(Date, "dd.mmmm.yyyy") & " " & Format(Date, "dddd")
Label4.Caption = Format(Now, "hh:mm")
End Sub

Bir modülede Autpen makrosunu yazıyorsunuz işlem tamam.

Sub Auto_Open()
'MsgBox "Bu gün " & Format(Date, "dd.mmmm.yyyy") & " " & Format(Date, "dddd") & " saat " & Format(Now, "hh:mm") & " , Lavvar iyi günler diler.", vbOKOnly + vbInformation
UserForm1.Show
End Sub

 

[lavvar]

Teşekkür ederim sn. Orion2

 

[Orion1]

Teşekkür ederim sn. Orion2

Rica ederim.
İyi çalışmalar.

 

[uyrdkl]

Sayın Evren Gizlen
selamlamayı anlatmış ve örneklemişsiniz. emeginize sağlık. Benim sorum. zaman göre selamlama yapılabilirmi. örneğin sabah saatlerinde "günaydın", öglen saatlerinde " Tünaydın" akşam saatlarinde "iyi akşamlar" gece "iyi geceler "gibi
teşekkür ederim

 

[Orion1]

Sayın Evren Gizlen
selamlamayı anlatmış ve örneklemişsiniz. emeginize sağlık. Benim sorum. zaman göre selamlama yapılabilirmi. örneğin sabah saatlerinde "günaydın", öglen saatlerinde " Tünaydın" akşam saatlarinde "iyi akşamlar" gece "iyi geceler "gibi
teşekkür ederim

Dosyanız ektedir.

Sub Auto_Open()
gun = "Lavvar İyi Günler Diler"
If TimeSerial(Hour(Now), Minute(Now), Second(Now)) >= TimeSerial(5, 0, 0) And TimeSerial(Hour(Now), Minute(Now), Second(Now)) <= TimeSerial(9, 0, 0) Then gun = "Lavvar İyi Sabahlar Diler"
If TimeSerial(Hour(Now), Minute(Now), Second(Now)) >= TimeSerial(12, 0, 0) And TimeSerial(Hour(Now), Minute(Now), Second(Now)) <= TimeSerial(13, 0, 0) Then gun = "Tünaydın"
If TimeSerial(Hour(Now), Minute(Now), Second(Now)) >= TimeSerial(17, 0, 0) And TimeSerial(Hour(Now), Minute(Now), Second(Now)) <= TimeSerial(21, 0, 0) Then gun = "Lavvar iyi Akşamlar Diler"
If TimeSerial(Hour(Now), Minute(Now), Second(Now)) > TimeSerial(21, 0, 0) And TimeSerial(Hour(Now), Minute(Now), Second(Now)) <= TimeSerial(24, 0, 0) Then gun = "Lavvar İyi Geceler Diler"
MsgBox "Bu gün " & Format(Date, "dd.mmmm.yyyy") & " " & Format(Date, "dddd") & " saat " & Format(Now, "hh:mm") & " , " & gun, vbOKOnly + vbInformation
End Sub

 

[uyrdkl]

Çok teşekkürler
emeğinize sağlık

 

[Orion1]

Çok teşekkürler
emeğinize sağlık

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Kodda bir hata vardı
Şimdi düzelttim.11 numaralı mesajdan dosyayı tekrar indirebilirsiniz.