أهلا وسهلا بك فى منتدانا الكريم من الأفضل ارسال الملف للعمل عليه
ولكن يمكنك وضع هذه المعادلة فى الخلية التى تريدها لإعطاء الوقت والتاريخ الحاليين
=TEXT(TODAY(),"d/m/yyy")&" "&TEXT(NOW(),"hh:mm:ss")
وهناك ايضا هذا الكود لجعل الوقت يعمل وشغال بأستمرار
Sub Date_Time()
On Error Resume Next
1 DoEvents
N = Now
Range("c13") = Format(N, "[$-F400]h:mm:ss AM/PM")
T = T + 1
For r = 1 To 10000000: Next r
GoTo 1
End Sub
وهذا كود اخر يمكنك اضافته فى حدث الورقة بحيث اذا قمت بتسجيل اى شيء فى العمود B سيضهر لك التاريخ فى العمود C
والوقت فى العمود D
Private Sub Worksheet_Change(ByVal Target As Range)
n = Now
If Target.Column = 2 Then
If Target = "" Then
Cells(Target.Row, Target.Column + 1) = ""
Cells(Target.Row, Target.Column + 2) = ""
Exit Sub
ElseIf Target <> "" Then
Cells(Target.Row, Target.Column + 1) = Date
Cells(Target.Row, Target.Column + 2) = Time
End If
End If
End Sub
بارك الله فيك