تلوين خانات الاكسل بألوان مختلفه

[احمد 505]

السلام عليكم

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

بألوان مختلفة بطريق سريعة

مع وجود مدخلات في كل صف تختلف عن الصف الاخر

انا استخدم طريقة تحديد صف واختيار الللون في كل مره

تلوين الخانات.rar

تم تعديل سبتمبر 15, 2012 بواسطه ahmd2505

[أبو حنــــين]

ما الذي تريد تلوينه

خلية واحدة او صف ، و متى تريد التلوين اي هل هناك شرط للتلوين

[أبو حنــــين]

مثلا لتلوين الخلية الحالية نكتب

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

ActiveCell.Interior.ColorIndex = 3

End Sub

[يوسف عطا]

يمكن إختيار تلوين الصفوف الفردية بلون والصفوف الزوجية بلون آخر

جرب الكود التالى لتلوين صفوف محددة مسبقاً فى الكود

Sub تلوين_صف_وصف()

'من هنا تحديد الصفوف ذات اللون الأول

Range("1:1,3:3,5:5,7:7,9:9").Select

With Selection.Interior

'الرقم 6 هو رمز اللون الأصفر

	 .ColorIndex = 6

	 .Pattern = xlSolid

End With

'من هنا تحديد الصفوف ذات اللون الثانى

Range("2:2,4:4,6:6,8:8,10:10").Select

With Selection.Interior

'الرقم 8 هو رمز اللون الأخضر

	 .ColorIndex = 8

	 .Pattern = xlSolid

End With

Range("A12").Select

End Sub

تم تعديل سبتمبر 15, 2012 بواسطه يوسف عطا

[الـعيدروس]

السلام عليكم

تفضل

Sub AAAAA()

Dim R As Range

Dim T%, I%

With ActiveSheet

I = .Cells(Rows.Count, 1).End(xlUp).Row

Set R = .Range("A2:Z" & I) ' غير المدى من هنا

For T = 1 To R.Rows.Count

'.Rows(T).Interior.Color = RGB(245, 232, 168) ' لعمل لون للصف كامل

.Range(Cells(T, 1), Cells(T, 26)).Interior.Color = RGB(245, 232, 168) ' تلوين حدود المدى

T = T + 1

Next

End With

End Sub

[يوسف عطا]

الله ينور عليك يا أيو نصار

[احمد 505]

الله يعطيكم العافيه

ابو حنين + ابو نصار

انا عندي جدول اكسل

فيه حوالي 1000 صف + 27 عمود

فقمت بوضع لونين لتمييز الصفوف ومعلوماتها

واسهل عند القراءة

وانا مثلاً اختر اللون الاصفر للصف الاول

والصف الثاني ابيض او بدون لون

ولكن عندما انتهي من بعض الصفوف

احذفها

فمثلاً حذفت صف اصفر

فيصبح لدي صفين ابيضين متتاليين

وبذلك اظطر الى اعادة التلون لفصل الصفوف

وشكراً

تم تعديل سبتمبر 15, 2012 بواسطه ahmd2505

[احمد 505]

_{ممكن مثال في مرفق}

_{الله يعطيكم العافية}

[أبو حنــــين]

جر ب هذ الكود و ان كان هذا هو القصد فسنكمل

حاول حذف صف او صفوف

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

For G = 2 To 50

If G Mod 2 = 1 Then

Rows(G).Interior.ColorIndex = 37

Else

Rows(G).Interior.ColorIndex = 0

End If

Next

End Sub

[الشهابي]

أخي العزيز / ahmd2505

بعد أذن أساتذتنا الكرام

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

http://www.officena....showtopic=41046

[أبو حنــــين]

مثال

مثال.rar

[احمد 505]

أبو حنين

اكتب الكود هذا فين

في اي خانه

انا استخدم صفحة اكسل

[يوسف عطا]

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

ولكنه يحتاج تعديل ليقوم الكود بتلوين الصفوف الفردية بلون والزوجية بلون آخر فى مدى الـ 1000 صف من الصف 1 إلى الصف 1000

جارى محاولة تعديله

[يوسف عطا]

الله ينور عليك ابو حنين

كود أخى أبو حنين يعمل جيداً

ويحقق المطلوب تماماً

إنسخه وضعه فى حدث الشيت

