- Katılım
- 23 Aralık 2017
- Mesajlar
- 48
- Excel Vers. ve Dili
- 2016
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
