كيف يمكنني إضهار التوقيت في خلية

[عبد الغني1]

السلام عليكم 

أردت إضهار التوقيت في خلية ما مثل أن أكتب 5 يكتب في الخلية 05:00 وإذا أردت أن أكتب في الخلية 15 فيكتب لي 15:00 وأما إذا اردت ان اكتب الوقت فيه الدقائق فكيف 

[خزاني]

السلام عليكم ورحمة الله وبركاته

اليك هذا الكود

ThisWorkbook

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopChrono
End Sub
*---------------------------------------------------
Private Sub Workbook_Open()
    Chrono
End Sub

Module1
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur    : Ben amar khezzani
' Date      : 03/04/2015
' Sujet     : Heure dans Cellule
'---------------------------------------------------------------------------------------
Dim Temps As Date
Public Sub Chrono()
  * برمجة الحدث كل ثانية
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Chrono"
    Sheets("ورقة1").Range("D2").Value = Time
End Sub
Public Sub StopChrono()
    On Error Resume Next
   * توقف إدارة الحدث الزمن
    Application.OnTime Temps, "Chrono", , False
    On Error GoTo 0
End Sub

[حمادة عمر]

السلام عليكم 

أردت إضهار التوقيت في خلية ما مثل أن أكتب 5 يكتب في الخلية 05:00 وإذا أردت أن أكتب في الخلية 15 فيكتب لي 15:00 وأما إذا اردت ان اكتب الوقت فيه الدقائق فكيف 

 

يتم ذلك من خلال تنسيق خلايا اخي الكريم

واختيار التنسيق الذي يناسبك

او ارفق ملف بمثال للشكل الذي تريده

[خزاني]

السلام عليكم ورحمة الله وبركاته

مثال  تطبيقى على الكود المدرج اعلاه

khezzani HeureDansCellule.rar