Vba: كيفية الرجوع إلى نطاق مسمى

للإشارة إلى نطاق مسمى في VBA، ما عليك سوى استخدام الدالة Range() مع النطاق المسمى المحاط بعلامات اقتباس مزدوجة.

على سبيل المثال، يمكنك إنشاء الماكرو التالي لتعيين القيمة “فريق” لكل قيمة في النطاق المسمى الذي يسمى الفرق :

 SubModifyNamedRange ()
 
Range("teams").Value = "Team"

End Sub

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية الإشارة إلى نطاق مسمى باستخدام VBA

لنفترض أن لدينا نطاقًا مسمىًا يسمى Teams يمثل النطاق A2:A11 في ورقة معينة في Excel:

يمكننا إنشاء الماكرو التالي لتعيين قيمة نصية “فريق” لكل خلية في هذا النطاق المسمى:

 SubModifyNamedRange ()

Range("teams").Value = "Team"

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن كل خلية في النطاق المسمى لدينا تحتوي الآن على “فريق” بدلاً من اسم الفريق الأصلي.

يمكننا أيضًا استخدام الماكرو التالي لتعيين قيمة عددية 100 لكل خلية في نطاق الفرق المسماة:

 SubModifyNamedRange ()

Range("teams").Value = 100

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

أو يمكننا حتى استخدام الماكرو التالي لجعل كل خلية في فرق النطاق المسماة تحتوي على خط غامق ولون خلفية أخضر:

 SubModifyNamedRange ()

Range("teams").Interior.Color = vbGreen
Range("teams").Font.Bold = True

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

تحتوي كل خلية مسماة لفرق الشاطئ الآن على خط غامق ولون خلفية أخضر.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية حذف نطاق مسمى
فبا: كيفية نسخ الخطوط المرئية إلى ورقة أخرى
VBA: نسخ الصفوف إلى ورقة أخرى بناءً على المعايير