كود أو معادلة لكتابة كلمة متتالى او غير متتالى ولكن بشرط

[فضل حسين]

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

كل عام وانتم بخير

ارجو المساعدة بكود او بمعادلة 

مرفق الملف موضح به المطلوب

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

متتالى وغير متتالى.rar

[وائل احمد المصري]

اخي وعليكم السلام اطلع على المرفق فية حل سريع وفكرة بسيطة لعله يحل لك المشكلة

تحياتي

 

متتالى وغير متتالى.rar

[فضل حسين]

الاخ الفاضل / وائل احمد المصرى

جزاك الله كل خير واشكرك على مشاركتك 

ولكن وللاسف ليس هذا هو المطلوب انا اريد كود او معادلة تضع فى خلية واحدة

لان انا عندى كم البيانات كثير جدا وعندى الشهور كثيرة جدا 

انا شاكر سيادتكم مرة ثانية على مروركم الكريم ومشاركتكم الكريمة

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

أخي الكريم فضل 1 (أرجو أن تغير رقم 1 في اسم الظهور بلقبك ..)

بالنسبة لطلبك ..جرب الدالة المعرفة التالية ...

Function IsCountGTE(ByVal Rng As Range)
    Dim Cnt As Long
    Dim Data As Variant
    Dim Item As Variant

    Application.Volatile
    Data = Rng.Value

    If Application.WorksheetFunction.CountIf(Rng, "غ") = 0 Then IsCountGTE = "": Exit Function

    For Each Item In Data
        If IsEmpty(Item) Then
            Cnt = 0
        ElseIf Item = "غ" Then
            Cnt = Cnt + 1
        End If
        If Cnt = 5 Then
            IsCountGTE = "متتالي"
            Exit Function
        End If
    Next Item

    IsCountGTE = "غير متتالي"
End Function

وإليك الملف المرفق يوضح كيفية استخدامها

 

Count Contiguous Cells Only.rar

[وائل احمد المصري]

أخي الكريم فضل 1 (أرجو أن تغير رقم 1 في اسم الظهور بلقبك ..)

بالنسبة لطلبك ..جرب الدالة المعرفة التالية ...

Function IsCountGTE(ByVal Rng As Range)
    Dim Cnt As Long
    Dim Data As Variant
    Dim Item As Variant

    Application.Volatile
    Data = Rng.Value

    If Application.WorksheetFunction.CountIf(Rng, "غ") = 0 Then IsCountGTE = "": Exit Function

    For Each Item In Data
        If IsEmpty(Item) Then
            Cnt = 0
        ElseIf Item = "غ" Then
            Cnt = Cnt + 1
        End If
        If Cnt = 5 Then
            IsCountGTE = "متتالي"
            Exit Function
        End If
    Next Item

    IsCountGTE = "غير متتالي"
End Function

وإليك الملف المرفق يوضح كيفية استخدامها

 

Count Contiguous Cells Only.rar

ولا اروع بارك الله في علمك

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

الأروع هو تواجدك معنا ونشاطك الجميل والرائع أخي الحبيب وائل

إني أحبك في الله

[وائل احمد المصري]

الأروع هو تواجدك معنا ونشاطك الجميل والرائع أخي الحبيب وائل

إني أحبك في الله

أدام الله المحبة والأخوة وجعلك الله دائما سباقا" بالخيرات وتقبل الله منا ومنكم صالح الأعمال

[فضل حسين]

استاذى وحبيبى / ياسر خليل ابو البراء

أولا وقبل أى شئ أرجو ان تتقبل عذرى وبالغ اسفى لتأخرى على سيادتك فى الرد على مشاركتك الجميلة . وذلك لاسباب خارجة عن إرادتى وأسباب قهرية. ارجو تقبل اسفى . وانا عارف انك قلبك كبير . 

ثانيا :- والله مش عارف اقولك ايه أنت فعلا ( حدوته مصرية ) بل أنت ( حدوته اكسيلية ) 

أبهرتنى بهذا العمل الجميل مثلك أيه ياحبيبى الجمال ده واسعدتنى بهذا العمل . اسعدك الله كما تسعد الاخرين وجعل الله كل هذة الاعمال الجليلة ونشر العلم ومساعدة الاخرين فى ميزان حسناتك اللهم امين

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

رابعا :- اسمحلى اجدد شكرى لسيادتك وادعو الله ان يسعدك كما تسعدنا بأعمالك ومشاركاتك الجميلة ياحبيبى 

خامسا :- ياحبيبى انت تأمر واحنا ننفذ واحنا تحت امرك سيادتك . قمت  بتغيير اسم الظهور كما طلبت سيادتك من  فضل 1 إلى فضل حسين وهو اسمى  وأنا تحت امر سيادتكم 

حبيبى ابو البراء كل عام وانتم بخير وادعو الله ان تكون فى اتم صحة واحسن عال وتتشارك دائما معنا بأعمالك ومساعداتك الرائعة دائما ياحبيبى

وفى النهاية اسمح لى أن ارفع لسيادتكم القبعة تعظيما واجلالا لهذا العمل وهذة المعادلة الرائعة

اخوك

فضل حسين 

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

أخي الحبيب فضل حسين

مشكور على كلماتك الرقيقة الطيبة في حقي ، وهذا كثير جداً في حقي ولا أستحقه

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

أدام الله المودة والحب بيننا جميعاً أيها الأخوة الأحباب

تقبلوا وافر تقديري واحترامي