تطبيق التنسيق الشرطى على اكثر من شيت

[Yousefessam]

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

كيف يمكن تطبيق تنسيق شرطى ما على كل الشيتات مرة واحدة بدلا من تطبيقه على كل شيت على حدة

تفضلوا بالقبول مع فائق الاحترام والتقدير

[محمد حسن المحمد]

السلام عليكم إخوتي الكرام ...كان لي رأي بخصوص هذا الموضوع عرضته على الأخ العزيز ياسر خليل أبو البراء..

فأحالني إلى هذا البحث لطرحه ضمنه وهاأنذا أطرحه ضمن الرابط التالي:

مشاركته السابقة

أرجو ملاحظته وإبداء رأيكم به والسلام عليكم...

تم تعديل يوليو 11, 2015 بواسطه محمد حسن المحمد

[ياسر خليل أبو البراء]

نعم أخي الحبيب أبو يوسف يمكن عمل ذلك وبدون أكواد

-------------------------------------------------

نفترض أن لدينا 5 أوراق عمل Sheet1 إلى Sheet5

قم بتطبيق التنسيق الشرطي في ورقة عمل واحدة فقط وليكن مثلاً ورقة العمل Sheet1 في النطاق A1:B5

 

** نحدد النطاق A1:B5 في ورقة العمل Sheet1

 

** قم بالدخول على التبويب Home  ثم Condiitonal Formatting  ثم New Rule ثم Use a formula to determine which cells to format وطبق التنسيق الشرطي التالي

=A1<25

ثم انقر الزر Format والتبويب Fill واختر أي لون ثم اضغط OK مرتين

سيتم تلوين الأرقام أقل من 25 ..

 

** قم بتحديد النطاق A1:B5  في ورقة العمل Sheet1 ثم كليك يمين الأمر نسخ Copy

 

ركز في الخطوة القادمة

 

** روح لورقة العمل Sheet2 ثم اضغط Ctrl من لوحة المفاتيح ثم حدد باقي أوراق العمل كلها ما عدا ورقة العمل Sheet1 لأنها الأساس الذي يتم النسخ منه

بهذا تكون قد حددت كل أوراق العمل ..

 

** قم بالنقر داخل الخلية A1 ثم كليك يمين ثم لصق خاص Paste Special ثم اختر Formats أي نسخ التنسيقات فقط

 

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

تقبلوا تحياتي

Test Apply Conditional Formatting On Entire Workbook.rar

[ياسر خليل أبو البراء]

حل آخر بالاكواد ..

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

Sub CopyConditionalFormatting()
    Dim SH As Worksheet
    
    Sheets("Sheet1").Range("A1:B5").Copy
    For Each SH In Worksheets
        If SH.Name <> "Sheet1" Then
            SH.Range("A1:B5").PasteSpecial xlPasteFormats
        End If
    Next
    Application.CutCopyMode = False
End Sub

تقبل الله منا ومنكم

[محمد حسن المحمد]

السلام عليكم أخي أبو البراء..أنتظر حتى صباح الغد إن شاء الله تعالى للقيام بحل وظيفتي لأنني مساء وبعد العودة إلى خيمتي المتواضعة أستخدم الجوال لمتابعة أعمالكم الفذة لأنني شغوف ومتابع لأعمالكم التي أصبحت بالنسبة لي كالدم الذي يجري في عروقي..ولن أسمح لهذا الدماغ الذي بلغ من الكبر عتيا أن يتقاعد عن العمل. فيصيبه الزهايمر كما هو حال عمر الشريف.

تقبل تحياتي..السلام عليكم.

[Yousefessam]

شكرا على الرد

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

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

مرفق ملف لايضاح ما اريده

New Microsoft Office Excel Worksheet.rar

تم تعديل يوليو 11, 2015 بواسطه يوسف عصام

[ياسر خليل أبو البراء]

ما المشكلة في الملف .. قم بتحديد كافة خلايا العمل أي تحديد كل الخلايا ونفذ الخطوات

وتعديل الكود ليناسب طلبك بهذا الشكل إذا أردت العمل بالكود

Sub CopyConditionalFormatting()
    Dim SH As Worksheet
    
    Sheets("Sheet1").Cells.Copy
    For Each SH In Worksheets
        If SH.Name <> "Sheet1" Then
            SH.Range("A1").PasteSpecial xlPasteFormats
        End If
    Next
    Application.CutCopyMode = False
End Sub

ولكن انتبه : يثقل الملف ويصبح بطيء إذا كثر التعامل مع التنسيق الشرطي .. وجبت النصيحة

[محمد حسن المحمد]

السلام عليكم أخي الحبيب أبو البراء

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

أرجو أن يحوز على إعجابك ورضاك ...باعتباره خطوة نحو الأمام

تقبل تحياتي وشكري وامتناني

Test Apply Conditional Formatting On Entire Workbook.rar

[محمد حسن المحمد]

السلام عليكم أخي يوسف عصام

باستخدام طريقة الأستاذ ياسر خليل أبو البراء المحترم

يمكنك تحديد sheet1  كاملاً بعد أن تم التنسيق الشرطي عليه ..ثم نسخ Copy

ثم تحدد الأوراق البقية من Sheet2 حتى Sheet7 باستخدام مفتاح Shift تحدد أول ورقة ثم Shift ثم الأخيرة 

ثم لصق خاص Paste Special ثم اختر Formats أي نسخ التنسيقات فقط فإن حصلت على المطلوب

يرجى اختيار أفضل إجابة من إجابات الأستاذ ياسر لأن له الفضل في ذلك

والسلام عليكم..

New Microsoft Office Excel Worksheet.rar

تم تعديل يوليو 12, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

أحببت أن أكتب في هذه المشاركة لعرضها في الصفحة الأولى

لمعرفة صحة النتيجة..

تقبلوا تحياتي..

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب المتميز أبو يوسف

مشكور على المجهود الجبار الذي تبذله لتنشيط المنتدى بشكل كبير ..

ومبارك على الترقية وعقبال ما نشوفك في أعلى الدرجات في الدنيا والآخرة

تقبل وافر تقديري واحترامي

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي أبو البراء أشكرك جزيل الشكر على كل ما قدمت وتقدم لي ولغيري ممن يطلبون العون في مسائلهم العالقة..أما إن كنت متميزا فبفضلكم وجهودكم وقد كتبت مشاركة في المنتدى الاجتماعي راجيا منك الاطلاع عليها ...تقبل تحياتي وحبي واحترامي...السلام عليكم.

[محمد ودود]

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