هل يمكن تغيير لون الخانة المحددة ؟

[mahasenoo]

السلام عليكم

اولا اشكر القائمين على هذا المنتدى المميز
والذي وجدت فيه كل جديد

 

هذا اول موضوع لي هنا

سؤالي :
هل يمكن تغيير لون الخانة المختارة؟
بسبب ضعف نظري وكثرة الاعمدة والصفوف اجد تشتتا في تذكر الخانة التي توقفت عليها

فهل يمكن تغيير لون تلك الخانة بلون مميز ؟


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

[مختار حسين محمود]

أهلا بك يا أيها العضو الجديد

ضع الكود فى حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
         Cells.Interior.ColorIndex = 0
         Target.Interior.ColorIndex = 7
    Application.ScreenUpdating = True
End Sub

الرقم 0 يدل على عدم تلوين خلايا الشيت

الرقم 7 يدل على لون الخلية المحددة   يمكنك تغيره      تحياتى

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

أخي العزيز مختار حسين

جزيت خيراً على مشاركتك الجميلة

الكودالمقدم سيؤثر سلباً على الخلايا الملونة في ورقة العمل ...

إليك طريقة أخرى مشروحة بالتفصيل على الرابط التالي

الرابط من هنا

[مختار حسين محمود]

أشكرك أخى ياسر

بالفعل أخى بعد كتابة الكود تذكر ت ماذا لو كان هناك خلايا ملونة بالفعل

وظللت أفكر فى طريقة لارجاع اللون الاساسى للخلية قبل التحديد

الى أن وجدت مشاركتك السابقة  و أشكرك مرة تانية على الرابط 

المرفق تطبيق لكودك مع خالص تحياتى

Highlight ActiveCell Only Using C. F.rar

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

الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله

كلنا نتعلم من بعضنا البعض أخي وحبيبي مختار ، وكم تعلمت منك الكثير والكثير

وما زلت تبهرني بما تقدم ، فجزاك الله خير الجزاء

[سليم حاصبيا]

اثراءً للموضوع حل آخر

 

Color_cel Keeping The Origenal Color.rar

[مختار حسين محمود]

روعة  تسلم  أستاذ سليم

 

[قلم-الاكسل(عبدالعزيز)]

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

[mahasenoo]

بارك الله فيكم جميعا

جار التجربة ولي عودة

[mahasenoo]

ما ظبطتش معايا

وهل لازم اعمل الخطوات دي في كل مستند اكسل؟

[سليم حاصبيا]

40 دقائق مضت, mahasenoo said:

ما ظبطتش معايا

وهل لازم اعمل الخطوات دي في كل مستند اكسل؟

اكتب هذا الكود في حدث الصفحة(يعمل في كل الحالات)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Salim As Range

    If Not Salim Is Nothing Then Salim.FormatConditions.Delete
    Set Salim = Target
    With Salim.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
       .Interior.PatternColorIndex = xlAutomatic
       .Interior.ColorIndex = 6
    End With
End Sub

اليك الملف كنموذج

 

format _target keep the original.rar

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

طريقة جميلة أخي سليم

ولكن جربها مع الخلايا التي لها تنسيق شرطي .. وستعرف أين مكمن المشكلة؟

 

[mahasenoo]

15 ساعات مضت, سليم حاصبيا said:

اكتب هذا الكود في حدث الصفحة(يعمل في كل الحالات)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Salim As Range

    If Not Salim Is Nothing Then Salim.FormatConditions.Delete
    Set Salim = Target
    With Salim.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
       .Interior.PatternColorIndex = xlAutomatic
       .Interior.ColorIndex = 6
    End With
End Sub

اليك الملف كنموذج

 

format _target keep the original.rar

جزاك الله خير الجزاء يا عزيزي

هذا ما كنت انشده بالتحديد
بارك الله فيك وغفر لك 

تحياتي لك وشكرا لكل من ساهم في مساعدتي
 

للاسف

الطريقة نفعت مع اول ادخال للكود وكانت الخانة تظهر ملونة بالفعل

بعد اغلاق الملف واعادة فتحه مرة اخرى

تظل اخر خانة توقفت عليها ملونة....لكن عند التحريك لاي خانة اخرى تظل بنفس اللون الابيض الافتراضي

!!!

[سليم حاصبيا]

يجب ان تحفظ الملف بصيغة xlsm