حضور موظفين

[شامل2]

السلام عليكم

كيف يمكن تصميم ملف لحضور موظفين الدائرة باستخدام برنامج الاكسل

ملاحظة// تم استخدام الدالة IF الشرطية بحيث عند دخول الموظف يكتب رقم 1 في العمود الحضور ويظهر الوقت في العمود الوقت

المشكلة انه عند حضور اي موظف سوف يتم تحديث الوقت للكل وهذا غير صحيح.

وكما في الملف المرفق

 

 

حضور موظف.rar

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

ربما هذا الكود يقوم بالمهمة

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Column = 1 And Target.Count = 1 And Target.Address <> "$A$1" Then
        If Target.Offset(, 3) = "" Then Target.Offset(, 3) = Time
    End If
Application.EnableEvents = True
End Sub

 

تم تعديل مارس 29, 2017 بواسطه سليم حاصبيا

[شامل2]

السلام عليكم

شكرا استاذ

واين يتم وضع هذا الكود

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

تحميل الملف

 

Time.rar

[خالد الشاعر]

استاذ سليم

جزاك الله كل خيراً

[شامل2]

في ٢٩‏/٣‏/٢٠١٧ at 07:05, سليم حاصبيا said:

تحميل الملف

 

Time.rar

السلام عليكم

شكرا استاذ سليم

ولكن لم يعمل اي شيء عند تغيير الحضور الى رقم 1 اي انه لم يتغير الوقت وانما فقط عند تغيير العمود (ت)

فهل يمكن تغيير ذلك الى عمود(الحضور)

 

تم تعديل مارس 31, 2017 بواسطه شامل2

[شامل2]

السلام عليكم

شكرا للاخ سليم على تعاونه معنا

تم التعديل على الكود وهو يعمل بالشكل الصحيح والمطلوب

واصبح بالشكل التالي

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Column = 3 And Target.Count = 1 And Target.Address <> "$A$1" Then
        If Target.Offset(, 1) = "" Then Target.Offset(, 1) = Time
    End If
Application.EnableEvents = True
End Sub