مطلوب دالة توزيع

[ابو غريب]

المطلوب دالة توزيع اسماء او ارقام من العمود A على الاعمدة الباقية حتى العمود M بطريقة عشوائية ولكم جزيل الشكر مرفقتوزيع.rar ملف للتوضيح

[عبدالله المجرب]

السلام عليكم

اخي ابوجاد الله

جرب هذا الكود

Sub Abu_Ahmed_Rand()

Application.ScreenUpdating = False

For i = 2 To 13

For j = 6 To 16

1 x = Int(Rnd * 16) + 1

If x < 6 Or x > 16 Then GoTo 1

Cells(j, i).Value = Cells(x, 1)

Next

Next

Application.ScreenUpdating = True

End Sub

شاهد المرفق

توزيع.rar

[ابو غريب]

شكرا اخى عبد الله ولاكن ليس هو المطلوب الغلط من عندى انا لاننى لم اوضح المطلوب وسوف ارسل اليك المطلوب بالظبط انا اسف على تعبك معى ولك جزيل الشكر واعتزر للمرة الالف وشكرا

[ابو غريب]

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

توزيع.rar

[عبدالله المجرب]

السلام عليكم

شاهد هذا الرابط

http://www.officena.net/ib/index.php?showtopic=37057

[محمدي عبد السميع]

تفضل اخي ملف الاستاذ عادل حنفي بذل فيه جهدا بارك الله فيه

ساقية اللجان.rar 342.93K 276 عدد مرات التحميل

بالرغم من وجود بعض النقاط التي كنا نتمنى وضعها في الملف مثل وضع بعض الاحتياطي يدويا ويكمل البرنامج التوزيع

الستم معي في ذلك

[ابو غريب]

كيف تعمل هذة الساقية وعندى 5 لجان و 11 ملاحظ و 6 مواد فهموني كيف تعمل الساقية وشكرا

[منياوى]