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

[الـعيدروس]

السلام عليكم

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

لاكن فيها بطئ

فرضاً هذا الكود المستخدم

Sub XXXXXX_A()

'***************

' تحط هذا بداية الكود لحفظ النطاق قيل التنفيذ

Sav_Ali

'***************

[A2:A10].Clear

End Sub

وهذا كود حقظ بيانات النطاق

Type S_Ali

    V_A As Variant

    D_A As String

  End Type

Public ACT_BOOK As Workbook

Public ACT_SH As Worksheet

Public ACT_R() As S_Ali

Sub Sav_Ali()

Application.ScreenUpdating = False

Dim R As Range

Set R = [A1:Z500]

    If TypeName(R) <> "Range" Then Exit Sub

    ReDim ACT_R(R.Count)

    Set ACT_BOOK = ActiveWorkbook

    Set ACT_SH = ActiveSheet

    I = 0

    For Each CE In R

	    I = I + 1

	    ACT_R(I).D_A = CE.Address

	    ACT_R(I).V_A = CE.Formula

    Next CE

Application.ScreenUpdating = True

End Sub

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

Sub UO_Ali()

With Application

.ScreenUpdating = False

.EnableEvents = False

    On Error GoTo Err

    Application.ScreenUpdating = False

    ACT_BOOK.Activate

    ACT_SH.Activate

    For I = 1 To UBound(ACT_R)

	    Range(ACT_R(I).D_A).Formula = ACT_R(I).V_A

    Next I

.ScreenUpdating = True

.EnableEvents = True

End With

    Exit Sub

Err:

    MsgBox "حدث خطاء لايمكن الإسترجاع"

End Sub

ربما تفيد البعض هذه الطريقة

[احمد 505]

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

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

و الله اعلم

 الشرح.rar 264.36K 4 عدد مرات التحميل

المعذره يا أخوان على انقطاعي في الـ4 الايام الماضيه

ولكن كان عندي حالة وفاه

رحم الله امواتنا وجميع اموات المسلمين

الاخ أبو حنين

المرفق الذي اشرت عليه بأستخدامه

على اوفس 2003

وانا اريد 2007

بارك الله فيك

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

[الشهابي]

أخي العزيز / ahmd2505

أولا : عظم الله أجركم و أحسن عزاكم وغفر لميتكم و أسكنه الله الجنة وخلفه الله بخلف صالح

ثانيا وبعد أذن أستاذنا القدير أبو حنين

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

عليك بنسخ المعادلة التي وضعها أستاذنا الكبير المهندس طارق محمود في المشاركة رقم 21 وهي :

=MOD(ROW(),2)=1

ثم إذا أردت تلوين الصفوف الأخرى تلصق نفس المعادلة بس مع تغير الرقم 1 إلى صفر فتصبح المعادلة هكذا

=MOD(ROW(),2)=0

وهذا ملف الفديو الصامت

تلوين الصفوف بتنسيق شرطي.rar

[احمد 505]

اشكركم جميعا

تمت العملية بنجاح

واستفدت منكم كثير

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

وزادكم من فضله

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

اخي الكريم ahmd2505 عظم الله أجركم ورحم ميتكم و اسكنه فسيح جنانه و الهمكم الصبر و السلوان

انا لله و انا اليه راجعون

[جمال عبد السميع]

أليك بالأضافة إلي حلول أساتذتي الأفاضل حل بطريقة أخري

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

[احمد 505]

شكرا جزيلا

[جمال عبد السميع]

طريقة أخري كل 4 صفوف

تظليل كل أربع صفوف.rar

[الـعيدروس]

السلام عليكم

الاخ الفاضل ahmd2505

عظم الله اجرك واحسن عزاك

وإنا لله وانا اليه راجعون البقاء لله

[جمال عبد السميع]

طريقة أخري كل صفين

تظليل كل صفين.rar

[جمال عبد السميع]

طريقة خامسة في شكل شطرنجي

في شكل شطرنجي.rar

[يوسف عطا]

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

[جمال عبد السميع]

