الحفاظ على تنسيق ولون الخلايا

[أب مارية]

السلام عليكم 

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

Janvier.rar

[الخالدي]

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

جرب الكود المرفق

يقوم الكود بتلوين الصف النشط في النطاق A7:I429

وعند تغير الصف يعود الصف السابق بألوانه السابقة

وايضا عند تلوين الصف النشط بلون اخر يحتفظ الصف النشط باللون الجديد

ارجو ان يكون المطلوب

الكود في حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, [A7:I429]) Is Nothing Then
Set RnN = Intersect(ActiveCell.EntireRow, [A7:I429])
ColorN = 65535
If Not IsError(Me.[KDI_ColorSave]) Then
Set RnO = Range(Split(Me.[KDI_ColorSave], ";")(0))
ColorO = Split(Me.[KDI_ColorSave], ";")(1)
For Each T In Split(Split(Me.[KDI_ColorSave], ";")(2), ",")
T1 = T1 + 1
If RnO(T1).Interior.Color = (ColorO * 1) Then RnO(T1).Interior.Color = (T * 1)
Next T
End If
ReDim Arr(RnN.Cells.Count - 1)
For R = 0 To RnN.Cells.Count - 1
Arr® = RnN(R + 1).Interior.Color
Next R
RnN.Interior.Color = ColorN
Me.Names.Add "KDI_ColorSave", RnN.Address & ";" & ColorN & ";" & Join(Arr, ",")
Set RnN = Nothing: Set RnO = Nothing: Erase Arr
End If
End Sub

في أمان الله

تلوين الصف النشط واعادة اللون.rar

[حمادة عمر]

السلام عليكم

استاذنا الغالي / الخالدي

 

بارك الله فيك

دائما توحشنا اعمالك

وتواجدك بيننا

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

[أب مارية]

السلام عليكم 

مشكور أخي الخالدي على الاهتمام فعلا هذا هو المطلوب لكن مشكل بسيط فقط لا أريد أن يتم اخفاء خط الخلايا 

وكيف يمكنني تبديل اللون من الأصفر إلى لون آخر 

[الخالدي]

بارك الله فيك اخي حمادة عمر

شكرا للمرور والكلام الطيب
في أمان الله

[الخالدي]

كيف يمكنني تبديل اللون من الأصفر إلى لون آخر

استبدل السطر التالي

ColorN = 65535

الى

ColorN = RGB(237, 165, 34)

ثم عدل مزيج الالوان حسب رغبتك

مشكل بسيط فقط لا أريد أن يتم اخفاء خط الخلايا

لا اعلم ماذا تعني ارجو التوضيح

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

في أمان الله

 

[أب مارية]

السلام عليكم أخي الخالدي

عند فتح الملف والانتقال بين السطور تمسح تلك الخطوط بين السطور هذا هو المقصود+

وعند ادراج سطر الألوان الجديد يبقى لون الخلية باللون الجديد ولايرجع إلى لونه الأصلي

تم تعديل مارس 12, 2013 بواسطه foular

[يحيى حسين]

الأخ الحبيب الخالدي 

حل رائع 

و حلم تحقق في أن أراك في عالم الأكواد بعد عالم المعادلات 

 

دمت في حفظ الله أخي الحبيب