اذهب الي المحتوي
أوفيسنا

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


احمد 505

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

السلام عليكم

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

لاكن فيها بطئ

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


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

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

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

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

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

و الله اعلم

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

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

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

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

الاخ أبو حنين

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

على اوفس 2003

وانا اريد 2007

بارك الله فيك

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

أخي العزيز / ahmd2505

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

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

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

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


=MOD(ROW(),2)=1

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

=MOD(ROW(),2)=0

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

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

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

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

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

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

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

واكثر بكثير

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

تجاه تعزيتي

اشكركم جميعا

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

فأنتم رائعين

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

  • 3 weeks later...

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

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

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

السلام عليكم

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

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

تلوين.rar

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

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

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

  • 2 months later...

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

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

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

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

د مجدى

MyBook1.rar

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

  • 1 year later...

السلام عليكم

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

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

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

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

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

 

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

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