power468
Altın Üye
- Katılım
- 23 Aralık 2017
- Mesajlar
- 47
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 21-08-2025
Umarım Faydası Olur
Açıklama: UserForm'da 2 adet Label açın 1.Label Düzenleme kısmından Name kutusuna BUGUN yazın 2. Label İsmini SAAT olarak değiştirin bukadar.
TARİH VE SAAT
Private Sub UserForm_Activate()
BUGUN.Caption = Date
SAAT.Caption = Time
Do
DoEvents
SAAT = Format(Time, "hh:mm:ss")
Loop
End Sub
Açıklama: UserForm'da 2 adet Label açın 1.Label Düzenleme kısmından Name kutusuna BUGUN yazın 2. Label İsmini SAAT olarak değiştirin bukadar.
TARİH VE SAAT
Private Sub UserForm_Activate()
BUGUN.Caption = Date
SAAT.Caption = Time
Do
DoEvents
SAAT = Format(Time, "hh:mm:ss")
Loop
End Sub
