اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


احمد 505

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

السلام عليكم

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

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

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

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

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

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

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

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


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

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

السلام عليكم

تفضل


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

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

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

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

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

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

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

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

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

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

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

احذفها

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

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

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

وشكراً

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

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

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


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

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

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

ولكنه يحتاج تعديل ليقوم الكود بتلوين الصفوف الفردية بلون والزوجية بلون آخر فى مدى الـ 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

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

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

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

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


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 في المعادلة

شكراً

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

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

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

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

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

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

السلام عليكم

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

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

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

=MOD(ROW(),2)=1

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

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

جرب بالمرفق

Cond_Format.rar

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

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

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

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

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

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

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

و الله اعلم

الشرح.rar

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

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