كيف يمكن استبدال اسم الخلية بمراجع الخلايا في Excel؟
عند العمل مع النطاقات ذات الأسماء في Excel، ستجد أنها تُحسّن قابلية قراءة الصيغ وتسهّل إدارتها. لكن قد ترغب أحيانًا في إزالة أسماء الخلايا واستبدالها بمراجع الخلايا الفعلية—خاصة عند مشاركة الملفات، أو استكشاف الأخطاء، أو توحيد القوالب. في هذه المقالة، سنستعرض طرقًا مختلفة لاستبدال النطاقات ذات الأسماء بمراجع الخلايا المقابلة لها في Excel.
استبدال اسم الخلية بمراجع الخلايا باستخدام كود VBA
استبدال اسم الخلية بمراجع الخلايا بسرعة وسهولة باستخدام Kutools لـ Excel
على سبيل المثال، في ورقة العمل هذه، سأقوم بتسمية النطاق A2:A6 باسمsaleprice، وتسمية الخلية B2 باسمdiscount، ثم استخدام اسمي النطاقين معًا في صيغة لحساب السعر الجديد. راجع لقطات الشاشة:
بعد اتباع الحيل السريعة، سيتم استبدال اسم الخلية بمراجع الخلايا كما هو موضح أدناه:
استبدال اسم الخلية بمراجع الخلايا باستخدام كود VBA
للحصول على استبدال أسماء الصيغ اسم الخلية بمراجع الخلايا باستخدام VBA، يمكنك اتباع الخطوات التالية خطوة بخطوة:
1. حدد النطاق الذي يحتوي على الصيغ التي ترغب في استبدال أسمائها بمراجع الخلايا.
2. اضغطAlt + F11 لفتح نافذة جديدة منMicrosoft Visual Basic for Applications، ثم انقرإدراج > وحدة نمطية (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 Sub3. بعد ذلك، اضغط على مفتاحF5 لتشغيل الكود، وستظهر نافذة حوار لتحديد النطاق المراد استبداله. راجع لقطة الشاشة:
4. ثم انقرموافق، وسيتم استبدال جميع أسماء الصيغ باسم الخلية المحددة.
استبدال اسم الخلية بمراجع الخلايا بسرعة وسهولة باستخدام Kutools لـ Excel
بينما قد يكون تنفيذ ذلك يدويًا أو عبر VBA أمرًا يستغرق وقتًا طويلًا وعرضةً للأخطاء، فإنKutools لـ Excelيوفّر لك حلاً بنقرة واحدة لتبسيط العملية بأكملها! إذا كنت تمتلكKutools لـ Excel، فستساعدك أداةتحويل الأسماء إلى نطاق الإشارةعلى استبدال أسماء الخلايا بمراجعها بسرعة وسهولة.
1. يُرجى تطبيق هذه الأداة بالنقر علىKutools > أدوات الاسم > تحويل الأسماء إلى نطاق الإشارة.
2. ستظهر نافذة حوار. انقر على علامة التبويبنطاق، ثم حدد النطاق الذي تريد استبداله بمراجع الخلايا منبناءً على النطاق، ثم انقر على زراستبدال. راجع لقطة الشاشة:
3. ستظهر نافذة أخرى تُبلغك بعدد الصيغ التي تم تعديلها وتلك التي لم يتم تغييرها. انقرموافق، وسيتم استبدال اسم الخلية في النطاق المحدد بمراجع الخلايا.
🔚 خاتمة
سواء كنت تعمل على بضع صيغ أو على ملف عمل كامل، يُعد استبدال النطاقات ذات الأسماء بمراجع الخلايا الفعلية وسيلة رائعة لتعزيز الشفافية والتوافق وسهولة التعاون.
- يوفّر VBA للمستخدمين المتقدمين حلاً مرنًا وقابلًا للبرمجة لأتمتة عملية الاستبدال.
- أما بالنسبة لجميع المستخدمين الآخرين، فإن Kutools لـ Excel يوفّر أسرع طريقة وأسهلها لإنجاز المهمة بنقرات قليلة فقط—دون الحاجة إلى كتابة أكواد أو تعديل صيغ.
باختيارك الطريقة الأنسب لسير عملك، يمكنك تنظيف صيغك بكفاءة والتأكد من بقاء جداولك سهلة الفهم والصيانة. وإذا كنت مهتمًّا باستكشاف المزيد من نصائح وحيل Excel، فإنموقعنا الإلكتروني يقدّم آلاف الدروس التعليمية لمساعدتك على إتقان Excel.
مقال ذو صلة:
تغيير مرجع الخلية في الصيغ إلى اسم الخلية في Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل