كيفية تحديد النطاقات باستخدام Visual Basic for Applications (أمثلة مبتدئة)

أمثلة حول كيفية تحديد الخلايا يدويا

لتحديد كل البيانات الموجودة في عمود يدويا، حدد الخلية الأولى، واضغط على CTRL+SHIFT+سهم لأسفل.

وبالمثل، لتحديد صف وكل الأعمدة المرفقة بالصف يدويا، اضغط على CTRL+SHIFT+سهم لأسفل+سهم لليمين. ومع ذلك، يجب أن تكون كل البيانات متجاورة (أي لا يمكن أن يكون لديك صفوف أو أعمدة فارغة). يمكنك أيضا تحديد المنطقة الحالية للبيانات (البيانات المتجاورة بدون صفوف أو أعمدة فارغة) عن طريق القيام بما يلي:

1. في القائمة تحرير، انقر فوق الانتقال إلى.

2. في مربع الحوار الانتقال إلى، انقر فوق خاص.

3. في مربع الحوار الانتقال إلى خاص، انقر فوق المنطقة الحالية، ثم انقر فوقOK
   .

يمكنك أيضا تحديد هذا النطاق باستخدام التعليمات البرمجية Visual Basic for Applications بسيطة.

ملاحظة إذا حاولت تسجيل هذا الإجراء باستخدام مسجل الماكرو، لن تتلقى النتائج نفسها.

أمثلة حول كيفية استخدام التعليمات البرمجية Visual Basic لتحديد الخلايا في نطاق

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

إذا كنت تعرف الخلية الأولى (في هذا المثال، الخلية الأولى هي الخلية C1)، وتريد تحديد الخلية الأخيرة (في العمود نفسه) التي تتضمن بيانات ولكن لا تعرف ذلك العنوان، فاستخدم التعليمة البرمجية التالية:

   Sub SelectRangeDown()
      Range("c1", Range("c1").End(xlDown)).Select
   End Sub

ملاحظة يفترض الماكرو SelectRangeDown أن بياناتك متجاورة. وإلا، إذا كانت هناك خلايا فارغة في عمود البيانات التي تقوم بتحديدها، فقد لا يؤدي هذا الماكرو إلى تحديد كافة الخلايا في العمود.

إذا بدأت بياناتك في الخلية C1، ولكنها غير متجاورة في ذلك العمود، فاستخدم الماكرو التالي في Microsoft Office Excel 2003 وفي الإصدارات السابقة من Excel:

   Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c65536").End(xlUp)).Select
   End Sub

نظرا لأن Microsoft Office Excel 2007 يدعم 1048576 صفا، استخدم الماكرو التالي في Excel 2007:

 Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c1048576").End(xlUp)).Select
   End Sub

إذا كنت تريد تحديد من الخلية النشطة لأسفل وكل الأعمدة إلى اليمين (بافتراض البيانات المتجاورة في كل الصفوف والأعمدة)، فاستخدم التعليمة البرمجية التالية:

   Sub myrangearea()
      Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select
   End Sub

إذا كنت تعرف خلية البداية (في نموذج التعليمات البرمجية هذا، تكون خلية البداية D1)، وتريد تحديد أسفل العمود ونزولا إلى اليمين، فاستخدم التعليمة البرمجية التالية:

   Sub RangeFromStart()
      Range("d1", Range("d1").End(xlDown).End(xlToRight)).Select
   End Sub

لتحديد كل البيانات في المنطقة الحالية، استخدم التعليمات البرمجية التالية:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

توضح لك الأمثلة المضمنة في هذه المقالة كيفية تحديد نطاقات مختلفة على ورقة العمل النشطة في المصنف الحالي.

للحصول على معلومات إضافية حول كيفية تحديد نطاقات ذات Visual Basic for Applications (وأمثلة أكثر تقدما)، انقر فوق رقم المقالة التالية لعرض المقالة في قاعدة معارف Microsoft:

291308 كيفية تحديد الخلايا/النطاقات باستخدام Visual Basic في Excel