انتقل إلى المحتوى الرئيسي

كيفية حذف جميع النطاقات المسماة بسرعة في Excel؟

بافتراض أنك قمت بإنشاء الكثير من النطاقات المسماة في المصنف الخاص بك ، ولكن الآن ، لا تحتاج إلى الأطروحات المسماة بعد الآن ، كيف يمكنك إزالة جميع النطاقات المسماة مرة واحدة في Excel؟


احذف جميع النطاقات المسماة بالانتقال إلى مدير الاسم

في مربع الحوار مدير الأسماء ، يمكنك إنشاء وتحرير وحذف النطاقات المسماة كما تريد. يرجى القيام بذلك على النحو التالي:

1. انتقل إلى مدير الاسم بالضغط المعادلة > مدير الاسم، انظر لقطة الشاشة:
نطاقات doc-delete-named1

2. في مدير الاسم الحوار ، اضغط تغير مفتاح لتحديد جميع النطاقات المسماة أو اضغط باستمرار على CTRL مفتاح لتحديد تلك التي لا تحتاج إليها ، انظر لقطة الشاشة:
نطاقات doc-delete-named1

3. ثم انقر فوق حذف في أعلى مربع الحوار ، وسيظهر مربع موجه لتذكيرك إذا كنت متأكدًا من حذف الأسماء.
نطاقات doc-delete-named1

4. ثم اضغط OK، تم حذف جميع النطاقات المسماة مرة واحدة.

نطاقات doc-delete-named4 -2 نطاقات doc-delete-named5

ابحث عن كافة النطاقات المسماة واستبدلها بمراجع الخلايا المقابلة في الصيغ

كوتولس ل إكسيل استبدال أسماء النطاقات الأداة المساعدة قادرة على معرفة جميع الصيغ التي تطبق نطاقات مسماة في نطاق محدد أو ورقة محددة أو جميع الأوراق بسهولة. والدور الأساسي لهذه الأداة المساعدة هو استبدال جميع النطاقات المسماة بمراجع الخلايا المقابلة في هذه الصيغ.


استبدال إعلان النطاق المسمى 1

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن

احذف كافة النطاقات المسماة برمز VBA

يمكن أن يساعدك رمز VBA القصير التالي أيضًا على إزالة جميع النطاقات المسماة في المصنف.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

رمز فبا: احذف جميع النطاقات المسماة في Excel

Sub DeleteNames()
'Update 20140314
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
    xName.Delete
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ستتم إزالة جميع الأسماء الموجودة في المصنف على الفور.


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (8)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
first if the excel extension is xls then convert it using excel to xlsx .then close excel. make a backup of your xlsx file. rename this backup extension to zip. under zip file there is a xl folder.under the xl folder there is a workbook.xml file. open it with xml notepad and delete defined names. or open it with notepad delete between <definednames> to </definednames>. and also delete this definednames parts too.then save this workbook.xml and drag drop inside zip files xl folder . then save it. and change the extension to xlsx file. open the file and press Ctrl+S. All defined names cleared with hidden ones.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
You should check if it is an internal protected name range like so
```
Sub DeleteNames()
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
If Split(xName.Name, ".")(0) <> "_xlfn" Then
xName.Delete
End If
Next
End Sub
```
This comment was minimized by the moderator on the site
This was an improved code from the prior. I had many names for which the delete button was dimmed out, wouldn't work, nor would the prior code. Yours removed all but one. Thank you!!
This comment was minimized by the moderator on the site

Sub DeleteNames()
    Dim xName As Name
    For Each xName In Application.ActiveWorkbook.Names
        If Split(xName.Name, ".")(0) <> "_xlfn" Then
            xName.Delete
        End If
    Next
End Sub
This comment was minimized by the moderator on the site
Run Time Error 7
out of memory
This comment was minimized by the moderator on the site
Hello, Murali
I have tested the code, it works well in my workbook.
Could you upload your workbook here, so that we can check where the problem is?

Thank you!
This comment was minimized by the moderator on the site
How about something a little more specific.

First Identify all unused named ranges, for review.

Second, macro to delete all unused named ranges.
This comment was minimized by the moderator on the site
When I try to run the above VBA Code, I get the following error:

Run-time error '1004'
The syntax of this name isn't correct.

Verify that the name:
- Starts with a letter or underscore
- Doesn't include a space or character that isn't allowed
- Doesn't conflict with an existing name in the workbook
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations