افضل طريقة لوضع تاريخ يعمل اوتوماتيك بدلا من ادخال الموظف التاريخ بنفسه

[عبد الله السعيد]

السلام عليكم 
لدي موظفين عند كتابة ملفات عملهم الاكسل  ، ينسون كتابة تاريخ يوم العمل الذي قامو به في الخانات المحددة للتاريخ  ، ويتركون تواريخ خطأ 
عند الرجوع لملفات اعمالهم في اي وقت من السنة  ، لا يتم معرفة متى تم انهاء هذا العمل بالضبط في الوقت والتاريخ
جربت دالة  today   لكن لاسف عند فتحها في اي وقت اريد اجد تاريخ اليوم الفعلي وليس يوم عمل الموظف الحقيقي 

 انا اريد حل بدلا من ادخال الموظف التاريخ بنفسه ويخطأ او ينسى ادخاله او او   ، ان تكون هناك معادلة تقود بذلك 
بحيث لو دخلت في اي وقت من السنة  اجد تاريخ تنفيذ هذا الملف بالفعل ..أنا اريد خلية واحدة فقط اضع فيها التاريخ لا اكثر

Date.xlsx

[سليم حاصبيا]

جرب هذا الملف

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim R
R = Range("A2", Range("B1").End(4)).Rows.Count + 2
If R > 10000 Then R = 2
If Target.Address = Cells(R, 1).Address _
      And Target.Cells.Count = 1 _
      And Target <> vbNullString Then
  Target.Offset(, 1) = _
  IIf(Target.Offset(, 1) = vbNullString, _
  Date, Target.Offset(, 1))
End If
Application.EnableEvents = True
End Sub

الملف مرفق

My_Date.xlsm

[هانى محمد]

عبد الله السعيد

كود الأستاذ سليم يعمل بكل كفاءة وليس هناك داعى لكل هذا فقط عليك تغيير هذا السطر بالكود

If R > 10000 Then R = 2

الى 

If R > 2 Then R = 2

كله بسيط ان شاء الله .. اذا كنت تريد التاريخ بالخلية C1 على الرغم انك لم توضح ذلك سلفاً , فيصبح الكود هكذا

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim R
R = Range("A2", Range("C1").End(4)).Rows.Count + 2
If R > 2 Then R = 2
If Target.Address = Cells(R, 1).Address _
      And Target.Cells.Count = 1 _
      And Target <> vbNullString Then
  Target.Offset(, 1) = _
  IIf(Target.Offset(, 1) = vbNullString, _
  Date, Target.Offset(, 1))
End If
Application.EnableEvents = True
End Sub

وشكراً

[عبد الله السعيد]

اخي انا وضحت ذلك بالفعل

وبالفعل وضعت الكود  ، ولا يوجد اي تاريخ 

لو سمحتم للمتابعين موضوعي واضح ببساطه شديدة

اريد خلية واحده فقظ ايا كانت   افتح الملف في اي وقت اجد فيها تاريخ تنفيذ هذا الملف والعمل عليه 

تم تعديل مارس 9, 2021 بواسطه عبد الله السعيد