اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

الاخ الكريم /http://www.officena....showtopic=41520

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

 

كود لتلوين الخلية النشطة .rar

تم تعديل بواسطه حمادة عمر
رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / عزيز عرابي

 

بارك الله فيك

فكرة حلوة ... احسنت

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

رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / عزيز عرابي

 

بارك الله فيك

لقد سبقتك لفعل الخير هذه المرة اخي الكريم ...

ولا عليك اخي فكلنا هنا لنفيد بعضنا البعض

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

ولمن يبحثون عن مثل هذا الموضوع

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

رابط هذا التعليق
شارك

السلام عليكم و جمعة مباركة عليكم جميعاً

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

و الأجمل هو التسابق الى فعل الخيرات بارك الله جهودكم

لكن هناك مشكلة ان الكود يمنع تلوين الخلايا بالتنسيق؟ هل من حل

رابط هذا التعليق
شارك

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

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

الاخ العزيز عزيز عرابي جزاك الله خيرا  كود رائع وان شاء الله نرى منك المزيد من المشاركات

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

دمتم برعاية الله وحفظه

رابط هذا التعليق
شارك

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

مجهود متميز استاذ حمادة عمر

في ميزان حسناتك ان شاء الله

والشكر ايضا لك من مر على الموضوع

 

السلام عليكم و جمعة مباركة عليكم جميعاً

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

و الأجمل هو التسابق الى فعل الخيرات بارك الله جهودكم

لكن هناك مشكلة ان الكود يمنع تلوين الخلايا بالتنسيق؟ هل من حل

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

والكود يحتاج لتحسين ليتوافق اكثر مع الوان اكسل2007 و2010

في أمان الله

تلوين الخلية النشطة مع حفظ اللون السابق.rar

  • Thanks 1
رابط هذا التعليق
شارك

 

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

مجهود متميز استاذ حمادة عمر

في ميزان حسناتك ان شاء الله

 

السلام عليكم

الاستاذ القدير / الخالدي

بارك الله فيك

شهادة عظيمة وكبيرة جدا من استاذ كبير وقدير اعتز بها مدي حياتي

وكود جميل جدا وذو طابع خاص ... كما تعودنا منك دائما

لا تغير طريقك ابدا ... فلا تعرف الا طريق الابداع

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

رابط هذا التعليق
شارك

 

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

مجهود متميز استاذ حمادة عمر

في ميزان حسناتك ان شاء الله

والشكر ايضا لك من مر على الموضوع

 

السلام عليكم و جمعة مباركة عليكم جميعاً

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

و الأجمل هو التسابق الى فعل الخيرات بارك الله جهودكم

لكن هناك مشكلة ان الكود يمنع تلوين الخلايا بالتنسيق؟ هل من حل

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

والكود يحتاج لتحسين ليتوافق اكثر مع الوان اكسل2007 و2010

في أمان الله

 

اخي الكريم الخالدي اعزك المولى واكرمك

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

تقبل تحياتي و تقديري

رابط هذا التعليق
شارك

  • 3 weeks later...
  • 3 months later...

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

  • 1 year later...

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

هذه أول مشاركة لى بمنتداكم هذا واننى مبتدئ بالإكسيل وقد تصفحت صفحات المنتدى وقد استفدت منكم

وارجومن الأخوة الأعزاء أعزكم الله مراجعة الكودالسايق تلوين الخلية النشطة مع حفظ اللون السابق.rar

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MyColor = 6
If Not IsError(Me.[N_Color_Rng]) Then
If Not IsError(Me.[N_Color_Color]) Then
If Not IsError(Me.[N_Color_Old]) Then
If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then
Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color]
End If
End If
End If
End If
Me.Names.Add "N_Color_Rng", ActiveCell
Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex
Me.Names.Add "N_Color_Old", MyColor
ActiveCell.Interior.ColorIndex = MyColor
End Sub

 

ولكم جزيل الشكر

 

رابط هذا التعليق
شارك

يمكن استخدام هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
     With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 46
     End With
End Sub
رابط هذا التعليق
شارك

الأخ الكريم بعد التحية

برجاء تطبيق هذا الكود على جميع أوراق الملف

وليس بنسخ الكود بكل ورقة

الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MyColor = 6
If Not IsError(Me.[N_Color_Rng]) Then
If Not IsError(Me.[N_Color_Color]) Then
If Not IsError(Me.[N_Color_Old]) Then
If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then
Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color]
End If
End If
End If
End If
Me.Names.Add "N_Color_Rng", ActiveCell
Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex
Me.Names.Add "N_Color_Old", MyColor
ActiveCell.Interior.ColorIndex = MyColor
End Sub



ولكم منا جزيل الشكر والإمتنان

رابط هذا التعليق
شارك

أخي الحبيب ببساطة قم بعمل كليك يمين على اسم ورقة العمل المراد نسخ الكود فيه ثم View Code ثم لصق ثم  بس خلاص

رابط هذا التعليق
شارك

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

الاخ العزيز والاستاذ الفاضل

ياسر خليل

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

زمان ما شوفناك

واشتقنا للمشاركة معك

وبعد الاذن في المرفق تعديل لكود التلوين مع حفظ اللون السابق

الكود في حدث الملف ليعمل على كل الاوراق

واخيرا تمنياتي لك بدوام الصحة والعافية

في امان الله

تلوين الخلية النشطة في كل الاوراق مع حفظ اللون السابق.rar

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information