البحث في الموقع

السلام عليكم ورحمة الله وبركاته اخوانى اعضاء اوفيسنا هذا الكود مسبب بطء فى الملف وعند البدء فى التشغيل لعلى اجد اختصار له لتسريع الامر باستخدام ARRAY مثلا اليكم الملف للتعديل Sub autofiltr() ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول1").Sort.SortFields.Add _ Key:=Range("الجدول1[[#All],[القاهرة]]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول1").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول2").Sort.SortFields.Add _ Key:=Range("الجدول2[[#All],[اسيوط ]]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول2").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول3").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول3").Sort.SortFields.Add _ Key:=Range("الجدول3[[#All],[المنيا]]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول3").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول4").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول4").Sort.SortFields.Add _ Key:=Range("الجدول4[[#All],[قنا]]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول4").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول5").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول5").Sort.SortFields.Add _ Key:=Range("الجدول5[[#All],[اسوان]]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول5").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub array.rar