اذهب الي المحتوي
أوفيسنا

معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

الردود الموصى بها

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

 

جزاكم الله الخير والسعادة  

 

احترامى لشخصكم الكريم

دكتور محمد صلاح

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

يبدو أنك بحاجة لمراجعة الموضوع من جديد

أنا لم أفعل شيء غير أني غيرت النطاق الذي به الأرقام والنطاق الذي سيتم استخراج الأرقام الناقصة به

 

تقبل تحياتي

رابط هذا التعليق
شارك

عموماً قمت بتعديل الكود الأخير ليناسب طلبك

Sub MissingNumbers_YK_C()
    Dim InputRange As Range, Text As String
    Dim X As Long
    
    Set InputRange = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For X = WorksheetFunction.Min(InputRange) To WorksheetFunction.Max(InputRange)
        If IsError(Application.Match(X, InputRange, 0)) Then
            Text = Text & X & vbCrLf
        End If
    Next X
    
    MsgBox Text, vbMsgBoxRtlReading
End Sub

يا ريت يكون الموضوع استوفى حقه

رابط هذا التعليق
شارك

يا سيدي عملية جدا - لأنو الأرقام بتظهر برسالة منفصلة عن الورقة

وإذا في مجال

بيكون

شكرا

ما في مجال

كمان شكرا

حقك عليا يا سيدي شكرا

مش هبدي رأيي بعد كدا طالما إن رأيي بيزعل كدا

رابط هذا التعليق
شارك

الحمد لله أخي الحبيب أن تم المطلوب على خير

والعتاب بيكون بين الأحباب ..

 

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

وساعدني في ذلك الأخ المتميز سليم بارك الله فيه ..

وأعتقد أن الرسالة غير عملية في حالة أن عدد الأرقام الناقصة كثيرة ففي مثال الدكتور محمد صلاح عدد النتائج 16000 رقم ناقص ... فكيف للرسالة أن تظهر هذا العدد؟

على هذا الأساس بنيت رأيي .. هذا والله أعلى وأعلم

رابط هذا التعليق
شارك

أخي الكريم محمد الخازمي

مشكور على مرورك العطر بالموضوع

بارك الله فيك ..

بقالك فترة مختفي يعني كنت فين ..بتصيف من ورانا ولا ايه؟ :smile:

رابط هذا التعليق
شارك

استاذ ياسر شكراً علي السؤال

 

غطسين في بحر الامتحانات والتشميس تحت الكنترول

أعانكم الله ..المهم إحنا اطمنا عليك روح كمل غطس لو لسه مخلصتش :rol:

  • Like 1
رابط هذا التعليق
شارك

أخى وأستاذى العزيز

الله عليك  متميز جدا فى الموضوع ده خاصة ً

مع الأكواد المتعددة والتى تؤدى نفس الغرض .

لا حرمنا الله منك ومن ابداعاتك يا أستاذى العزيز

رابط هذا التعليق
شارك

  • 2 years later...
  • 6 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information