مشكلة في كود الفرز 2003

[ابوصلاح]

ما المشكلة في كود الفرز

تم تسجيل كود فرز علي المرفق  - اكسل 2003-

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

بمساعدتي لكن عندما نقلت الملف علي اوفيس 2003 يظهر رسالة خطا

وقمت بتسجيله علي اوفيس 2003  وايضا نفس المشكلة

ارجو المساعدة وشكرا

كود فرز.rar

[أم عبد الله]

الأستاذ / أبو صلاح

 

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

 

 تم تسجيل ماكرو جديد وتم عمل ملفان إحداهما بزر والآخر بدون.

كود فرز1.rar

كود فرز2.rar

[أم عبد الله]

الأستاذ / أبو صلاح

 

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

 

 تم التعديل على الكود المرسل من حضرتك وكانت المشكلة في دمج الخلايا لحساب السن في اول اكتوبر .

كود فرز3.rar

كود فرز4.rar

[محمد الورفلي1]

السلام عليكم

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

تم تعديل سبتمبر 8, 2014 بواسطه محمد الخازمي

[أم عبد الله]

الأستاذ / محمد الخازمي

 

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

 

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

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

تم تعديل سبتمبر 9, 2014 بواسطه أم عبد الله

[محمد الورفلي1]

عليكم السلام 

 

الاخت الفاضلة بارك الله فيك على الاهتمام انا اقصد خاصية الكود في حد ذاته   فيم يخص هذه الاسطر ActiveWindow.ScrollRow = 51

 

   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("J8:J67

 

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

 

ملاحظة  هذا شرح للاخ علي بارك الله فيه لااحد الاكواد 

 

'هذا الكود يستخدم في حالة إذا كانت اول خليه في العمود بها اسم هذا العمود مثل الفصل .... التاريخ
'
'أخوكم في الله : علي المصري
'

'هذا الكود يستخدم في حالة إذا كانت اول خليه في العمود بها اسم هذا العمود مثل الفصل .... التاريخ
'
'أخوكم في الله : علي المصري
'

Private Sub Worksheet_Activate()
Dim MyRange As Range
Dim myCell As Range

Set MyRange = Range("G:G")           'هذا السطر يكتب به العمود المراد ابجدته
Set myCell = Range("G1")           '  هذا السطر تكتب به الخليه التي بها عنوان العمود

MyRange.Sort Key1:=myCell, Order1:=xlAscending, Header:=xlYes
End Sub

الكود الثاني إذا كان العمود لا يحتوي راس له

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

 

الكود وترجمة او توضيح للمعني بالعربي

Sub Farz()
'
'
' farz ماكرو
'

'
    Range("B8:Q67").Select
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 1
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("J8:J67") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D8:D67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I8:I67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("H8:H67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("G8:G67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B8:Q67")
        .Header = xlGuess
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

تم تعديل سبتمبر 9, 2014 بواسطه محمد الخازمي

[ابوصلاح]

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