وغير المدى ليكون كما يلى

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

For G = 2 To 1000

If G Mod 2 = 1 Then

Rows(G).Interior.ColorIndex = 37

Else

Rows(G).Interior.ColorIndex = 0

End If

Next

End Sub

ولو أردت أن يكون كل صف بلون مختلف بالتبادل صف فردى بلون وصف زوجى بلون آخر غير الرقم صفر فى السطر 6 برقم آخر 8 مثلاً

طريقة وضع الكود فى حدث الشيت المطلوب

إفتح ملف الإيكسيل وإكبس على ألأت + F11

سيظهر لك صفحة كتابة الأكواد

إختر الصفحة التى تريد تطبيق الكود فيها عن طريق دبل كليك

ثم إلصق الكود فى المساحة البيضاء الكبيرة

تم تعديل سبتمبر 15, 2012 بواسطه يوسف عطا

[احمد 505]

الاخوان الاعزاء

اشكركم جميعاً

لقد عملت المعادلة بنجاح وهذا المطلوب

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

[alfahad]

كما عودتنا يا ابو حنين

رائع حفظك الله

[أبو حنــــين]

شكرا اخي الحبيب فهد على مروركم العطر

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

[احمد 505]

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

For G = 2 To 1000

If G Mod 2 = 1 Then

Rows(G).Interior.ColorIndex = 37

Else

Rows(G).Interior.ColorIndex = 0

End If

Next

End Sub

السلام عليكم

سؤال

الكود شغال 100%

اذا استخدمته على صفحة جديده

لكن اذا استخدمته على صفحة فيها معلومات

لا تعمل المعادلة

ماذا تظنون المشكله

وما المقصود من الحرف G في المعادلة

شكراً

تم تعديل سبتمبر 17, 2012 بواسطه ahmd2505

[أبو حنــــين]

اخي طالما الكود موجود في الحدث

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

و لا يوجد كود آخر يتعامل مع الالوان ، فمن المفروض لا يقع أي خلل

بالنسبة للحرف G هو متغير فقط يمكن تغييره ( حلقة تكرار من 2 الى 1000 ) بأي شيئ آخر سواءا كان حرف أو كلمة

[احمد 505]

ممتاز اخي

لماذا لا يوجد سهم التراجع

في حال اخطيب واريد اتراجع

[طارق محمود]

السلام عليكم

لإثراء الموضوع وكما أشار أخي الحبيب م الشهابي في مشاركته رقم 10

مرفق حل بدون أكواد ، بالتنسيق الشرطي

فقط ضع هذه المعادلة في شرط التنسيق

=MOD(ROW(),2)=1

تفضل المرفق وجرب تلغي سطر منه

ثم جرب تعمل Undo أو Ctrl-z

تظليل سطر وترك سطر.rar

[طارق محمود]

السلام عليكم

مرة أخري لإثراء الموضوع

بدون أكواد ، وبالتنسيق الشرطي

إن كان الأوفيس لديك 2007 أو 2010

شاهد الفيديو ثم الملف المرفقين

ممكن الدلالة بالألوان علي قيمة الخلايا

ففي الملف ستجد الأرقام المنخفضة حمراء والأقل إنخفاضا أقل إحمرارا

ثم المتوسطة حسب درجاتها تتلون بدرجات الأصفر

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

جرب بالمرفق

Cond_Format.rar

[يوسف عطا]

المشكلة فى حالة إستخدام التنسيق الشرطى أن نكون نحتاج إستخدام التنسيق الشرطى بشروط أخرى وفى هذه الحالة فربما نكون فى إحتياج إلى أكثر من 3 شروط بما فيها شرط تلوين السطور

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

مثلاً فى خلايا العمود A نضع 1 أو 2 ويكون شرط التنسيق فى خلايا العمود A فيقوم بتفعيل التنسيق فى كل الصف هل هذا ممكن ؟؟

[احمد 505]

الاخ أبو حنين

في حال حذفت صف

او مسحت معلومة في خانه

كيف استطيع استرجعها

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

ايش الحل برئيك

[أبو حنــــين]

في هذه الحالة تأخذ بنصيحة الأستاذ طارق وتقوم بالعمل المبين في المرفق

لكن في هذه الحالة اعتقد ان حذف صف يؤثرفي العملية

و الله اعلم

الشرح.rar