دالة لحساب اكبر عدد متصل للغياب مع الخلايا الملونة المتصلة

[أم عبد الله]

أساتذي الكرام عمالقة هذا الصرح الكبير

 

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

 

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

ASA3.rar

[دغيدى]

سيدتى أم عبد الله

سلام الله عليكم

غياب يومى الخميس والسبت يعدا يومان

[أم عبد الله]

أستاذنا الكبير عميد المنتدى/ جمال دغيدي

 

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

 

نعم أستاذنا غياب يومي الخميس والسبت يعد يومان إذا كان الغياب منفصل أما إذا كان الغياب متصل يحسب يوم الجمعة معهم وذلك إذا كان الغياب قبل الخميس بيوم على الأقل أو بعد السبت بغياب يوم على الأقل فهذا يعد غياب متصل ومن هنا يحسب يوم الجمعة غياب.وبعض المدارس ليس عنهم إلا يوم الجمعة هو اجازة فقط لأنهم فترتين أو ثلاث فترات .وهذا بناء على كلام مسئول الغياب. لكم كل التحية والتقدير.

[حمادة باشا]

أساتذي الكرام عمالقة هذا الصرح الكبير

 

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

 

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

 

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

في البداية أقدم التحية للأستاذ/ عبدالله باقشير صاحب دالة حساب أيام الغياب

الأخت الفاضلة/ أم عبدالله

لم يتم التعديل علي كود الملف الأصلي - بل تمت بعض الإضافات أعتقد أنها ستلبي المطلوب بإذن الله

كما قمت بترقية الملف إلي 2007 حيث أن نسخة 2003 غير متوافقة مع الإضافات

برجاء قراءة الملاحظات داخل الملف

والله الموفق

ASA3.rar

[عبدالله باقشير]

السلام عليكم

 

اخي الفاضل/ حمادة باشا ...حفظكم الله

تاكدت من معرفة المطلوب من ملفك ...جزاكم الله خيرا

 

اختي الفاضلة / ام عبدالله ...حفظكم الله

عملنا الدالة التالية لحساب اكبر غياب متصل مع عد الخلايا الملونة ( اي لون بدون تحديد) اذا اتصلت بالغياب

Function kh_ContNoN(Rnge As Range) As Integer
Dim Cel As Range
Dim i As Integer, ii As Integer, iii As Integer
For Each Cel In Rnge
    If CStr(Cel) = "غ" Or Cel.Interior.ColorIndex <> -4142 Then
        If CStr(Cel) = "غ" Then i = i + 1
        If Cel.Interior.ColorIndex <> -4142 Then ii = ii + 1
        If i > 0 Then If i + ii > iii Then iii = i + ii
    Else: i = 0: ii = 0
    End If
Next
kh_ContNoN = iii
End Function

ارجوا ان يكون المطلوب

المرفق 2003

ASA3.rar

[الـعيدروس]

السلام عليكم

 

جزاك الله خير استاذ حمادة باشا

 

استاذ عبدالله باقشير

كما عودتنا اكواد تحف نادرة

جزاك الله كل خير وبارك فيك

 

تقبل مروري

[عبدالله باقشير]

السلام عليكم

 

جزاك الله خير استاذ حمادة باشا

 

استاذ عبدالله باقشير

كما عودتنا اكواد تحف نادرة

جزاك الله كل خير وبارك فيك

 

تقبل مروري

 

سرني مروركم وكلماتكم الطيبة....جزاكم الله خيرا

 

تقبلوا تحياتي وشكري

[حمادة باشا]

أستاذنا/ عبدالله باقشير

الدالة التي قمتم بإضافتها ستختصر الأمر بالفعل وشكرا علي الإضافة

 

الأستاذ/ عباد

شكرا لكم مروركم الكريم

 

 

 

 

[أم عبد الله]

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

أستاذنا القدير / عبد الله باقشير

والأستاذ الفاضل / حمادة باشا

 

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

 

جزاكم الله خيراً أنا عاجزة عن الشكر ولا أملك إلا الدعاء لكما ولجميع من في المنتدى رزقنا وإياك الفردوس الأعلى من الجنة.

فعلاً أكواد رائعة بعد أن فقدت الأمل حليت الموضوع بمعادلات وحورات كثيرة ولكن الحمد لله نعم الله علينا بالحل الجذري وإن شاء الله سوف ارفع برنامج غياب الطلبة قريباً إن شاء الله. لكم كل التحية والتقدير.

[أم عبد الله]

أستاذنا القدير / عبد الله باقشير

 

 

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

 

أستاذي الكبيرالكود رائع جداً ويعمل بكفاءة عالية والحمد لله ولكن عندما تم تلوين الخلايا الخاصة بالاجازات عن طريق التنسيق الشرطي لم تستجيب المعادلة. هل لو تكرمت يمكن تعديل الكود وجزاك الله خيراً. ورزقك الفردوس الأعلى من الجنة

[عبدالله باقشير]

أستاذنا القدير / عبد الله باقشير

 

 

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

 

أستاذي الكبيرالكود رائع جداً ويعمل بكفاءة عالية والحمد لله ولكن عندما تم تلوين الخلايا الخاصة بالاجازات عن طريق التنسيق الشرطي لم تستجيب المعادلة. هل لو تكرمت يمكن تعديل الكود وجزاك الله خيراً. ورزقك الفردوس الأعلى من الجنة

 

اختي الفاضلة / ام عبدالله .............اكرمكم الله

صعب التعرف على التنسيق الشرطي بالدالة ... والله اعلم

لازم يكون لون حقيقي وليس تنسيقي علشان تعمل الدالة ...

 

تقبلوا تحياتي وشكري