العثور على الأرقام الناقصة من التسلسل

[ريان أحمد]

السلام عليكم

عندي قاءمة من ارقام متسلسلة اريد ايجاد  كود يجد الناقصة ة من التسلسل

 مثلا

 

88001

88002

88004

881001

881002

881005

 

 

فالآرقام الناقصة من التسلسل

 هي

88003

و 881003

881004

 

 

 

بحيث يكون الرقم يحتوي على

100102060001

 

الآرقام الثمانية ثابتة وأخرى متسلسلة

تم تعديل نوفمبر 2, 2014 بواسطه ريان أحمد

[أبوعيد]

الرجاء ارفاق ملف للتوضيح

[سليم حاصبيا]

 السلام عليكم

اليك هذاالملف النموذجي عن الموضوع

missing number.rar

[يوسف السيد]

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

[سليم حاصبيا]

 استاذ احمد

زيادة في التوضيح انظر الى المرفق  (sheet1(3

missing number 1.rar

[ريان أحمد]

السلام عليكم

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

 

الرجاء  تحويلها غلى كود    وخروج الأرقام الناقصة في ورقة جديدة 

[سليم حاصبيا]

 لك ما تريد

الارقام الناقصة في صفحة مستقلة

missing number 2.rar

[شوقي ربيع]

السلام عليكم

الشكر موصول للأخ سليم حاصبيا

للإفادة

هذا حل عن طريق الاكواد

Sub test()
Dim sh As Worksheet: Set sh = Feuil4
Dim Lr As Long: Lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row - 1
Dim i As Integer, r As Integer, x As Integer, xx As Integer

    
    For i = 2 To Lr
        x = Val(sh.Range("A" & i + 1)) - Val(sh.Range("A" & i))
        Select Case x
            Case Is > 1
            For xx = 2 To x
                            r = r + 1
                sh.Range("O" & r).Value = Val(sh.Range("A" & i)) + xx - 1
            Next
        End Select
    Next

End Sub

تحياتي للجميع

[ريان أحمد]

السلام عليكم

 

شكرا للأخ سليم

 

لكن اريد كود كما وضع الأخ شوقي ولكن عندما طبقته  خردت رسالة

 

debassement  de cabacite

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

أخي الأستاذ الكبير شوقي ربيع تقبل تحياتي وتقديري

كود رائع

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

السلام عليكم

 

شكرا للأخ سليم

 

لكن اريد كود كما وضع الأخ شوقي ولكن عندما طبقته  خردت رسالة

 

debassement  de cabacite

تفضل أخ ريان ملف مرفق بالكود الرائع الخاص بالأستاذ العلامة شوقي ربيع

Missing Number By Code.rar

[يوسف السيد]

اساتذتى الفضلاء .. الاكواد جميلة بارك الله فيكم
هل بالامكان ان يتم اظهار الارقام الناقصة فى رسالة وليست كما بالمرفق فى عمود

تم تعديل نوفمبر 3, 2014 بواسطه يوسف السيد

[شوقي ربيع]

تحية كبيرة للأخ ياسر خليل وجازاه الله خيرا على متابعة الموضوع

اساتذتى الفضلاء .. الاكواد جميلة بارك الله فيكم
هل بالامكان ان يتم اظهار الارقام الناقصة فى رسالة وليست كما بالمرفق فى عمود

تفضل اخي الكريم

Sub test()
Dim sh As Worksheet: Set sh = Feuil4
Dim Lr As Long: Lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row - 1
Dim Text As String
Dim i As Integer, r As Integer, x As Integer, xx As Integer

    r = 0
    For i = 2 To Lr
        x = Val(sh.Range("A" & i + 1)) - Val(sh.Range("A" & i))
        Select Case x
            Case Is > 1
            For xx = 2 To x
                r = r + 1
                Text = Text & Val(sh.Range("A" & i)) + xx - 1 & vbCrLf
            Next
        End Select
    Next
    MsgBox Text
End Sub

تحياتي للجميع

[يوسف السيد]

تمام جدااااااااااا
الحل رااائع سلمت يمينك

[ريان أحمد]

السلام  عليكم

 

مازال نفس المشكل

تم تعديل نوفمبر 4, 2014 بواسطه ريان أحمد

[شوقي ربيع]

السلام  عليكم

 

مازال نفس المشكل

من هذا الكود حدد اسم الورقة التي تريد فرز بيناتها

Dim sh As Worksheet: Set sh = Feuil4'"هذا هو اسم الورقة"

[ابو نبأ]

تسلم - مشكور - وفقكم الله