TextBox İçine Anlık Saat

[efem67]

Değerli Üstadlarım ve Hocalarım,
Text Box içerisine Anlık Zamanı Yazan bir çalışma
yaptım ancak Çalışma da bir problem oluştu..
Yardımlarınız İçin şimdiden Teşekkürler,,

 

[Korhan Ayhan]

Dosyanızdaki bütün kodları silin.

Modüle aşağıdaki kodu uygulayın.

Sub Auto_Open()
    Do
        Sheets("SayfaANA").TextBox1.Value = Format(Time, "hh:mm:ss")
        DoEvents
    Loop
End Sub

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call Auto_Open
End Sub

Son olarak dosyanızı kayıt edip kapatıp açın. Kod otomatik devreye girecektir. Durması durumunda sayfada herhangi bir hücreye tıklamanız yeterli olacaktır.

 

[efem67]

Emeğiniz için teşekkürler...