تقرير غياب

[سيد رجب]

ارجو  المساعدة بإظهار عدد أيام الغياب بهذا الشكل مرفق الملف

تقرير غياب.rar

[احمد بدره]

تفضل الكود 

=COUNTA(B4:AC4)

وقمت إضافة 3 أعمدة حتي يتم حساب غياب أي شهر 31يوم

فأصبح الكود

=COUNTA(B4:AF4)

تقرير غياب.rar

[Ali Mohamed Ali]

ممكن تجرب هذا

 

تقرير غياب.xlsx

[سيد رجب]

شكرا علي الاهتمام لاكن يوجد خطاء بإظهار النتائج

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub Absents()
Dim C As Range, M As String
Dim R As Integer
R = 4
Do While Cells(R, 1) <> ""
For Each C In Range("B" & R & ":AC" & R)
If C.Value = "غ" Then
M = Day(Cells(2, C.Column)) & "," & M
Range("AD" & R) = M
End If
Next
R = R + 1
M = ""
Loop
End Sub

 

[سيد رجب]

شكرا وضعت الكود ولم يشتغل

[ابراهيم الحداد]

السلام عليكم ورحمة الله

لن يعمل معك الكود و خلايا الاسم فارغة

 

تم تعديل أبريل 14, 2018 بواسطه زيزو العجوز

[احمد بدره]

حفظ الله أستاذنا الجليل الأستاذ / زيزو العجوز وبعد إذنه قمت بعمل تعديلات على الملف لكي يصبح الملف يصلح لأي شهر من السنة بداية من سنة 2018 م وذلك بكتابة رقم الشهر في الخلية A1 وكتابة رقم السنة في الخلية A2 بشرط كتابة رقم السنة أولاً ثم كتابة اسم الشهر  ، ومع كتابة رقم الشهر  سوف تتغير أيام وتاريخ الشهر تلقائيًا مع إخفاء الأعمدة الفارغة للشهور التي أقل من 31 يوم .

تفضل الملف الملف  وتحياتي للجميع

تقرير غياب.xlsm

[سيد رجب]

استخدمت الملف الاخ احمد ولاكن مش شغال اضفت علية اسمين لا تغير مرفق الملف للتوضيح

تقرير غياب.rar

[سيد رجب]

شكرا بعد تجربة الملف اتضح ان بعد إضافة أي تغير بالملف لازم تفعل الكود

وبعد اذن الاخوه ومجهوداتهم الرائعة اضفت زر تشغيل للتفعيل الرجاء التجربة وابداء الراي

وطبعا لكم الفضل في الأول والأخر

تقرير غياب.rar

[Ali Mohamed Ali]

جرب كده

 

تقرير غياب.xlsm

[سيد رجب]

تمام كدة وانا سعيد لأننا وصلنا لنفس النتيجة والفكرة شكرا للاهتمام

تم تعديل أبريل 15, 2018 بواسطه سيد رجب