Yousefessam قام بنشر يوليو 11, 2015 قام بنشر يوليو 11, 2015 اخوانى الاعزاء كيف يمكن تطبيق تنسيق شرطى ما على كل الشيتات مرة واحدة بدلا من تطبيقه على كل شيت على حدة تفضلوا بالقبول مع فائق الاحترام والتقدير
محمد حسن المحمد قام بنشر يوليو 11, 2015 قام بنشر يوليو 11, 2015 (معدل) السلام عليكم إخوتي الكرام ...كان لي رأي بخصوص هذا الموضوع عرضته على الأخ العزيز ياسر خليل أبو البراء.. فأحالني إلى هذا البحث لطرحه ضمنه وهاأنذا أطرحه ضمن الرابط التالي: مشاركته السابقة أرجو ملاحظته وإبداء رأيكم به والسلام عليكم... تم تعديل يوليو 11, 2015 بواسطه محمد حسن المحمد
ياسر خليل أبو البراء قام بنشر يوليو 11, 2015 قام بنشر يوليو 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 1
ياسر خليل أبو البراء قام بنشر يوليو 11, 2015 قام بنشر يوليو 11, 2015 حل آخر بالاكواد .. يمكن تطبيق التنسيق الشرطي على ورقة العمل 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 تقبل الله منا ومنكم 1
محمد حسن المحمد قام بنشر يوليو 11, 2015 قام بنشر يوليو 11, 2015 السلام عليكم أخي أبو البراء..أنتظر حتى صباح الغد إن شاء الله تعالى للقيام بحل وظيفتي لأنني مساء وبعد العودة إلى خيمتي المتواضعة أستخدم الجوال لمتابعة أعمالكم الفذة لأنني شغوف ومتابع لأعمالكم التي أصبحت بالنسبة لي كالدم الذي يجري في عروقي..ولن أسمح لهذا الدماغ الذي بلغ من الكبر عتيا أن يتقاعد عن العمل. فيصيبه الزهايمر كما هو حال عمر الشريف. تقبل تحياتي..السلام عليكم. 1
Yousefessam قام بنشر يوليو 11, 2015 الكاتب قام بنشر يوليو 11, 2015 (معدل) شكرا على الرد ولكن هذا ينفع عند تطبيق تنسيق شرطى على عمود وصف مثل تلوين صف وعمود فى خلية مختارة وتطبيق هذا التنسيق على كل الشيتا مرفق ملف لايضاح ما اريده New Microsoft Office Excel Worksheet.rar تم تعديل يوليو 11, 2015 بواسطه يوسف عصام
ياسر خليل أبو البراء قام بنشر يوليو 11, 2015 قام بنشر يوليو 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 ولكن انتبه : يثقل الملف ويصبح بطيء إذا كثر التعامل مع التنسيق الشرطي .. وجبت النصيحة
محمد حسن المحمد قام بنشر يوليو 12, 2015 قام بنشر يوليو 12, 2015 السلام عليكم أخي الحبيب أبو البراء لقد قمت بالعمل الذي طلبته مني حسب الخطوات المرسومة بالكود ودون الكود أرجو أن يحوز على إعجابك ورضاك ...باعتباره خطوة نحو الأمام تقبل تحياتي وشكري وامتناني Test Apply Conditional Formatting On Entire Workbook.rar
محمد حسن المحمد قام بنشر يوليو 12, 2015 قام بنشر يوليو 12, 2015 (معدل) السلام عليكم أخي يوسف عصام باستخدام طريقة الأستاذ ياسر خليل أبو البراء المحترم يمكنك تحديد sheet1 كاملاً بعد أن تم التنسيق الشرطي عليه ..ثم نسخ Copy ثم تحدد الأوراق البقية من Sheet2 حتى Sheet7 باستخدام مفتاح Shift تحدد أول ورقة ثم Shift ثم الأخيرة ثم لصق خاص Paste Special ثم اختر Formats أي نسخ التنسيقات فقط فإن حصلت على المطلوب يرجى اختيار أفضل إجابة من إجابات الأستاذ ياسر لأن له الفضل في ذلك والسلام عليكم.. New Microsoft Office Excel Worksheet.rar تم تعديل يوليو 12, 2015 بواسطه محمد حسن المحمد
محمد حسن المحمد قام بنشر يوليو 13, 2015 قام بنشر يوليو 13, 2015 السلام عليكم ورحمة الله وبركاته أحببت أن أكتب في هذه المشاركة لعرضها في الصفحة الأولى لمعرفة صحة النتيجة.. تقبلوا تحياتي..
ياسر خليل أبو البراء قام بنشر يوليو 13, 2015 قام بنشر يوليو 13, 2015 بارك الله فيك أخي الحبيب المتميز أبو يوسف مشكور على المجهود الجبار الذي تبذله لتنشيط المنتدى بشكل كبير .. ومبارك على الترقية وعقبال ما نشوفك في أعلى الدرجات في الدنيا والآخرة تقبل وافر تقديري واحترامي 1
محمد حسن المحمد قام بنشر يوليو 13, 2015 قام بنشر يوليو 13, 2015 السلام عليكم ورحمة الله وبركاته أخي أبو البراء أشكرك جزيل الشكر على كل ما قدمت وتقدم لي ولغيري ممن يطلبون العون في مسائلهم العالقة..أما إن كنت متميزا فبفضلكم وجهودكم وقد كتبت مشاركة في المنتدى الاجتماعي راجيا منك الاطلاع عليها ...تقبل تحياتي وحبي واحترامي...السلام عليكم. 1
الردود الموصى بها