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

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

 

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

تم تعديل بواسطه وسام حسن
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

لاخذ العلم فقط كل عامود من اكسل 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

 

  • Like 1
رابط هذا التعليق
شارك

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

array.xlsm

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information