ريان أحمد قام بنشر نوفمبر 2, 2014 مشاركة قام بنشر نوفمبر 2, 2014 (معدل) السلام عليكم عندي قاءمة من ارقام متسلسلة اريد ايجاد كود يجد الناقصة ة من التسلسل مثلا 88001 88002 88004 881001 881002 881005 فالآرقام الناقصة من التسلسل هي 88003 و 881003 881004 بحيث يكون الرقم يحتوي على 100102060001 الآرقام الثمانية ثابتة وأخرى متسلسلة تم تعديل نوفمبر 2, 2014 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 الرجاء ارفاق ملف للتوضيح رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 السلام عليكم اليك هذاالملف النموذجي عن الموضوع missing number.rar 1 رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 الاستاذ سليم حاصبيا : الملف راائع جداً ولكن هل بالإمكان اظهار الارقام الناقصة من التسلسل فى رسالة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 استاذ احمد زيادة في التوضيح انظر الى المرفق (sheet1(3 missing number 1.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 3, 2014 الكاتب مشاركة قام بنشر نوفمبر 3, 2014 السلام عليكم شكرا وجزاكم الله كل خير الرجاء تحويلها غلى كود وخروج الأرقام الناقصة في ورقة جديدة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 لك ما تريد الارقام الناقصة في صفحة مستقلة missing number 2.rar رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 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 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 تحياتي للجميع 2 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 3, 2014 الكاتب مشاركة قام بنشر نوفمبر 3, 2014 السلام عليكم شكرا للأخ سليم لكن اريد كود كما وضع الأخ شوقي ولكن عندما طبقته خردت رسالة debassement de cabacite رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 أخي الأستاذ الكبير شوقي ربيع تقبل تحياتي وتقديري كود رائع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 السلام عليكم شكرا للأخ سليم لكن اريد كود كما وضع الأخ شوقي ولكن عندما طبقته خردت رسالة debassement de cabacite تفضل أخ ريان ملف مرفق بالكود الرائع الخاص بالأستاذ العلامة شوقي ربيع Missing Number By Code.rar 2 رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 (معدل) اساتذتى الفضلاء .. الاكواد جميلة بارك الله فيكم هل بالامكان ان يتم اظهار الارقام الناقصة فى رسالة وليست كما بالمرفق فى عمود تم تعديل نوفمبر 3, 2014 بواسطه يوسف السيد رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 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 تحياتي للجميع 2 رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 تمام جدااااااااااا الحل رااائع سلمت يمينك رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 4, 2014 الكاتب مشاركة قام بنشر نوفمبر 4, 2014 (معدل) السلام عليكم مازال نفس المشكل تم تعديل نوفمبر 4, 2014 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر نوفمبر 4, 2014 مشاركة قام بنشر نوفمبر 4, 2014 السلام عليكم مازال نفس المشكل من هذا الكود حدد اسم الورقة التي تريد فرز بيناتها Dim sh As Worksheet: Set sh = Feuil4'"هذا هو اسم الورقة" رابط هذا التعليق شارك More sharing options...
ابو نبأ قام بنشر مارس 12, 2015 مشاركة قام بنشر مارس 12, 2015 تسلم - مشكور - وفقكم الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.