اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

 

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

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

 

شكرا مقدما

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

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

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

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

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

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

تقبل تحياتى

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

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

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

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

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

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

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

 

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

 

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

 

شكرا لصبركم

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

السلام عليكم

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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



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

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

Important Information