شامل2 قام بنشر مارس 28, 2017 مشاركة قام بنشر مارس 28, 2017 السلام عليكم كيف يمكن تصميم ملف لحضور موظفين الدائرة باستخدام برنامج الاكسل ملاحظة// تم استخدام الدالة IF الشرطية بحيث عند دخول الموظف يكتب رقم 1 في العمود الحضور ويظهر الوقت في العمود الوقت المشكلة انه عند حضور اي موظف سوف يتم تحديث الوقت للكل وهذا غير صحيح. وكما في الملف المرفق حضور موظف.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 28, 2017 مشاركة قام بنشر مارس 28, 2017 (معدل) ربما هذا الكود يقوم بالمهمة 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 بواسطه سليم حاصبيا 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر مارس 29, 2017 الكاتب مشاركة قام بنشر مارس 29, 2017 السلام عليكم شكرا استاذ واين يتم وضع هذا الكود رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 29, 2017 مشاركة قام بنشر مارس 29, 2017 تحميل الملف Time.rar 2 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 29, 2017 مشاركة قام بنشر مارس 29, 2017 استاذ سليم جزاك الله كل خيراً 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر مارس 31, 2017 الكاتب مشاركة قام بنشر مارس 31, 2017 (معدل) في ٢٩/٣/٢٠١٧ at 07:05, سليم حاصبيا said: تحميل الملف Time.rar السلام عليكم شكرا استاذ سليم ولكن لم يعمل اي شيء عند تغيير الحضور الى رقم 1 اي انه لم يتغير الوقت وانما فقط عند تغيير العمود (ت) فهل يمكن تغيير ذلك الى عمود(الحضور) تم تعديل مارس 31, 2017 بواسطه شامل2 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر مارس 31, 2017 الكاتب مشاركة قام بنشر مارس 31, 2017 السلام عليكم شكرا للاخ سليم على تعاونه معنا تم التعديل على الكود وهو يعمل بالشكل الصحيح والمطلوب واصبح بالشكل التالي 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان