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

مساعدة في ماكرو للترتيب بعدة خيارات


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

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

 

 

لكم المرفق

Rank.rar

تم تعديل بواسطه مدريدي عمان
رابط هذا التعليق
شارك

اشكرك استاذي ومعلمي استاذ  رجب وابدلك الله بها الحسنات وحقق لك ما تتمنى

 

 

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

وايضا لا يوجد ترتيب للمراكز من 1-4 ثم تتغير بعد ذلك معطيات الصف باكمله على حسب نوعية الترتيب الذي نريده

 

 

سأوضح بمثال مثلا اردت الترتيب حسب النقاط واخترت من القائمة المنسدلة النقاط عندما اضغط على رتب تبقى المراكز من 1-4 ثابتة تصاعديا ولكن تتغير باقي المعطيات دفعة واحدة على حسب نوع الترتيب

 

 

وان كان هناك فريقين في متساوين لا مشكلة في ان يكون الترتيب الارقام هكذا 1-2-2 -4  على اساس فيه ثاني مكرر انتقلنا 4

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

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

 

 

 

حتى اوضح لك ما اريد سارفق لك هذا الملف

 

وافضل ان يكون الحل عبر الدوال لسهولة تعلمها بدلا من الاكواد

Rank - Copy.rar

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

شكرا استاذ عبدالله وابدلك الله الحسنات

 

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

 

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

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

شكرا استاذ عبدالله وابدلك الله الحسنات

 

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

 

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

 

عملناها بالدوال حسب طلبك

 

وافضل ان يكون الحل عبر الدوال لسهولة تعلمها بدلا من الاكواد

 

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

نعم استاذي عبالله قلت بالدوال اسهل على اعتقادي بانها ستترتب في نفس الجدول وتعشمت ان تزودوني بالمايكرو لاختار الافضل

 

 

لكن في النهاية ابعث لك شكري الخالص ودعائي لكما بالخير والسعادة والاجر العظيم على ما قدمتوه واشكركم

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

استخدم كود الاستاذ رجب

واستثني العمود L (المراكز) من نطاق الفرز

واجعل الترتيب تنازلي

مثل هذا

Sub ragab()
x = Range("AA1").Value
Range("M5:Y8").Sort Key1:=Cells(5, x), Order1:=xlDescending
End Sub

تحياتي

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information