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

معرفة الأرقام الناقصة 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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information