كيف يمكنني الوصول إلى الخلايا المجاورة في ورقة العمل باستخدام VBA؟
يمكنك الوصول إلى الخلايا المجاورة في ورقة
العمل باستخدام VBA
باستخدام خاصية `Offset`
للكائن Range. تُستخدم هذه الخاصية
لتحديد خلية محددة بناءً على التحرك النسبي للخلية الحالية.
فيما يلي بعض الأمثلة لاستخدام الخاصية `Offset` للوصول إلى الخلايا
المجاورة:
1.
الخلية المجاورة أعلى الخلية الحالية:
Dim currentCell As Range
Set currentCell = Range("A1") 'الخلية الحالية
Dim adjacentCellAbove As Range
Set adjacentCellAbove = currentCell.Offset(-1, 0)
'الخلية المجاورة أعلى الخلية الحالية
2.
الخلية المجاورة أسفل الخلية الحالية:
Dim currentCell As Range
Set currentCell = Range("A1") 'الخلية الحالية
Dim adjacentCellBelow As Range
Set adjacentCellBelow = currentCell.Offset(1, 0)
'الخلية المجاورة أسفل الخلية الحالية
3.
الخلية المجاورة على الجانب الأيمن للخلية الحالية:
Dim currentCell As Range
Set currentCell = Range("A1")
'الخلية الحالية
Dim adjacentCellToRight As Range
Set adjacentCellToRight = currentCell.Offset(0, 1)
'الخلية المجاورة على الجانب الأيمن للخلية الحالية
4.
الخلية المجاورة على الجانب الأيسر للخلية الحالية:
Dim currentCell As Range
Set currentCell = Range("B1")
'الخلية الحالية
Dim adjacentCellToLeft As Range
Set adjacentCellToLeft = currentCell.Offset(0, -1)
'الخلية المجاورة على الجانب الأيسر للخلية الحالية
باستخدام الخاصية `Offset`،
يمكنك تعديل القيم الأولية (-1، 0) أو (1، 0) أو (0، 1) أو (0، -1) للوصول إلى
الخلايا المجاورة في الاتجاهات الأعلى والأسفل واليمين واليسار على التوالي.
تذكر أنه يمكنك استخدام الكائن `Range` للوصول إلى الخلية
الأصلية والكائن `Offset`
للوصول إلى الخلية المجاورة. يمكنك تغيير النطاقات والخلايا وفقًا لاحتياجاتك في
الأمثلة المذكورة أعلاه.