كيفية استخدام activecell في vba في excel؟

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

استخدام خاصية الخلية النشطة

1. اكتب الكلمة الأساسية “ActiveCell”.
2. اكتب نقطة (.) للحصول على الخصائص والأساليب من القائمة.
3. حدد الخاصية أو الطريقة التي تريد استخدامها.
4. قم بتشغيل التعليمات البرمجية لتنفيذ النشاط على الخلية النشطة.

نقاط مهمة

• عند استخدام خاصية الخلية النشطة، يشير VBA إلى الخلية النشطة في الورقة النشطة للمصنف النشط ، بغض النظر عن عدد المصنفات المفتوحة في الوقت الحالي.
• ActiveCell هي في النهاية خلية تحتوي على جميع خصائص وأساليب الخلية العادية.

تنشيط خلية من النطاق المحدد

لتنشيط خلية باستخدام رمز VBA، يمكنك استخدام طريقة “التنشيط” وطريقة “التحديد” بطريقتين.

 Sub vba_activecell() 'select and entire range Range("A1:A10").Select 'select the cell A3 from the selected range Range("A3").Activate 'clears everything from the active cell ActiveCell.Clear End Sub

الكود أعلاه، أولاً، يحدد النطاق A1:A10، ثم يقوم بتنشيط الخلية A3 منها وفي النهاية، يمسح كل شيء من الخلية النشطة، أي A3.

القيمة المرجعة للخلية النشطة

يقوم التعليمة البرمجية التالية بإرجاع قيمة الخلية النشطة باستخدام مربع رسالة .

 MsgBox ActiveCell.Value

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

 Range("A1") = ActiveCell.Value

تعيين الخلية النشطة إلى متغير

يمكنك أيضًا تعيين الخلية النشطة إلى المتغير ، كما في المثال التالي.

 Sub vba_activecell() 'declares the variable as range Dim myCell As Range 'set active cell to the variable Set myCell = ActiveCell 'enter value in the active cell myCell.Value = Done End Sub

احصل على رقم الصف والعمود الخاص بـ ActiveCell

في الخلية النشطة، توجد خاصية صف وعمود يمكنك استخدامها للحصول على رقم الصف والعمود الخاص بالخلية النشطة.

 MsgBox ActiveCell.Row MsgBox ActiveCell.Column

الحصول على عنوان الخلية النشط

يمكنك استخدام خاصية العنوان للحصول على عنوان الخلية النشطة.

 MsgBox ActiveCell.Address

عند تشغيل الكود أعلاه، يظهر لك مربع رسالة بعنوان الخلية النشطة للورقة النشطة للمصنف النشط (كما ذكرت سابقًا).

الانتقال من الخلية النشطة باستخدام الإزاحة

باستخدام خاصية الإزاحة، يمكنك الانتقال إلى خلية تبعد عدة صفوف وأعمدة عن الخلية النشطة.

 ActiveCell.Offset(2, 2).Select

حدد نطاقًا في الخلية النشطة

ويمكنك أيضًا تحديد نطاق من الخلية النشطة.

 Range(ActiveCell.Offset(1, 1), ActiveCell.Offset(5, 5)).Select