عبدالعزيز محمد قام بنشر أبريل 9, 2018 مشاركة قام بنشر أبريل 9, 2018 السلام عليكم اخواني في المنتدى الغالي بارك الله في الجميع ومتعهم بالصحة والعافية في المرفق في الشيت رقم-2- نجد كود يقوم بالفرز بأكثر من شرط حسبما يريد المستخدم بل يمكن استخدام ثلاثة شروط-النوع-الصف-الفصل- ولكن بعد عملية البحث والفرز وعند ارجاع كافة البيانات نجد أن الكود بطيء جدا أنظر للخلية A1 ستجدها تعد بالصف وتستغرق وقت طويل وكأنها تعد الصفوف عداً وبالتجربة ستضح المشكلة فهل من حل لبطيء عملية البحث والفرز ؟ Aziz_01.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 9, 2018 مشاركة قام بنشر أبريل 9, 2018 السلام عليكم و رحمة الله وبركاته جرب اضافة خاصية منع تحديث الشاشة اثناء عمل الكود كما يلي 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 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 9, 2018 مشاركة قام بنشر أبريل 9, 2018 او جرب هذا الكوود الذي يؤدي نفس الغرض 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 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر أبريل 10, 2018 الكاتب مشاركة قام بنشر أبريل 10, 2018 السلام عليكم مشكو أخي ولكن لم توضح أين أضع الكود بالتحديد حتى نرى النتيجة رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 10, 2018 مشاركة قام بنشر أبريل 10, 2018 و عليكم السلام استبدل الكوود السابق بالكوود الجديد رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر أبريل 11, 2018 الكاتب مشاركة قام بنشر أبريل 11, 2018 مازال بطيء ولكنه اسرع من السابق بقليل رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر أبريل 11, 2018 مشاركة قام بنشر أبريل 11, 2018 السلام عليكم السبب اخي الفاضل كثرة المعادلات , استخدم كود بدل المعادلات وسيصبح الفرز سريعا رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر أبريل 11, 2018 مشاركة قام بنشر أبريل 11, 2018 تم تحويل المعادلات الى اكواد كود للسيد الفاضل عبدالله باقشير حفظه الله اضغط زر استدعاء بيانات مرة واحدة ربما يأخد ثواني ثم جرب الفرز تحياتي Aziz_011.rar 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان