بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'ماكرو ينفذ على أكذر من 80 شيت'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته أخواني الكران أرجوا أن تتحملوني في هذا المنتدى الشامج برجالاته ، فأخوكم مبتدء في الاكواد في الأكسل ولاول مرة استخدمها يوجد لدي ملف اكسل به أكثر من 100 ورقة عمل في بعض الاحيان وأريد أن احذف بعض الأعمدة والصفوف فبعد جهد وتعلم من كتابات أستاتيذي الكرام قمت بإنشاء هذا الكود Sub SS() Application.ScreenUpdating = False Range("A1:A7,A9:A11,A13:A19").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select Application.ScreenUpdating = True Application.ScreenUpdating = False Range("A1:B1").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireColumn.Delete Range("A1").Select Application.ScreenUpdating = True Application.ScreenUpdating = False For I = B To Z If I = Null Then Cells(I, 3).Value = "" End If Next I Range("B3:Z3").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireColumn.Delete Range("B3").Select Application.ScreenUpdating = True End Sub ولا أدري هل هو صحيح في الاصل أو لا ولكن عند تطبيقه قام بالعمل المراد ببالصورة المطلوبة ولكن المشكلة أني أقوم بفتح كل ورقة عمل وتطبيق الماكرو عليها ما اريده عند تنفيذ هذا الماكرو يقوم بالنتفيذ على جيمع أوراق العمل والسلام ختام
