أبحث عن كود يقوم بـ ( تعطيل / تفعيل ) معادلات التنسيق الشرطى الموجوده بالصفحة

[أناناس]

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

أقوم بعمل مشروع إنشاء نموذج لدليل الحسابات ( عناصر المخزون )

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

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

كود بزرارين تفعيل تعطيل 

مرفق المشروع 

ولو من متكرم يقوم بعمل TREE VIEW للشارت نكون شاكرين

STORE.rar

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

أخي الكريم أناناس ...

هل الأمر يتطلب كود ؟ أم أنه يمكن تقديم حل بدون أكواد

عندي طريقة بسيطة ولكنها تتطلب خلية واحدة نضع فيها قائمة بها كلمتين على سبيل المثال ON و OFF

بالظبط كدا زي مفتاح يشغل التنسيق الشرطي ويطفيه (مفتاح تشغيل بالكهربا)

إذا كان الأمر يروق لك من هذا المطنلق أعملني أما إذا كنت تريد الحل بالكود فجاري العمل عليه إن شاء الله

[أناناس]

فكرتك رائعة وهى إضافة ( ON / OFF ) على معادلات التنسيق الشرطى

وفكرة الكود أفضل و أهى حاجة جديدة نتعلمها من فيض علمكم الواسع

وألف حمد لله على سلامة جنابك أخانا الغالى ياسر خليل 

تم تعديل سبتمبر 14, 2015 بواسطه أناناس

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

أخي الكريم أنا ناس ... أكيد أنا ناس (مش حاجة تانية)

أولاً هتحتاج خلية من خلايا ورقة العمل أي خلية تعجبك .. وليكن هشرح على الخلية O1 حدد الخلية روح للتبويب Data ثم Data Validation واختار من القايمة List عشان تعمل قايمة واكتب في مستطيل الـ Source كلمتين ON و OFF

ON,OFF

تمام .. قووووووووول تمام (مقلتش على فكرة وأنا سامعك)

روح بقا للتبويب الأول Home وروح للتنسيق الشرطي Conditional formatting واختار New Rule ومن النافذة اللي قدامك (ركز وصحصح واصحى) اختار آخر خيار

Use a formula to determine ......

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

=IF($O$1="OFF",TRUE,FALSE)

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

اضغط OK ..

وكمل معايا >>>>>>>>>>>>>>>>>>>>>

ادخل مرة تانية على التنسيق الشرطي بس المرة دي اختار Manage Rule عشان هنغير حاجة بسيطة كدا

اختار من القايمة This worksheet عشان تظهر لك كل المعادلات الخاصة بالتنسيق الشرطي في كل ورقة العمل

لما تبص على معادلاتك هتلاقي إن المعادلات مرة بتنطبق على العمود A ومرة على العمود B ومرة على العمود C ..بكدا نفهم إننا لازم نعمل نطاق يلم الثلاثة أعمدة وليكن النطاق A2:C1503 ....

نحدد المعادلة بتاعتنا الجديدة (ملناش علاقة بمعادلاتك القديمة) نحدد ونيجي في صندوق Applies to ونكتب النطاق

=$A$2:$C$1503

هتلاقي مربع في ناحية اليمين هتعلم عليه علامة صح Stop If True وأخيراً اضغط OK

بس خلاص ...

جرب بقا روح للخلية O1 واختار مرة ON ومرة OFF ولاحظ التغيير

أرجو أن أكون قد أفدتك

تقبل تحياتي

[أناناس]

تمام والله تسلم يداك 

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

فكرتك جميلة

هل بالامكان تطبيق الكود 

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

أخي الكريم

إليك الحل التالي عله يفي بالغرض (طبعاً أنا لا أعرف شكل التنسيقات التي قمت بها) يمكنك التعديل بما يتلائم معك

الفكرة في استخدام Toggle Button لتفعيل وتعطيل التنسيق الشرطي

تعتمد الفكرة في إضافة التنسيق الشرطي في حالة التفعيل (للثلاثة نطاقات) ، وفي حالة التعطيل يتم حذف التنسيق الشرطي ..

أرجو أن تفي بالغرض

Private Sub ToggleButton1_Click()
    If ToggleButton1.Caption = "ON" Then
        With Range("A2:A1503")
            .FormatConditions.Add xlExpression, Formula1:="=IF(OR(B2<>0,C2<>0,D2<>0,E2<>0,F2<>0),TRUE,FALSE)"
            .FormatConditions(1).Interior.ColorIndex = 4
        End With
        
        With Range("B2:B1503")
            .FormatConditions.Add xlExpression, Formula1:="=IF(OR(C2<>0,D2<>0,E2<>0,F2<>0),TRUE,FALSE)"
            .FormatConditions(1).Interior.ColorIndex = 4
        End With
        
        With Range("C2:C1503")
            .FormatConditions.Add xlExpression, Formula1:="=IF(OR(D2<>0,E2<>0,F2<>0),TRUE,FALSE)"
            .FormatConditions(1).Interior.ColorIndex = 4
        End With
        
        ToggleButton1.Caption = "OFF"
    Else
        With Range("A2:C1503")
            .FormatConditions.Delete
        End With
        ToggleButton1.Caption = "ON"
    End If
End Sub

 

STORE.rar

[أناناس]

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

أخونا وإستاذنا الغالى ياسر خليل

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

على تعبك وبذل مجهود فى الرد على موضوعنا 

ظهرت مع إستخدام الملف رسالة خطأ أرفقتها 

هل بالإمكان تحويل الكود الى موديل بدلا من وضعه فى حدث الصفحة

وربطه بزر عادى ( صورتين عاديتين on / off ) بدلا من ToggleButton للتيسير

وشكرا لإهتمامك بطلبنا 

[أناناس]

سيد ياسر خليل

هل بالامكان المساعدة فى المشاركة السابقة

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

[أناناس]

للفرفع

 

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

أخي الكريم

كل عام وأنت بخير

جرب تغير الفاصلة الموجودة السطر الأصفر اللي بين الأقواس من فاصلة عادية لفاصلة منقوطة ...

[أناناس]

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

سيد ياسر خليل 

كل عام وانتم بخير

وجزيت خيرا كثيرا على تعاونك معى 

لقد قمت بالذى أشرت على به

ولكن للأسف لم يفلح وأعطانى فورمات غير الذى وضعته وتجاهل نطاق التنسيق

فلو تكرمت إلق على الملف نظرة

ولو تفضلت بتحويل الكود من حذث الصفحة الى موديل بزرار عادى ( ON - OFF ) نكون شاكرين 

STORE.rar

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

أخي الكريم

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

يمكنك توضيح التنسيق بالشكل المطلوب .. وإن شاء الله أحاول المساعدة قدر الإمكان