نتائج الكود أكثر من عدد صفوف ورقة الاكسيل

[وسام حسن]

السلام عليكم ورحمة الله و بركاته 

عندي كود (ماكرو)  يظهر كل الاحتمالات الناتجة عند سحب عدد عشرة ارقام عشوائياً من اجمالي اربعة و عشرين رقم،    المشكلة ان نتائج البحث قد تخطت عدد صفوف ورقة الاكسل و التي تبلغ تقريباً ١٤٨٠٠٠ صف على اخر اصدار للاكسل ٢٠١٦    و السؤال  هل من الممكن اضافة جزء الى الكود يجعل النتائج تستكمل في الصفحة التالية عند الوصول الى اخر صف أو عند عدم كفاية صفوف الصفحة الحالية 

 

كل الشكر و التقدير 

تم تعديل أغسطس 14, 2019 بواسطه وسام حسن

[أحمد يوسف]

وعليكم السلام لا تنتظر المساعدة من احد طالما انك لم تقم برفع ملف مدعوم بشرح كافى ووافى عن المطلوب مع وضع بعض النتائج المطلوبة

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

دائما وابدا نقول ان المشاركة لا تكتمل بدون رفع ملف مدعوم بشرح كافى ووافى للمطلوب

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

لاخذ العلم فقط كل عامود من اكسل 16 يحتوي على 1,048,576 صف وليس 148,000 فقط (اي 7 مرات اكثر مما تتوقع يا صديقي وسام) واذا اكتمل العامود يمكنك الانتقال الى عامود اخر من نفس الصفحة الذي يحتوي على نفس العدد من الصفوف (هناك 16,384 عامود)

اي ما مجموعه 1,048,576 ×  16,384=  حوالي 17 مليار  و  180 مليون خلية (سكان الارض  ثلاث مرات)

هذا الكلام في كل صفحة(Worksheet) من نفس المصنف (Workbook) فما بالك اذا كان  المصنف يحتوي على 100 بل  1000 صفحة 

للتأكيد هذا الماكرو

Sub test()
Range("b1") = Range("a:a").Rows.Count & " Rows in each column"
Range("b1").WrapText = False
Range("b2") = Rows(1).Rows.Columns.Count & " columns in each row"
Range("b2").WrapText = False

End Sub

 

[وسام حسن]

  قمت  برفع  الملف  المرفق به كود الماكرو     و عفواً عن الخطأ المطبعي الخاص بـ عدد صفوف الاكسيل  فهي حوالي ١٠٤٨٠٠٠ و ليس ١٤٨٠٠٠ كما كتبت  و السؤال الان  مرة أخرى و أتمنى ان أوفق في توضيحة       ،، الملف المرفق به كود يستطيع توليد عشرة أرقام بشكل عشوائي من أصل عشرين رقم و المشكلة هي أنه اذا قمت بتغيير الكود وجعلته يولد عشرة أرقام من أصل ٢٤ رقم  فان عدد صفوف ورقة الاكسل لن تكفي لكافة الاحتمالات  حيث انه سوف يكون هناك احتياج لحوالي ٤٠٠٠٠٠ صف أخر   و سؤالي هو  هل استطيع التعديل في الكود بحيث اذا وصلت النتائج الى الصف الاخير في الورقة   ان يقوم باستكمالها في الورقة التالية 

array.xlsm