تحديد الخلايا و النطاقات


تحديد الخلايا و النطاقات فى نفس ورقة العمل


ملحوظة
يمكنك استبدال كلمة Select فى كل الامثلة التالية بكلمة Value و ذلك لتعيين قيمة للخلية او النطاق
سيتم تعيين النص yasser للخلية A2 فى المثال التالى
Range("A2").Value ="yasser"



تحديد خلية واحدة فقط
Range("A2").Select
Cells(2, 1).Select
يتم التحديد او اختيار الخلية عن طريقين range او Cell
فى حالة ال cell يكون رقم الصف الاول ثم رقم العمود



معرفة اسم الخلية المحددة
MsgBox(ActiveCell.address)
يتم اظهار عنوان الخلية المحددة فى صندوق رسائل



تحديد مجموعة من الخلايا باستخدام VBA
Range("A1:C5").Select
هنا يتم تحديد النطاق من الخلية A1 و حتى الخلية C5 بالكامل



اسم النطاق المحدد
Range("A1:C5").Select
MsgBox(Selection.address)
فى السطر الاول يتم تحديد نطاق من A1 حتى C5
فى السطر الثانى يتم اظهار اسم النطاق فى صندوق الرسائل



تحديد نطاقًا من الخلايا غير المتجاورة باستخدام VBA
Range("A1, C1, E1").Select
او
Range("A1:A9, B11:B18").Select
هنا يتم تحديد خلايا غير متجاورة او نطاقات غير متجاورة ففى المثال الاول يتم تحديد الخلايا A1و C1 و E1
اما فى المثال التانى يتم تحديد نطاقين من A1 الى A9 و ايضا من B11 الى B18



حدد كل الخلايا في ورقة عمل
Cells.Select
هنا يتم تحديد كل الخلايا فى ورقة العمل



تحديد صف بالكامل
Rows(1).Select
هنا يتم تحديد الصف رقم واحد (اول صف )



تحديد عمود بالكامل
Columns(3).Select
هنا يتم تحديد العمود رقم 3 اى العمود C



حدد آخر خلية غير فارغة في عمود
Range("A1").End(xlDown).Select
هنا يتم تحديد اخر خلية غير فارغة فى العمود A فى النطاق الحالى CurrentRegion



حدد آخر خلية غير فارغة فى صف معين
Range("A1").End(xlToRight).Select
هنا يتم تحديد اخر خلية غير فارغة فى الصف الاول فى النطاق الحالى CurrentRegion



حدد النطاق الحالى في VBA
Range("A1").CurrentRegion.Select
هنا يتم تحديد النطاق الحالى اى المتمركز حول الخلية A1



تحديد خلية متعلقة بخلية أخرى
Range("A1").Offset(1, 1).Select
هنا يتم تحديد الخلية A1 ثم يتم عمل ازاحة مقدارها 1 صف و 1 عمود



تحديد خلية في ورقة عمل أخرى
Worksheets("Sheet5").Activate
Range("A1").Select
هنا يتم تحديد الخلية A1 و لكن فى ورقة العمل Sheet5
و لاحظ انها لابد ان تكون ورقة عمل مختلفة عن الورقة الحالية التى انا موجود بها الان



تحديد خلية في كتاب عمل اخر
Workbooks("student.xlsx").Activate
Worksheets("Sheet5").Activate
Range("A1").Select
هنا يتم تحديد خلية فى كتاب عمل اخر و لكن بشرطين ان يكون كتاب العمل مفتوح اولا
و الشرط الثانى ان يكون كتاب العمل فى نفس المجلد الخاص بكتاب العمل الحالى



تحديد خلية في كتاب عمل اخر غير مفتوح مسبقا
Workbooks.Open "student.xlsx"
Workbooks("student.xlsx").Activate
Worksheets("Sheet5").Activate
Range("A1").Select
هنا يتم تحديد خلية فى كتاب عمل اخر غير مفتوح مسبقا و لكن بشرط ان يكون فى نفس مجلد الملف الحالى



تحديد خلية في كتاب عمل اخر و فى مجلد اخر
Workbooks("C:\Users\yaser\Desktop\student.xlsx").Activate
Worksheets("Sheet5").Activate
Range("A1").Select
هنا يتم تحديد خلية فى كتاب عمل اخر و مجلد اخر لكن بشرط ان يكون كتاب العمل مفتوح اولا



تحديد خلية في كتاب عمل اخر غير مفتوح مسبقا
Workbooks.Open "C:\Users\yaser\Desktop\student.xlsx"
Workbooks("C:\Users\yaser\Desktop\student.xlsx").Activate
Worksheets("Sheet5").Activate
Range("A1").Select
هنا يتم تحديد خلية فى كتاب عمل اخر و فى مجلد اخر و غير مفتوح مسبقا



التعامل مع الكائن المحدد
Sub FormatSelection()
Range("A1:C3").Select
Selection.Font.Name = "Arial"
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Interior.Color = vbGreen
End Sub
هنا تم تحديد النطاق من A1 الى C3 ثم تم تغيير تنسيق الخط و تغيير لون الخلفية للخلايا المحدده