ahmed00 قام بنشر أغسطس 22, 2011 مشاركة قام بنشر أغسطس 22, 2011 ارجو التكرم والتفكير معي هل هذا الكود يمكن تعديله بشكل يمسح اكثر من مساحة اي كلها ActiveWorkbook.Names("NEW1").Delete ActiveWorkbook.Names("NEW2").Delete بحيث تكون هكذا ActiveWorkbook.Names.Delete شكرا أخوكم احمد رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 23, 2011 مشاركة قام بنشر أغسطس 23, 2011 السلام عليكم يمكن التحايل علي ذلك بالكود التالي Sub DeleteNames() On Error Resume Next For i = 1 To 10 ActiveWorkbook.Names(1).Delete Next i End Sub هذا إذا كانت الأسماء في حدود عشرة ويمكنك طبعا زيادتها كما تشاء بتغيير الرقم 10 بالكود رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 23, 2011 مشاركة قام بنشر أغسطس 23, 2011 وللتخلص من مشكلة عدد الأسماء بالملف يمكن تغيير الرقم عشرة بعدد الأسماء الحقيقي كالتالي ActiveWorkbook.Names.Count ليصبح الكود Sub DeleteNames() On Error Resume Next For i = 1 To ActiveWorkbook.Names.Count ActiveWorkbook.Names(1).Delete Next i End Sub رابط هذا التعليق شارك More sharing options...
خالدو قام بنشر أغسطس 23, 2011 مشاركة قام بنشر أغسطس 23, 2011 السلام عليكم ورحمة الله وبركاته جرب التالي: Sub DeleteAllNames() Dim x% For x = ActiveWorkbook.Names.Count To 1 Step -1 Range(ActiveWorkbook.Names(x).Name).Name.Delete Next End Sub رابط هذا التعليق شارك More sharing options...
ahmed00 قام بنشر أغسطس 23, 2011 الكاتب مشاركة قام بنشر أغسطس 23, 2011 (معدل) شكرا علي الردود وكلها ما شاء الله جميلة بارك الله لكم في علمكم بس انا دخلت علي النت ووجدت الكود ده Dim NamedRange As Name For Each NamedRange In ActiveWorkbook.Names NamedRange.Delete Next NamedRange وشغال تمام شكرا أحمد تم تعديل أغسطس 23, 2011 بواسطه ahmed00 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.