طلب مساعدة تكست بوكس

[جمال احمد محمود]

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

تم تعديل أبريل 30, 2017 بواسطه جمال احمد محمود

[ياسر خليل أبو البراء]

السلام عليكم

جرب الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Activate()
    ActiveSheet.TextBox1.Activate
End Sub

 

[جمال احمد محمود]

متشكر جدا الكود يعمل بكفاءة

تم تعديل أبريل 30, 2017 بواسطه جمال احمد محمود

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي