وسام حسن قام بنشر أغسطس 14, 2019 مشاركة قام بنشر أغسطس 14, 2019 (معدل) السلام عليكم ورحمة الله و بركاته عندي كود (ماكرو) يظهر كل الاحتمالات الناتجة عند سحب عدد عشرة ارقام عشوائياً من اجمالي اربعة و عشرين رقم، المشكلة ان نتائج البحث قد تخطت عدد صفوف ورقة الاكسل و التي تبلغ تقريباً ١٤٨٠٠٠ صف على اخر اصدار للاكسل ٢٠١٦ و السؤال هل من الممكن اضافة جزء الى الكود يجعل النتائج تستكمل في الصفحة التالية عند الوصول الى اخر صف أو عند عدم كفاية صفوف الصفحة الحالية كل الشكر و التقدير تم تعديل أغسطس 14, 2019 بواسطه وسام حسن رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر أغسطس 14, 2019 مشاركة قام بنشر أغسطس 14, 2019 وعليكم السلام لا تنتظر المساعدة من احد طالما انك لم تقم برفع ملف مدعوم بشرح كافى ووافى عن المطلوب مع وضع بعض النتائج المطلوبة عرفت استاذى الكريم وسام ان عدم رفع الملف من البداية قام باضاعة وقت الأساتذة وسوف يتم من جديد البحث فى ملفك عند توافر وقت الأساتذة واتاحة الفرصة لهم من جديد للنظر الى ملفك دائما وابدا نقول ان المشاركة لا تكتمل بدون رفع ملف مدعوم بشرح كافى ووافى للمطلوب 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أغسطس 14, 2019 أفضل إجابة مشاركة قام بنشر أغسطس 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 1 رابط هذا التعليق شارك More sharing options...
وسام حسن قام بنشر أغسطس 14, 2019 الكاتب مشاركة قام بنشر أغسطس 14, 2019 قمت برفع الملف المرفق به كود الماكرو و عفواً عن الخطأ المطبعي الخاص بـ عدد صفوف الاكسيل فهي حوالي ١٠٤٨٠٠٠ و ليس ١٤٨٠٠٠ كما كتبت و السؤال الان مرة أخرى و أتمنى ان أوفق في توضيحة ،، الملف المرفق به كود يستطيع توليد عشرة أرقام بشكل عشوائي من أصل عشرين رقم و المشكلة هي أنه اذا قمت بتغيير الكود وجعلته يولد عشرة أرقام من أصل ٢٤ رقم فان عدد صفوف ورقة الاكسل لن تكفي لكافة الاحتمالات حيث انه سوف يكون هناك احتياج لحوالي ٤٠٠٠٠٠ صف أخر و سؤالي هو هل استطيع التعديل في الكود بحيث اذا وصلت النتائج الى الصف الاخير في الورقة ان يقوم باستكمالها في الورقة التالية array.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان