sphinx_26 قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 اخوانى الاعزاء السلام عليكم ورحمة الله وبركاتة هذه اول مشاركة لى فى هذا المنتدى الرائع واتمنى من الله ان اجد المساعده لديكم حيث اريد ان افهم كيف يمكن ان يتم عمل ترتيب تلقائى للاعبيين وكيف يمكن اعطاء النقاط لهم اتماتيكى والملف الملحق به شرح للمطلوب اشكركمك على حسن المساعده
هشام شلبى قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 السلام عليكم ************ اخى رافع الاثقال المرفق حسب ما فهمت hh.rar
سامح حجاب قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 السلام عليكم ورحمة الله وبركاته أخي في الله مرحبا بك في هذا المنتدى الكبير وسأدلي بدلوي في هذا الموضوع بمشاركة متواضعة مقتبسة فكرتها من مشاركة أحد عباقرة المنتدى ولكن عذراً فقد عدلت علامة ْX إلى 0 وستجد الترتيب بإذن الله كما تريد في ورقة ترتيب خطف.zip
أبوعبد الله قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 أخي العزيز رجاء الاطلاع على المرفق وفيه عند أي تغيير في عمود أفضل خطف يتم إعادة ترتيب مراكز ونقاط اللاعبين تلقائياًحسب طلبك . تحياتي أبو عبدالله ترتيب تلقائي.rar 1
سامح حجاب قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 السلام عليكم ورحمة الله وبركاته أخي في الله أبو عبد الله بارك الله في عملك ووقتك أتمنى أن تشرح لنا طريقة عمل هذه الفكرة التي نفذتها ولي اقتراح كتعديل على ملفك أن تجعل أفضل خطفة تلقائية وذلك عن طريق جدول الخطفات وأفضل خطفة بالطبع هي الأكبر وزن في الثلاث خطفات ووفقكم الله دائما لتكون عوناً لأخوانك وجزاك الله خيراً عنا
بن علية حاجي قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 السلام عليكم ورحمة الله أهلا بأخي الكريم... في الحقيقة لم أطّلع إلى ما قدمه الكرام وأعرف أنهم لا يبخلون بأجود ما عندهم... وقد دخلت الموضوع وحمّلت ملفك وبدأت العمل عليه مباشرة دون النظر إلى عمل الإخوة الكرام (ربما سيكون عملي مشابها أو حتى مطابق لما قدمه أحد إخوتي الأعزاء... إليك الملف المرفق أضفت فيه بعض التنسيقات (لون الخلايا التي تمثل المحاولات الخاطئة) وبعض المعادلات للترتيب RANG وللتوزيع (واستعملت هنا الذالة الشرطية SI) أخوكم بن علية نرنيب وتوزيع نقاط.rar 1
أبوعبد الله قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 (معدل) أخي العزيز / 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 أرجو أن يكون الشرح واضح . تحياتي أبو عبدالله تم تعديل مارس 3, 2010 بواسطه أبو عبد الله 1
سامح حجاب قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 السلام عليكم ورحمة الله وبركاته جزاك الله خيرا على الشرح الممتع والمبسط ودمت لنا شمعة تنير طريق العلم وكان الله في عونك كما أنت عوناً لإخوانك وبارك الله في وقتك وعملك وأهلك ومهما دعوت لك فلن أوفيك حقك
هشام شلبى قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 السلام عليكم ************ اخى واستاذى ابو عبدالله ابداع ×ابداع والشرح وافى وكافى تقبل تحياتى
أبوعبد الله قام بنشر مارس 3, 2010 قام بنشر مارس 3, 2010 إخواني الأعزاء imaginlife هشام شلبي أشكركم من كل قلبي . تقبلوا تحياتي أبو عبدالله
sphinx_26 قام بنشر مارس 3, 2010 الكاتب قام بنشر مارس 3, 2010 ماشاء الله الاخوة الاعزاء بارك الله لكم وانعم عليكم بعمة العلم والزيادة فى التقوى والله انك بحق اخوان من النوع النادر جدا بارك الله فيكم وانى اذ ادعو الله لكم بكل خير وارجو ان تتحملوا اسئلتى حتى نصل الى ماهو افضل بامر الله شكرا لك من ساهم وكل من ساعد وكل من يسر سهل الله عليكم كل صعب ويسر لكم كل سهل وزادكم علما وتقوى الف مليون شكر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.