كود لفرز الفصول

[ناصر سعيد]

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

هذا ملف وبه كود بسيط للفرز بمعيار الفصل ولكنه لايعمل ... ارجو تضبيطه

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

Sub KH_Sort()

Dim MyShap As Shape
Dim T As Integer
Set MyShap = Sheet4.Shapes("Kh_Num")
If MyShap.ControlFormat.Value = 1 Then T = 2 Else T = 1
    Range("data").Sort Range("AU12"), T
End Sub

 

 

 

كود لفرز الفصول 1.rar

[بن علية حاجي]

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

أخي الحبيب أبو أحمد، في ملفك لا يوجد شيت اسمه Sheet4 والكائن Shape المعلن عليه في الكود والمسمى kh_num موجود في Sheet2 "رضد الترم الثاني" ولتصحيح عمل الكود يكفي استبدال -في الكود- الجزئية:

Set MyShap = Sheet4.Shapes("Kh_Num")

بالجزئية التالية:

Set MyShap = Sheet2.Shapes("Kh_Num")

والله أعلم

[ناصر سعيد]

الاخ الكريم بن عليه

ربنا يحفظك ويصونك يارب

بعد التجربه لاتعمل معي ... هل تم الفرز معك

[بن علية حاجي]

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

الفرز يعمل غير أنه يتم حسب الخلية AU12 (موجودة في الكود، وفيها خطأ من المفروض أن تكون AU6 وليس AU12) في الجزئية :

Range("data").Sort Range("AU12"), T

إذا أردت الفرز حسب "الفصل" (العمود 144) يجب التعديل على هذه الجزئية بتغيير الخلية AU12 بالخلية EN6 (عمود الفصول) فتصبح الجزئية بالشكل التالي:

Range("data").Sort Range("EN6"), T

والله أعلم

 

[ناصر سعيد]

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

استاذ بن عليه

هل هذا التصرف يحتاج الى اضافه او حذف

Sub KH_Sort()
On Error Resume Next

''هذا الكود للعالم العلامه والبحر الفهامه عبد الله باقشير حفظه الله
''فرز بيانات الطلاب بمعيار الفصل   الهدف من الكود
Dim Add As Worksheet
Dim MyShap As Shape
Dim T As Integer
Set Add = Sheets("رصد الترم الثانى") 'اسم صفحة فرز البيانات
Set MyShap = Add.Shapes("Kh_Num")
If MyShap.ControlFormat.Value = 1 Then T = 2 Else T = 1
    Range("Data").Sort Range("EN7"), T
End Sub


  

مامعنى هذا السطر

If MyShap.ControlFormat.Value = 1 Then T = 2 Else T = 1

 

[بن علية حاجي]

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

أخي العزيز، التعديلات التي قمت بها في الكود مقبولة... بالنسبة للشرح الذي طلبته، أعتقد أن هذا الأمر يقوم بإعطاء القيمة 2 للمتغير T (للترتيب التنازلي) عندما يكون الكائن Shape ممكنا (MyShap.ControlFormat.Value = 1)، ويعطيه (المتغير T) القيمة 1 (للترتيب التصاعدي) عندما يكون الكائن Shape غير ممكن (عند عدم توفر الشرط : MyShap.ControlFormat.Value = 1)...

والله أعلم

[ناصر سعيد]

حفظك الله ورعاك استاذ بن عليه