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

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

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

 

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

 

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

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

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

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

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

 

تقبل تحياتي

[نايف - م]

يعني ما فيني قول غير أنجاز رائع

لكن

أعوذ بالله من لكن

ليش مو النتائج ب نافذة مثل الكود الأول

يعني MSGbox

أي كان أفضل

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

لأنها الرسالة غير عملية في رأيي

الأفضل أن تكون النتائج في نطاق

[نايف - م]

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

وإذا في مجال

بيكون

شكرا

ما في مجال

كمان شكرا

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

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

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 رقم ناقص ... فكيف للرسالة أن تظهر هذا العدد؟

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

[محمد الورفلي1]

السلام عليكم

 

بارك الله فيك استاذ ياسر

 

عمل رائع جداً

 

تنوع جميل في الحلول لترضي جميع الاعضاء شكراً

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

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

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

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

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

[محمد الورفلي1]

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

 

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

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

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

 

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

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

[مختار حسين محمود]

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

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

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

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

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

مشكور على مرورك العطر أخي الحبيب الغالي مختار

وعوداً حميداً للمنتدى

تقبل تحياتي

[abohasan911]

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

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

وجزيت خيراً أخي الكريم بمثل ما دعوت لي وزيادة

تقبل تحياتي

[علي بطيخ سالم]

ما شاء الله تبارك الرحمن ابداعات والله ما لها حدود كل ما يخطر بالبال نجده هنا جعله الله في ميزان حسناتكم وجزاكم الله عنا خير الجزاء