بسم الله الرحمن الرحيم
هل توجد طريقه أو كود يغير لون الخلفية للخلية النشطة بمجرد أن يتم الضغط على الخلية وتنشيطها و اذا انتقل الى خليه اخرى يعاد اللون الافتراضي للخليه ؟
===
تغير الخلية النشطة في أكسل
مغلق
أخوي فيصل ، السلام عليكم و رحمة الله و بركاته ،،،
أنا كتبت كود VBA في إكسل يسوي اللي انت تسأل عنه، وجربته تجربة بسيطة و ماكان فيه أي مشاكل.
1- اضغط بالزر الأيمن للماوس على الـSheet1 مثلا، واختر View Code.
2- قم بتعريف متغيرين كالتالي:
Private objCurrentCell As Range Private OrigColorIdx As Long
3- من القائمة المنسدلة اللي فوق على اليسار اختر Worksheet، تلقائياً سيتم اختيار SelectionChange من القائمة اللي بجنبها على اليمين، أو قم باختيارها بنفسك.
4- داخل الاجراء Worksheet_SelectionChange اكتب الكود التالي:
Application.EnableEvents = False If objCurrentCell Is Nothing Then Set objCurrentCell = Target OrigColorIdx = Target.Interior.ColorIndex Target.Interior.ColorIndex = 25 Else objCurrentCell.Interior.ColorIndex = OrigColorIdx Set objCurrentCell = Target OrigColorIdx = Target.Interior.ColorIndex Target.Interior.ColorIndex = 25 End If Application.EnableEvents = True
5- الآن ارجع للـSheet وجرب بنفسك.
6- الملف المرفق يحتوي على الكود أعلاه.
بسم الله الرحمن الرحيم
وعليكم السلام والرحمه
بارك الله فيك
عمل جيد
هناك خطأ بسيط في الكود
شرح المطلوب في الملف المرفق
بسم الله الرحمن الرحيم
بارك الله فيك اخي الكريم
تمت الإجابة
100 / 100
===
شكررررررررررررررررراا
شكرا على المعلومات المفيده
ولكن لى سؤال
ما فائده هذا الكود فى البدايه
Application.EnableEvents = False
ثم عكسه فى النهايه
Application.EnableEvents = True
هذا الموضوع مغلق.