هل يمكن تنفيذ ماكرو عند بمجرد انتقال المؤشر من خلية الى اخرى؟

[affan]

السلام عليكم ورحمة الله

هل يمكن تنفيذ ماكرو بمجرد انتقال المؤشر من خلية الى أخرى؟

[ميدو63]

يمكن تنفيذ ماكرو بمجرد انتقال المؤشر من خلية إلى أخرى في ورقة Excel باستخدام حدث تغيير الخلية (Worksheet_SelectionChange) والماكرو التالية:

1. افتح ورقة Excel التي ترغب في تنفيذ الماكرو فيها.
2. انقر بزر الماوس الأيمن على علامة التبويب للورقة التي ترغب في تنفيذ الماكرو فيها وحدد "عرض الشفرة" (View Code).
3. ستظهر نافذة "Microsoft Visual Basic for Applications" مع وحدة كائن الورقة المحددة.
4. في الجزء العلوي من النافذة، انقر فوق قائمة القوالب المنسدلة وحدد "Worksheet" ثم اختر "SelectionChange".
5. ستظهر دالة جديدة في وحدة الورقة المحددة.
6. ضمن الدالة، قم بكتابة رمز الماكرو الذي ترغب في تنفيذه عند تغيير تحديد الخلية.

مثال:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' قم بكتابة رمز الماكرو الذي ترغب في تنفيذه هنا
    ' مثال:
    MsgBox "تم تحديد خلية جديدة"
End Sub

7. بعد كتابة رمز الماكرو، احفظ التغييرات وأغلق نافذة "Microsoft Visual Basic for Applications".
8. عند الآن، سيتم تنفيذ الماكرو عند تغيير تحديد الخلية في الورقة المحددة.

 

لاتنسى حفظ الشيت بصيغة الماكرو

وعند   ' قم بكتابة رمز الماكرو الذي ترغب في تنفيذه هنا

ممكن تكتب استدعاء للكود بدلا من كتابة الكود فى الماكرو اعلاة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' قم بكتابة رمز الماكرو الذي ترغب في تنفيذه هنا او استدعاء كود اخر موجود
    ' مثال: 
    ' استدعاء ماكرو آخر باسم Test
    Call Test
End Sub