Note: The other languages of the website are Google-translated. Back to English

كيفية حذف جميع النطاقات المسماة بسرعة في 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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (6)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أحاول تشغيل كود فبا أعلاه ، أتلقى الخطأ التالي:

خطأ وقت التشغيل "1004"
صيغة هذا الاسم غير صحيحة.

تحقق من أن الاسم:
- يبدأ بحرف أو شرطة سفلية
- لا تحتوي على مسافة أو حرف غير مسموح به
- لا يتعارض مع اسم موجود في المصنف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا عن شيء أكثر تحديدًا.

حدد أولاً جميع النطاقات المسماة غير المستخدمة ، للمراجعة.

ثانيًا ، ماكرو لحذف كافة النطاقات المسماة غير المستخدمة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
خطأ وقت التشغيل 7
خارج الذاكرة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مورالي
لقد اختبرت الكود ، وهو يعمل بشكل جيد في كتابي.
هل يمكنك تحميل المصنف الخاص بك هنا ، حتى نتمكن من التحقق من مكان المشكلة؟

شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يجب عليك التحقق مما إذا كان نطاق اسم محمي داخليًا مثل ذلك
`` `
حذف الأسماء الفرعية ()
خافت xName كاسم
لكل xName في Application.ActiveWorkbook.Names
إذا انقسام (xName.Name، ".") (0) <> "_xlfn" ثم
xName.Delete
إنهاء حالة
التالى
نهاية الفرعية
`` `
تم تصغير هذا التعليق بواسطة المشرف على الموقع

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
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL