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

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

Recommended Posts

السلام عليكم

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

لاكن فيها بطئ

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


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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

و الله اعلم

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

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

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

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

الاخ أبو حنين

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

على اوفس 2003

وانا اريد 2007

بارك الله فيك

تم تعديل بواسطه ahmd2505

شارك هذه المشاركه


رابط المشاركه
شارك

أخي العزيز / ahmd2505

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

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

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

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


=MOD(ROW(),2)=1

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

=MOD(ROW(),2)=0

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

اشكركم جميعا

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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

الاخ الفاضل ahmd2505

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

واكثر بكثير

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

تجاه تعزيتي

اشكركم جميعا

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

فأنتم رائعين

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

السلام عليكم

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

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

تلوين.rar

شارك هذه المشاركه


رابط المشاركه
شارك

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

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

د مجدى

MyBook1.rar

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

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

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

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

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

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

 

 
 

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

دفتر التنقيط.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 اعضاء متواجدين الان

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

×
×
  • اضف...