لماذا بطيء عملية الفرز؟

[عبدالعزيز محمد]

السلام عليكم 

اخواني في المنتدى الغالي بارك الله في الجميع ومتعهم بالصحة والعافية

في المرفق في الشيت رقم-2- نجد كود يقوم بالفرز بأكثر من شرط حسبما يريد المستخدم بل يمكن استخدام ثلاثة شروط-النوع-الصف-الفصل-

ولكن بعد عملية البحث والفرز وعند ارجاع كافة البيانات نجد أن الكود بطيء جدا أنظر للخلية A1 ستجدها تعد بالصف وتستغرق وقت طويل وكأنها تعد الصفوف عداً وبالتجربة ستضح المشكلة 

فهل من حل لبطيء عملية البحث والفرز ؟

Aziz_01.rar

[احمدزمان]

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

جرب اضافة خاصية منع تحديث الشاشة اثناء عمل الكود

كما يلي

Sub Filter_me()

Rem========ÊÕÝíÉ ÌÏæá ÈÔÑØíä
Application.ScreenUpdating = False
    Range("xfB1") = "ÇáÕÝ"
    Range("xfB2") = Range("i1")
        Range("xfC1") = "ÇáÌäÓ"
    Range("xfC2") = Range("H1")
    Range("xfD1") = "ÇáÝÕá"
    Range("xfD2") = Range("J1")
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Range("a2:L500").AdvancedFilter xlFilterInPlace, Range("xfB1:xfD2")
    Range("xfB1:xfD2") = vbNullString
    ThisWorkbook.Save
Rem========
Application.ScreenUpdating = True
End Sub

 

[احمدزمان]

او جرب هذا الكوود

الذي يؤدي نفس الغرض

Sub macro1()
'
Dim JNS, SAF, FSL
Dim RN1 As Range
Set RN1 = Range("A2:O555")
JNS = Range("H1").Text
SAF = Range("I1").Text
FSL = Range("J1").Text
Application.ScreenUpdating = False
If JNS = "" Then
RN1.AutoFilter Field:=8
Else
RN1.AutoFilter Field:=8, Criteria1:=JNS
End If
If SAF = "" Then
RN1.AutoFilter Field:=9
Else
RN1.AutoFilter Field:=9, Criteria1:=SAF
End If
If FSL = "" Then
RN1.AutoFilter Field:=10
Else
RN1.AutoFilter Field:=10, Criteria1:=FSL
End If
Application.ScreenUpdating = True
End Sub

 

[عبدالعزيز محمد]

السلام عليكم 

مشكو أخي 

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

[احمدزمان]

و عليكم السلام

استبدل الكوود السابق بالكوود الجديد

[عبدالعزيز محمد]

مازال بطيء ولكنه اسرع من السابق بقليل

[عبدالله الصاري]

السلام عليكم

السبب اخي الفاضل كثرة المعادلات , استخدم كود بدل المعادلات وسيصبح الفرز سريعا

[عبدالله الصاري]

تم تحويل المعادلات الى اكواد كود للسيد الفاضل عبدالله باقشير  حفظه الله

اضغط زر استدعاء بيانات مرة واحدة ربما يأخد ثواني ثم جرب الفرز

تحياتي

Aziz_011.rar