Userformda Takvİm-saat

[ANTALYA 01]

Merhabalar


Userformda Sayfa açıldığında Yelkovanlı bir saat sağında solunda altında takvim örnekli bir çalışması olan var mı ?Kısaca Userform açıldığında Günün tarihi,ve saati

 

[Haluk]

Bir alternatif: (Dünya saati)

1) UserForm'a WebBrowser1 nesnesini ekleyin

2) UserForm modulüne aşağıdaki kodları yerleştirin;

Private Sub UserForm_Initialize()
    WebBrowser1.Navigate ThisWorkbook.Path & "\MyClock.htm"
    WebBrowser1.Width = 230
    WebBrowser1.Height = 130
End Sub
'
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.body.Scroll = "no"
End Sub

3) Excel dosyasını kaydedin.

4) Ekli Clock.zip dosyasını indirin ve içindeki MyClock.htm ile wClock.jar dosyalarını, Excel dosyanız ile aynı yere yerleştirin.

5) Excel dosyanızı açıp, UserForm'u çalıştırın.