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

كيف يمكن عمل ترتيب تلقائى


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

اخوانى الاعزاء السلام عليكم ورحمة الله وبركاتة

هذه اول مشاركة لى فى هذا المنتدى الرائع واتمنى من الله ان اجد المساعده لديكم

حيث اريد ان افهم كيف يمكن ان يتم عمل ترتيب تلقائى للاعبيين وكيف يمكن اعطاء النقاط لهم اتماتيكى

والملف الملحق به شرح للمطلوب

اشكركمك على حسن المساعده

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

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

أخي في الله مرحبا بك في هذا المنتدى الكبير

وسأدلي بدلوي في هذا الموضوع بمشاركة متواضعة مقتبسة فكرتها من مشاركة أحد عباقرة المنتدى

ولكن عذراً فقد عدلت علامة ْX إلى 0

وستجد الترتيب بإذن الله كما تريد في ورقة ترتيب

خطف.zip

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

أخي العزيز

رجاء الاطلاع على المرفق وفيه عند أي تغيير في عمود أفضل خطف يتم إعادة ترتيب مراكز ونقاط اللاعبين تلقائياًحسب طلبك .

تحياتي

أبو عبدالله

ترتيب تلقائي.rar

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

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

أخي في الله أبو عبد الله

بارك الله في عملك ووقتك

أتمنى أن تشرح لنا طريقة عمل هذه الفكرة التي نفذتها

ولي اقتراح كتعديل على ملفك أن تجعل أفضل خطفة تلقائية وذلك عن طريق جدول الخطفات وأفضل خطفة بالطبع هي الأكبر وزن في الثلاث خطفات

ووفقكم الله دائما لتكون عوناً لأخوانك

وجزاك الله خيراً عنا

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

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

أهلا بأخي الكريم... في الحقيقة لم أطّلع إلى ما قدمه الكرام وأعرف أنهم لا يبخلون بأجود ما عندهم... وقد دخلت الموضوع وحمّلت ملفك وبدأت العمل عليه مباشرة دون النظر إلى عمل الإخوة الكرام (ربما سيكون عملي مشابها أو حتى مطابق لما قدمه أحد إخوتي الأعزاء...

إليك الملف المرفق أضفت فيه بعض التنسيقات (لون الخلايا التي تمثل المحاولات الخاطئة) وبعض المعادلات للترتيب RANG وللتوزيع (واستعملت هنا الذالة الشرطية SI)

أخوكم بن علية

نرنيب وتوزيع نقاط.rar

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

أخي العزيز / imaginlife

أشكرك على كلماتك الرقيقة وبخصوص شرح فكرة الكود فهي على ما أسعفني به تفكيري يمكن شرحها من خلال الكود على الوجه التالي :

هذ كود حدثي ضمن مجموعة الأكواد الحدثية ( EVENT CODES )المرتبطة بورقة العمل من نوع Change أي يعتمد على حدث التغيير في هدف معين بالورقة مثل عمود أو صف أو نطاق أو خلية أو الورقة بالكامل وسأكمل الشرح على الكود نفسه لنحاول أن نفهم سوياً :

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

'تحديد العمود السادس ومن بعد الصف الثاني كهدف يترتب على أي تغيير فيه تغيير أحداث أخرى مطلوبة

If Target.Column = 6 And Target.Row > 2 Then

'أول هذه الأهداف المطلوبة عمل فرز تنازلي لكامل بيانات الجدول على أساس العمود السادس ومن أول الخلية F3

[A3:H100].Sort [F3], xlDescending

'الإجراء الثاني بعد الفرز الذي تلقائياً سيضع أعلى درجات في الخلية F3 هو أن يضع بجوار F3 أي في G3 أي أول عمود الترتيب يضع رقم 1

[G3].Value = 1

' وفي الخلية H3 أي بداية عمود النقاط يضع أعلى نقاط وهي 28

[H3].Value = 28

' وفي الخلية H4 ثم يضع نقاط المركز الثاني في وهي 25

[H4].Value = 25

' وفي الخلية H5 ثم يضع نقاط المركز الثالث في وهي 23

[H5].Value = 23

' ولإكمال ترتيب المراكز وبعد وضع المركز رقم 1 في G3

' يجب أن نكمل وضع التريب للمراكز التالية للمركز الأول هذا ما يتم من خلال السطور التالية

ER1 = [F3].End(xlDown).Row

For i = 4 To ER1

If Cells(i, 6).Value > 0 Then

Cells(i, 7).Value = Cells(i - 1, 7).Value + 1

Else: Cells(i, 7).Value = 0

End If

Next

' ولإكمال وضع النقاط بعمود نقاط الخطف وبعد وضع نقاط المراكز الثلاثة الأولى في الخطوات السابقة G3

' هذا ما يتم من خلال السطور التالية

ER2 = [G4].End(xlDown).Row

For W = 6 To ER2

If Cells(W, 7).Value > 0 Then

Cells(W, 8).Value = Cells(W - 1, 8).Value - 1

Else: Cells(W, 8).Value = 0

End If

Next

End If

Application.ScreenUpdating = True

End Sub

أرجو أن يكون الشرح واضح .

تحياتي

أبو عبدالله

تم تعديل بواسطه أبو عبد الله
  • Like 1
رابط هذا التعليق
شارك

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

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

ودمت لنا شمعة تنير طريق العلم

وكان الله في عونك كما أنت عوناً لإخوانك

وبارك الله في وقتك وعملك وأهلك

ومهما دعوت لك فلن أوفيك حقك

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

ماشاء الله الاخوة الاعزاء

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

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

شكرا لك من ساهم وكل من ساعد وكل من يسر

سهل الله عليكم كل صعب ويسر لكم كل سهل وزادكم علما وتقوى

الف مليون شكر

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

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

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



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

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

Important Information