تحريك الماوس إلى خلية معينة

[Medo ana]

الرجاء المساعدة في كيفية عمل كود لتحريك الماوس إلى خلية معينة بعد الانتهاء من تنفيذ كود معين  لوضعه فى نهاية الكود الذى اعمل به ولكم جزيل الشكر

انتبه من فضلك وتأكد عند كتابة التاء المربوطة على الا تكون هاء 

[أ / محمد صالح]

هل تقصد نقل التركيز ؟ يعني المستطيل الغامق حول الخلية النشطة

أم فعلا تقصد سهم مؤشر الفارة بغض النظر عن الخلية المحددة

إذا كان المقصود الأول فيمكنك استعمال

Range("a1").select

حيث a1 هي الخلية المراد الانتقال إليها

[Medo ana]

اقصد سهم مؤشر الفأرة إلى خليه يتم تحديدها فى الكود 

[أ / محمد صالح]

الموضوع ممكن باستخدام دوال الويندوز

لكن إذا سمحت لي ما الفائدة العملية من إجراء مثل هذا؟

نقل مؤشر الفارة فوق خلية معينة

[Medo ana]

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

اتذكر انى قمت بمشاهده فيديو عن هذا الموضوع قام الشارح باستخدام جملة setfocus فى الكود ولكن غير قادر على عمل الكود 

[lionheart]

Sub Test()
    Dim r As Range
    Set r = Range("A1")
    r.Select
    SendKeys "{F2}", True
    DoEvents
    SendKeys "{LEFT " & CStr(Len(r.Value)) & "}", True
    DoEvents
End Sub

 

[Medo ana]

جزاكم الله عنا خيرا ونفعنا وامتعنا بعلمكم الغزير وجعله فى ميزان حسناتكم 

[أ / محمد صالح]

أخي الكريم بالنسبة لموضوع الاستعداد للكتابة فتحديد الخلية المشار إليها سابقا مني تكفي

وبالنسبة لموضوع setfocus أو focus فهذه تستخدم مع عناصر التحكم في النموذج 

وليس مع الخلايا في الشيت

[lionheart]

I completely agree with Mr. Mohamed

Just select is enough or you can use

Application.GoTo Range("A1"), True

 

[Medo ana]

@أ / محمد صالح

@lionheart

اتقدم بخالص الشكر والتقدير لشخصكم الكريم 

دمتم فى خير ونفعنا الله بعلمك وجعله في ميزان حسناتكم

[أ / محمد صالح]

آمين ولك مثل ما دعوت وزيادة