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

[فضل حسين]

خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته ................ كل عام وانتم بخير

مرفق لسيادتكم الملف موضح به والمطوب

ولسيادتكم جزيل الشكر

الغياب.rar

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

السلام عليكم

 

تم عمل معادلة بالكود

Function kh_test(Rnge As Range) As String
Dim Cel As Range
kh_test = "غير متتالى"
For Each Cel In Rnge
    If CStr(Cel) = "غ" Then i = i + 1
    If i = 15 Then kh_test = "متتالى": Exit For
    If CStr(Cel) <> "غ" Then i = 0
Next
End Function

تضع المعادلة في الخلية BM4

وتسحبها على باقي العمود

=kh_test((C3:AF3;AH3:BK3))

المرفق 2003

الغياب.rar

[فضل حسين]

العالم الجليل / عبدالله باقشير

جزاك الله كل خير وبارك الله فيك وعلى ابداعاتك . فدائما تمتعنا باعمالك وتجعلنا نتوقف امامها كثيرا لما فيها من فكر عالى ومهنية وتقنية عالية . كل الحب والتقدير والدعاء لسيادتكم بالخير وبالتوفيق .

بالنسبة للمعادلة التى تم عملها عن طريق الكود بالطبع ابداع وتميز غير عادى ولكن وللاسف ياعالمنا الجليل عندما قمت بتنفيذها وتجربتها على ملفى وهو به امتدادات كثير حوالى 8 امتدادات للاسف اعطت رسالة كما هى موضحه بالملف المرفق ولم تعطى المطلوب .

انا ارفقت لسيادتكم الملف الاصلى لترى بنفسك ان مع كثرة الامتدادت المعادلة اعطت رسالة وليس المطلوب

وعلى فكرة ناتج المعادلة المطلوب ان يظهر مطلوب يظهر فى الخلية it كما هو بالملف المرفق

فى النهاية شاكر لسيادتكم مشاركتكم وهذا شرف لى وفى انتظار رد سيادتكم

وشكرا

غ غ.rar

[حاملة المسك]

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

 

بعد اذن استاذنا انا قمت بتعديل طفيف على المعادلة كالاتى فى العمود IT

                                              (kh_test(D3:IS50

وهى تعمل معى 

غ غ.rar

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

السلام عليكم

الشكر واصل للفاضلة حاملة المسك حفظها الله

 

الاخ الفاضل فضل1_____حفظكم الله

جزاكم الله خيرا

تحتاج الى وضع النطاق بين قوسين

 

ضع هذه المعادلة في الخلية IT3

واسحبها على باقي العمود

=kh_test((D3:AG3;AI3:BM3;BO3:CR3;CT3:DX3;DZ3:FD3;FF3:GH3;GJ3:HN3;HP3:IS3))

تحياتي

[فضل حسين]

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