كيفية استبدال أسماء النطاقات بالإشارات إلى الخلايا في Excel؟

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

استبدال أسماء النطاقات بالإشارات إلى الخلايا باستخدام كود VBA

استبدل أسماء النطاقات بالإشارات إلى الخلايا بسرعة وسهولة باستخدام Kutools لـ Excel

على سبيل المثال، في ورقة العمل هذه، سأسمي النطاق A2:A6 باسم saleprice، وأسمي B2 باسم discount، ثم استخدام كلا اسم النطاق في صيغة لحساب السعر الجديد. انظر لقطات الشاشة:

بعد اتباع الحيل السريعة، سيتم استبدال اسم النطاق بالإشارة إلى الخلية كما هو موضح أدناه:

استبدال أسماء النطاقات بالإشارات إلى الخلايا باستخدام كود VBA

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

1. حدد النطاق الذي يحتوي على الصيغ التي تريد استبدال أسمائها بالإشارات إلى الخلايا.

2. اضغط Alt + F11 لفتح نافذة جديدة لـ Microsoft Visual Basic for applications ستظهر، ثم انقر فوق Insert > Module، وقم بنسخ ولصق الكود التالي في الوحدة:

كود VBA: استبدال أسماء النطاقات بالإشارات المطلقة

Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
        End If
    Next
Next
End Sub

كود VBA: استبدال أسماء النطاقات بالإشارات النسبية

Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
        End If
    Next
Next
End Sub

3. ثم اضغط F5 لتشغيل الكود، سيظهر مربع حوار لتحديد نطاق للاستبدال. انظر لقطة الشاشة:

4. ثم انقر فوق موافق. وسيتم استبدال جميع أسماء النطاقات في الصيغ المحددة.

استبدل أسماء النطاقات بالإشارات إلى الخلايا بسرعة وسهولة باستخدام Kutools لـ Excel

بينما يمكن أن يكون القيام بذلك يدويًا أو من خلال VBA أمرًا يستغرق وقتًا طويلًا وعرضة للأخطاء، فإن Kutools لـ Excel يقدم حلاً بنقرة واحدة لتبسيط العملية بالكامل. إذا كنت تستخدم Kutools لـ Excel، فإن أداة تحويل الاسم إلى نطاق المرجعي ستساعدك على استبدال أسماء النطاقات بالإشارات إلى الخلايا بسرعة وسهولة.

1. يرجى تطبيق هذه الأداة عن طريق النقر فوق Kutools > أدوات الاسم > تحويل الاسم إلى نطاق المرجعي.

2. سيظهر مربع حوار، انقر فوق تبويب النطاق ثم حدد النطاق الذي تريد استبداله بالإشارات إلى الخلايا من النطاق الأساسي. بعد ذلك، انقر فوق زر الاستبدال. انظر لقطة الشاشة:

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

🔚 الخاتمة

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

• بالنسبة للمستخدمين المتقدمين، توفر VBA حلًا مرنًا وقابلًا للبرمجة لأتمتة عملية الاستبدال.
• بالنسبة للجميع، يقدم Kutools لـ Excel أسرع وأسهل طريقة لإكمال المهمة بنقرات قليلة - دون الحاجة إلى كتابة شفرة أو تعديل الصيغ.

من خلال اختيار الطريقة الأنسب لسير عملك، يمكنك تنظيف صيغك بفعالية وضمان بقاء جداول البيانات الخاصة بك سهلة الفهم والصيانة. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، فإن موقعنا يقدم آلاف الدروس لمساعدتك على إتقان Excel.

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

تغيير مرجع الخلية في الصيغ إلى أسماء النطاقات في Excel