تصحيح كود ActiveWorkbook.Names.Delete

[ahmed00]

ارجو التكرم والتفكير معي

هل هذا الكود يمكن تعديله بشكل يمسح اكثر من مساحة اي كلها

ActiveWorkbook.Names("NEW1").Delete

ActiveWorkbook.Names("NEW2").Delete

بحيث تكون هكذا

ActiveWorkbook.Names.Delete

شكرا

أخوكم احمد

[طارق محمود]

السلام عليكم

يمكن التحايل علي ذلك بالكود التالي

Sub DeleteNames()

On Error Resume Next

For i = 1 To 10

ActiveWorkbook.Names(1).Delete

Next i

End Sub

هذا إذا كانت الأسماء في حدود عشرة

ويمكنك طبعا زيادتها كما تشاء بتغيير الرقم 10 بالكود

[طارق محمود]

وللتخلص من مشكلة عدد الأسماء بالملف

يمكن تغيير الرقم عشرة بعدد الأسماء الحقيقي كالتالي

ActiveWorkbook.Names.Count

ليصبح الكود

Sub DeleteNames()

On Error Resume Next

For i = 1 To ActiveWorkbook.Names.Count

ActiveWorkbook.Names(1).Delete

Next i

End Sub

[خالدو]

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

جرب التالي:

Sub DeleteAllNames()

Dim x%

For x = ActiveWorkbook.Names.Count To 1 Step -1

Range(ActiveWorkbook.Names(x).Name).Name.Delete

Next

End Sub

[ahmed00]

شكرا علي الردود وكلها ما شاء الله جميلة بارك الله لكم في علمكم

بس انا دخلت علي النت ووجدت الكود ده

Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names

NamedRange.Delete

Next NamedRange

وشغال تمام

شكرا

أحمد

تم تعديل أغسطس 23, 2011 بواسطه ahmed00