كيفية إعادة تسمية مجموعة من أسماء النطاقات دفعة واحدة في Excel؟
إعادة تسمية اسم نطاق أمر سهل وغالبًا ما نستخدمه في عملنا اليومي على Excel، لكن إعادة تسمية عدة نطاقات دفعة واحدة قد يكون أمرًا معقدًا. في هذه المقالة، سأقدم لك كود ماكرو لتنفيذ إعادة التسمية الجماعية بسرعة لأسماء النطاقات المتعددة في Excel.
إعادة تسمية أسماء النطاقات باستخدام كود الماكرو
إعادة تسمية أسماء النطاقات باستخدام كود الماكرو
لنفترض أن هناك عدة أسماء نطاقات في مصنف كما هو موضح في لقطة الشاشة أدناه، الآن سأقوم بإعادة تسميتها بإضافة بادئة.
1. اضغط Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications وانقر على إدراج > وحدة. انظر لقطة الشاشة:
2. الصق الكود أدناه في نص الوحدة، واضغط على F5 لتشغيل الكود.
VBA: إعادة تسمية أسماء النطاقات
Sub RenameCells()
Dim n As Name
For Each n In ThisWorkbook.Names
n.Name = "KUTOOLS_" & n.Name
Next n
End Sub
ثم يتم إعادة تسمية جميع أسماء النطاقات بإضافة البادئة المحددة. انظر لقطة الشاشة:
ملاحظة: في الكود أعلاه n.Name = "KUTOOLS_" & n.Name، يمكنك تغيير KUTOOLS إلى سلسلة أخرى حسب الحاجة.
نصيحة.إذا كنت تريد إعادة تسمية عدة أوراق عمل بسرعة، يرجى تجربة استخدام Kutools لـ Excel’s إعادة تسمية ورقات العمل بالجملة الميزة كما هو موضح في لقطة الشاشة أدناه. تعمل بشكل كامل بدون قيود لمدة 60 يومًا، يرجى تنزيلها وتجربتها مجانًا الآن.
![]() | ||
![]() | ||
![]() | ![]() | ![]() |
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد