فرز عشوائي

[أ/حكيم]

الأخو الاعزاء أرجو المساعدة في عمل فرز عشوائي حسب المطلوب في الملف المرفق

فرز عشوائي.zip

[محمود رواس]

الاخ ابو حكيم المحترم

حسب فهمي للموضوع انك ترغب في داله للاختيار العشوائي من الارقام الموجوده ، يمكنك استخدام داله RANDBETWEEN الرجاء مشاهده الفيديو المرفق يشرح عمل الداله ، وتم عملها ايضا على ملفك المرفق لتغير الرقم العشوائي يمكنك الضغط على F9 .

وشكراً ،،،،،

فرز عشوائي.rar

[محمود رواس]

اسف هذا الفيديو

[رجب جاويش]

بعد اذن أخى الفاضل / محمود رواس

وحسب ما فهمت من الملف

جرب أخى الكود التالى

Sub ragab1()

[C7:G20].ClearContents

For i = 3 To 7

    For ii = 7 To Cells(3, i) + 6

	    Cells(ii, i) = Int(Rnd(1) * Cells(3, i) + 1)

    Next

Next

End Sub

فرز عشوائي.rar

[بن علية حاجي]

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

أخي الكريم، باستعمال الدالتين Rnd و Rank في VBA وبمساعدة أعمدة إضافية (الأعمدة من AA إلى AE بموازاة جدول الفئات) تم كتابة الكود بالملف المرفق وهو يعطي التسلسل (بطريقة عشوائية) للأرقام من 1 إلى الرقم الخاص لكل فئة دون تكرارات... أرجو أن يفي الكود بالغرض المطلوب... وأعرف أن الإخوة الكرام لن يبخلوا بما عندهم من علم ويقدموا أكوادا أبسط من الذي قدمته.

أخوك بن علية

فرز عشوائي.rar

[أ/حكيم]

الأعزاء أعجز عن أعجابي بهذا الابداع شكراً جزيلاً

[منياوى]

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