اختصار كود الفرز لأعمدة كثيره تصل إلى 50 عمود

[محمد عدنان]

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

المطلوب تعديل على كود الفرز و التقليل من عدد الاسطر يحيث يقوم الفرز ابجديا لجميع الاعمدة  ...و شكرا 

student2022.xlsm

[أ / محمد صالح]

إذا كان الهدف اختصار الكود

فجرب هذا

تم تحويل النطاق من range إلى cells للتحكم في رقم العمود بدلا من الحرف الخاص به

Sub mySort()
For c = 2 To 48 Step 2
Range(Cells(5, c), Cells(Cells(Rows.Count, c).End(xlUp).Row, c)).Sort Key1:=Cells(5, c), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Next c
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق

[محمد عدنان]

السلام عليكم 

اخ @أ / محمد صالح هل بالامكان التعديل على الماكرو بحيث يقوم بترتيب جميع الاعمدة ؟

جزاك الله كل الخير 

[أ / محمد صالح]

هو بالفعل يرتب جميع الأعمدة الزوجية 

التي بها الاسم 

[محمد عدنان]

كيف ممكن اخليه يرتب ل range محدد يعني فقط ل 65 اسم مثلا

عشان السرعة 

[أ / محمد صالح]

الكود يرتب الأسماء المكتوبة فقط 

يعني لو مكتوب في العمود B خمسين اسم يرتب من B5:B54 وهذا هو التعديل الذي تمت اضافته مني لان الكود القديم يرتب 200 صف بغض النظر عن عدد الأسماء 

رجاء دراسة الكود جيدا قبل الرد

[محمد عدنان]

جزاك الله كل خير و اشكرك على سعة صدرك ...اسال الله العظيم ان يغفر لنا و لك ذنوبنا  ..ما شاء الله عليك  اخ محمد صالح

 

[أ / محمد صالح]

جميعا بإذن الله