كود تلوين صف نشط

[أبوحازم]

السلام عليكم ورحمة الله وبركاتة . هذا الملف المرفق هو تلوين صف نشط . أولا يوجد أهتزاز في الورقة عند المشى بالأسهم ياريت أن تجعلوه لي لا تهتز الورقة أثناء التحريك وثانيا أريد حماية الخلايا التي أنا أريدها علما أستخدمت الكود التالي ولا فائدة وشكرا جدا

ActiveSheet.Unprotect

ActiveSheet.Protect

23321.rar

[يحيى حسين]

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

 

أخي يوجد طريقة أبسط من إستخدام الكود و هي بإستخدام التنسيق الشرطي 

 

قم بتحديد الجدول الذي ترغب في تطبي التنسيق عليه 

ثمن قم بوضع المعادلة التالية في التنسيق الشرطي 

=CELL("row")=ROW()

و من ثم اضغط رايت كليك على اسم الشيت و اختر 

view code 

و ضع الكود التالي 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

[أبوحازم]

عفواعلى التأخير  أولا التنسيق الشرطي . الصفحة الرئسية ثم أنماط ثم تنسيق شرطي هل هكذ طريقة الذاهب أو لا

ثانيا الشيت التي أريدها فيها كود البحث بمجرد كتابة حرف كيف أسوي
 

[زاكي بوشلاغم]

اخي ممكن ان تشرح  لي  كيف  تعمل  الورقة  الثانية  في  ايكسل  ممكن  ان  تشرح  لي 

[زاكي بوشلاغم]

اخي  لم  تصلح  معي  ممكن شرح  بدقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

[الـعيدروس]

شرح الطريقة

تفضل المرفق

توضيح.rar

[زاكي بوشلاغم]

بارك الله فيك