هذا شرف لهذه الطريقة أستاذي بارك الله فيك علي تشجيعك هذا

[احمد 505]

اعزائي اعضاء officena

يشرفني انني وضعت ثقتي بكم

وسئلت جميع اسئلتي

وحصلت على اجابتها

واكثر بكثير

واشكركم على مشاعركم

تجاه تعزيتي

اشكركم جميعا

لكم فائق احترامي

فأنتم رائعين

[ابو ريم 77977]

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

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

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

السلام عليكم

بالنسبة لسؤال الأخ / يوسف عطا لم يتم الرد عليه ، فهل توجد معادلة لتلوين صف كامل اذا كان الشرط موجد في خليه معينه

بمعنى اذا كتبنا لاغي في خانة المتعامل بالملف المرفق يتم تلوين الصف بالكامل مع العلم بأن بعض الخلايا الأخرى يوجد بها تنسيق شرطي

تلوين.rar

[طارق محمود]

السلام عليكم

أخي العزيز / يوسف عطا

أخي العزيز / ابو ريم 77977

تفضلا المرفق

تلوين2.rar

[ابو ريم 77977]

بارك الله فيك استاذ ( طارق محمود ) على الرد السريع وجزاك الله خيرا .

[ابو غريب]

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

[طارق محمود]

السلام عليكم

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

فقط إستبدل Row() بــ Column()

[dr magdy]

الاخوة الاعزاء

المشرفين و المشاركين المحترفين

تم هنا استعمال دالة SUMPRODUCT لايجاد اعداد الخلايا التى ينطبق عليها شروط محددة فى نطاق محدد كما فى المثال و بالتالى فالعدد الاجمالى و هو 30 تم توزيعه كما فى المثال و المطلوب هو تلوين الخلايا التى فى العمود D بمعنى أن الخلايا التى ينطبق عليها الشرط فى خلية K4 نلون مايقابلها فى العمود D أصفر والخلايا التى ينطبق عليها الشرط فى خلية L4 نلون مايقابلها فى العمود D أخضر و الخلايا التى ينطبق عليها الشرط فى خلية K5 نلون مايقابلها فى العمود D أزرق و الخلايا التى ينطبق عليها الشرط فى خلية L5 نلون مايقابلها فى العمود D أحمر

مع شكرى و تقديرى

د مجدى

MyBook1.rar

[طارق محمود]

السلام عليكم

تفضل اخي المرفق بالتنسيق الشرطي

MyBook1_T.rar

[samia84]

السلام عليكم

أريد منكم مساعدة في هذا المجال

أريد كود لتلوين خانة عندما تكون فارغة في دفتر التنقيط وهذا بدلالة الإسم

أي عندما أكتب الإسم ولا أكتب النقاط تتلون خانات النقاط بلون

وعندما أكتب النقاط في الخنات الملونة تتحول إلى بيضاء

وشكرا لكم مسبقا على المساعدة

 

 

 

[طارق محمود]

السلام عليكم

الأخت الفاضلة samia84

أرجو أن أكون فهمت ماتريدين

بالمرفق تجدين التالي

العمود الأول به الإسم

باقي الأعمدة بيانات مختلفة (مثلا : العمر ، الطول ، الراتب ... إلخ)

التلوين يتحقق إذا تحقق الشرطان

1- كانت خانة العمود الأول ليست فارغة 

2- عدد البيانات في باقي العمدة يقل عن 4 (فرض من عندي كي لا يزيل اللون إلا بعد عدد بيانات معين)

وتستطيعين طبعا تغييره كما تريدين

شرط التنسيق هو كما بالمرفق

=AND(ISBLANK($A3)=FALSE,COUNTA($B3:$K3)<4)

دفتر التنقيط.rar

[ا بو سليمان]

ما شاء الله تبارك الله 

[ا بو سليمان]

اخي طارق حفظ الله 

 

كيف ا استطيع ان اجد الكود التالي  

=AND(ISBLANK($A3)=FALSE,COUNTA($B3:$K3)<4)

 

بحثت عليه ولم اجده في الملف