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

[hasdan]

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

 

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

 

شكرا مقدما

 

 

book1.rar

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

السلام عليكم 

اليك هذا الملف يا صديقي

عسى ان ينال اعجابك

لاعبين.rar

[hasdan]

شكرا عزيزي سليم حاصبيا

 

استفذت من الدالة المستخدمة بالمرفق قليلا لكن توجد مشكلة انها تسمح بالتكرار..

كل ما اريد تفريغ اللاعبين الستة مثلا تفريغ حراس المرمى الستة على الفرق الستة بدون تكرار اللاعب

 

شكرا مقدما

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

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

اذا كان عندك Excel 2013  يمكنك منع لتكرار 

[hasdan]

لدي 2013 excel.. كيف يمكن منع التكرار لطفاً

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

بعد إذن أخى الحبيب ( سليم )

إليك الحل أخى بالكود لأنة الأفضل فى عملية التوزيع مع عدم التكرار

وإن كنت لاأحب إستخدامة فى مراسلاتى فى المنتدى لأن هناك من هم أفضل منى فى ذلك

وستجد أن التوزيعة الأولى " كل 6 لاعبين فى فريق "

أما المرفق الثانى  " كل 11 لاعب "

تقبل تحياتى

توزيع فريق 2.rar

توزيع فريق 11.rar

[hasdan]

هل بالإمكان تطبيقه على الملف المرفق مع الاخذ بالاعتبار مراكز اللعب

مع الشكر

[hasdan]

هل بالإمكان تطبيقه على الملف المرفق مع الاخذ بالاعتبار مراكز اللعب

مع الشكر

book1.rar

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

اليك الملف دون تكرار

و بدون كود/فقط معادلة

لاعبون دون تكرار.rar

[hasdan]

لازلت عاجزا عن تطبيقه على ملفي

هل من مساعد بتطبيقة على الملف المرفق

 

شكرا

book1.rar

تم تعديل مايو 6, 2014 بواسطه hasdan

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

فقط يا أخي انسخ المعادلة من اي خلية والصقها عندك في المكان المناسب 

على ان تغيّر اسماء الخلايا لتجعلها مناسبة للخلايا حيث توجد الأسماء

[hasdan]

عزيزي سليم ملفكم يقوم باختيار اللاعبين وفرزهم على هيئة مباراة

 

ما اريد فرز اللاعبين المصنفين حسب المراكز الى مجموعات كل مجموعة تحتوي على حارس مرمى ومدافع و و 

 

ارجو المساعده وكسب ثواب اخيك الفقير بتطبيقه على الملف المرفق

 

شكرا لصبركم

[رجب جاويش]

السلام عليكم

بعد اذن الرائعين

أ/ جمال عبد السميع

أ/ سليم حاصبيا

 

هذا حل آخر لإثراء الموضوع

Sub ragab()
Application.ScreenUpdating = False
Range("B12:L17").ClearContents
T = 12
For TT = 2 To 12 Step 2
    For i = 2 To 12 Step 2
    Randomize
1     x = Int((8 - 3 + 1) * Rnd + 3)
    y = Application.WorksheetFunction.CountIf(Range("B" & T & ":L" & T), Cells(x, TT))
    If y >= 1 Then GoTo 1
    Cells(T, i) = Cells(x, TT)
    Next
    T = T + 1
Next
Application.ScreenUpdating = True
End Sub

توزيع اللاعبين.rar

[hasdan]

السلام عليكم

 

كما هو مطلوب تماما اخي العزيز رجب جاويش

شكرا جزيلا لك ولمن سعى للمساعدة

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

أستاذى ومعلمى " رجب جاويش "

وحشتنى مشاركاتك " والبقاء لله " وربنا يجعلها أخر الأحزان

أعمالك رائعة وكود حضرتك جميل

وهذا كود أخر لإثراء الموضوع

توزيع لاعبيين.rar