استخراج ايام الاجازات الاعتيادية والعارضة بشكل تلقائى

[محمد جابر 111]

السلام عليكم ورحمة الله وبركاته
اولا" :-

المطلوب    (( هو استخراج ايام الاجازات الاعتيادية والعارضة والغياب بشكل تلقائى ))
وباقى التفاصيل دلخل الملف المرفق
يا ريت حد يساعدنى فيه
......

ثانيا" :-
ملحوظه :- الاستاذ / @محمد الريفى (عضو محترف )
وصل لمعادلة تستخدم فى ذلك ... لكن المعادلة كانت تستخرج 6 ايام فقط ونوع واحد من الاجازات
وانا محتاج المعادلة تستخرج حوالى 10 ايام على الاقل فى كل عمود من  الاجازات الموضحة
ارجو المساعدة

.... ّّ!!

قاعدة بيانات التفريغ اليومى لسنة 2015 الفعلية الغير كاملة.rar

[محمد جابر 111]

المعادلة الغير كاملة المستخدمة فى استخراج ايام الاجازات
يا ريت تساعدنى فى اكملها فى ملف الاكسيل الاولانى كما هو مطلوب
ولكم مني جزيل الشكر والاحترام

معادلة أ-محمد الريفى لاستخراج ايام الاجازات.rar

تم تعديل يناير 24, 2015 بواسطه محمد جابر 111

[ياسر خليل أبو البراء]

أخي أنا حملت الملف في المشاركة رقم 2 ولا أرى إلا أن أخي محمد الريفي قد أدى الهدف ..

ما الجديد الذي تريده ، حيث لا أرى تمييزا بين العاضة والاعتيادي في الملف الذي قمت بتحميله إنما علامة X في حالة الغياب وفقط

مزيد من التوضيح

[محمد جابر 111]

يا استاذى الفاضل
انا اخذت المعادلات ونسختها
وذلك فى 3 اعمدة
كما هو موضح
ولكن الناتج لم يظهر بشكل اتوماتيك
يجب الضغط على f8 فى شريط التفاصيل ليظهر الناتج

ظهور الناتج 2 اتوماتيك.rar

[محمد جابر 111]

أخي أنا حملت الملف في المشاركة رقم 2 ولا أرى إلا أن أخي محمد الريفي قد أدى الهدف ..

ما الجديد الذي تريده ، حيث لا أرى تمييزا بين العاضة والاعتيادي في الملف الذي قمت بتحميله إنما علامة X في حالة الغياب وفقط

مزيد من التوضيح

يا استاذى الفاضل

انا اخذت المعادلات ونسختها

وذلك فى 3 اعمدة

كما هو موضح

ولكن الناتج لم يظهر بشكل اتوماتيك

يجب الضغط على f8 فى شريط التفاصيل ليظهر الناتج

ظهور الناتج 2 اتوماتيك.rar

[ياسر خليل أبو البراء]

أخي الحبيب محمد جابر

إليك الملف التالي ..جربه قد يغنيك تماماً عن المعادلات والتعديل فيها

الملف به دالة معرفة تقوم بالمطلوب إن شاء الله

 

Absence UDF Function.rar

[محمد جابر 111]

 

أخي الحبيب محمد جابر

إليك الملف التالي ..جربه قد يغنيك تماماً عن المعادلات والتعديل فيها

الملف به دالة معرفة تقوم بالمطلوب إن شاء الله

 

افضل اجابة على الاطلاق على الاطلاق

جزاك الله خير الجزاء على مساعدتى

والله فى عون العبد ما دام العبد فى عون اخيه

لذلك سادعو لك الله بظهر الغيب 

ان يكون فى عونك كما ساعدنى وعوانتنى

اخوك فى الله محمد جابر

[محمد جابر 111]

اخى الكريم المعادلة تعمل فى الاكسيل الذى ارفقة فقط
لكن مع الاكسيل عندى لا تعمل وهى غير ظاهرة تماما"
لحظ اخى معى الصورتيين المرفقين :-
الاولى تعمل 11 ( المرفق الذى ارفقته )
اما اثانية لا تعمل 21  ( اكسيل على الجهاز عندى )

[ياسر خليل أبو البراء]

أخي الحبيب محمد جابر

ولا تنسى إخوانك أيضاً الذين بادروا بالمساعدة وفتحوا باب الأفكار للحلول المتنوعة .. بارك الله فيهم جميعا

وجزاهم الله خير الجزاء عنا فهم أساتذتنا وعلى أيديهم تتلمذنا وتعملنا ..

 

بالنسبة لماذا لا تعمل .. يجب عليك أن تقوم بنقل الدالة المعرفة إلى ملفك ..قم بالضغط على ALT + F11 للدخول لمحرر الأكواد ثم ابحث عن الدالة

Function ConcIf(Rng1 As Range, Rng2 As Range, Criteria As String, MyJoin As String) As String
    Dim X
    X = Filter(Evaluate("INDEX(if(" & Rng2.Address & "=""" & Criteria & """," & Rng1.Address & ",CHAR(2)),,)"), Chr(2), 0)
    If UBound(X) > -1 Then
        ConcIf = Join(X, MyJoin)
    Else
        ConcIf = "لا يوجد"
    End If
End Function

وقم بنسخها إلى ملف في موديول جديد .. عندما تفتح محرر الأكواد ستجد قائمة Insert اختار منها Module ثم ضع ما نسخته فيها .. واحفظ الملف بصيغة Macro-Enabled

تقبلوا تحياتي

[محمد جابر 111]

الف الف شكر اخى الحبيب .. والله اني احببتك فى الله 
الله يجزيكم خير الجزاء
وانا عن نفسى كل لما اشتغل سوف افتكر من ساعدنى للوصول الى هذا
وسوف ادعوا لكم بظهر الغيب
وانت ايضا" ادعوا لى عسى الله ان يتقبل دعوه