إزالة أو إبقاء آثار التنسيق الشرطى

[مختار حسين محمود]

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

البغض منا قد يرغب فى ازالة التنسيق الشرطى عن خلية أو نطاق لسبب ما

مع ازالة أو ابقاء آثاره من تنسيقات مثل لون الخلايا و لون و حجم الخط  .... الخ

و بإذن الله تعالى سأعرض عليكم ــ  اخوتى ــ كودين  يؤديان هذه المهمة 

 

الأول : يقوم بازالة التنسيق الشرطى مع ازالة آثاره  من نطاق محدد  :

 

Sub RemovingCFandEffects()
' Removing Conditional Formats and the Effects
Dim Rng As Range
Set Rng = Sheets("Sheet1").Range("A1:C10")

Application.ScreenUpdating = False

    Rng.FormatConditions.Delete

Application.ScreenUpdating = True

MsgBox ("The Conditional Formats in The Range " & Rng.Address & vbCrLf & " has been Removed and The Effects")
       

End Sub

 

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

 

Sub RemovingCFbutNotEffects()

' Removing Conditional Formats but not the Effects

Dim Rng As Range, C As Range

Set Rng = Sheets("Sheet1").Range("A1:C10")

Application.ScreenUpdating = False

For Each C In Rng ' Rng.SpecialCells(xlCellTypeAllFormatConditions)
    
  With C
   .Interior.Color = .DisplayFormat.Interior.Color
   .Font.FontStyle = .DisplayFormat.Font.FontStyle
   .Font.Color = .DisplayFormat.Font.Color
   .FormatConditions.Delete
  End With
Next

Application.ScreenUpdating = True

MsgBox ("The Conditional Formats in the Range " & Rng.Address & vbCrLf & "has been removed but Not the Effects ")


End Sub

أتمنى أن يكون موضوعا سهلا وخفيفا ونافعا لكم ... تقبل الله منا و منكم صالح الأعمال 

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

Removing Conditional Formats.rar

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

أخي وحبيبي مختار

يعجبني فيك التميز في الموضوعات ..تأتي بما لم يأتِ به الأوائل

جزيت خير الجزاء

 

[عبد العزيز البسكري]

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

بارك الله فيك أستاذي القدير " مختار حسين محمود " على الهديّة الثمينة .. و ما زاد في قيمة الهديّة  و أعجبني أكثر أنا شخصيا هو الكود الثاني لأنّي بحاجة ماسّة له

بارك الله فيك .. جزاك الله خيرا و زادك من علمه و فضله

فائق إحتراماتي لشخصك الكريم

 

 

 

[خالد الشاعر]

استاذ مختار

تميز ممتاز و عمل رائع

تسلم ايدك

[مختار حسين محمود]

أخى و أستاذى الكبير ياسر خليل بوركت ... كلماتك وسام على صدرى

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

أخى و حبيبى الغالى خالد الشاعر بوركت و سلمت من كل عيب وشر جزاك الله كل خير

[Yasser Fathi Albanna]

أخى الحبيب الغالى / مختار

أحييك من كل قلبى

دائما مواضيعك مثيرة وجديدة ورائعة

زادك الله من العلم الكثير والكثير

تقبل حالص تحياتى وتقديرى

[مختار حسين محمود]

21 ساعات مضت, م / ياسر فتحى البنا said:

أخى الحبيب الغالى / مختار

أحييك من كل قلبى

دائما مواضيعك مثيرة وجديدة ورائعة

زادك الله من العلم الكثير والكثير

تقبل حالص تحياتى وتقديرى

أخى الغالى ياسر فتحى  بارك الله فيك  و زادك  من علمه  و فضله  و تقبل منا ومنكم صالح الاعمال   خالص تقديرى و احترامى لشخصكم الكريم

[saad abed]

في ١٦‏/١١‏/٢٠١٥ ٢،٢٤،٣٨, ياسر خليل أبو البراء said:

أخي وحبيبي مختار

يعجبني فيك التميز في الموضوعات ..تأتي بما لم يأتِ به الأوائل

جزيت خير الجزاء

 

اخى مختار

اقتبست رد اخى ياسر لانه ابلغ رد

[مختار حسين محمود]

أشكرك أخى سعد عابد

شكرا جزيلا   أنت وحبيبى الغالى أبا البراء  على هذه العبارة التى أسعدتنى بجد  

بارك الله فيكما وجزاكم كل خير  تقبل خالص شكرى وتقديرى لشخصكم الكريم 

[احمد غانم]

مختار حسين محمود

السلام عليكم

عمل مميز بارك الله جودك و الى مزيد من العطاء

 

[مختار حسين محمود]

أشكرك أخى احمد عانم

بارك الله فيك و جزاكم كل خير  تقبل خالص شكرى وتقديرى لشخصكم الكريم