بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من اكواد اكسيل VBA
الاكسيل HR | كيفية حساب حضور وغياب الموظفيين (تفريغ كشف البصمة ) | Excel HR
اليوم لدينا كود جديد من اكواد الاكسيل VBA
اذا كنت تتعامل مع كشوف حضور وغياب الموظفيين ولديك كشف بة بيانات كثيرة جدا وتريد تفريغ هذة البيانات من خلال معرفة عدد ايام الحضور وعدد ايام الغياب وتمييز ايام الغياب عن ايام الحضور بالوان مختلفة كل هذة سوف نقوم بعملة فى هذ الكود الجميل
فى البيت سوف نقوم بعمل متغير لاحضار اخر صف بة بيانات وليكن المتغير LR
وبعد ذلك نقوم بعمل عدد 2 حلقة تكرارية For - Next & for each
الحلقة الاولى تقوم بتحديد بداية عمل الكود ونهايتة
والحلقة التكرارية الاخرى سوف تقوم بالبحث داخل المدى المحد عن الخلايا الفارغة ووضع كلمة " غائب " داخل كل خلية مفيش فيها توقيع من خلال كشف البصمة
وهذا مايقوم بة الشرط IF الذى نقوم من خلالة باجبار الكود على تنفيذ هذة الشرطية فى الخلايا الفارغة فقط
كود جميل وممتع جدا جدا
ويمكنك معرفة الكثير من خلال متابعة شرح الفيديو الموجود فى اسفل المقال كما يمكنك ايضا تحميل ملف العمل ليكون كرجع لحضرتك فى كيفية التعامل مع الكود المستخدم فى هذا الدرس
الكود :
Sub addAbsent()
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To lr
For Each cl In
Range("c4:ag" & lr)
If Cells(i,
2).Value <> "" And cl.Value = "" Then
cl.Value =
"A"
End If
Next cl
Next i
End Sub