كود صغير و مفيد جدا_ لتلوين الخلايا التي بها معادلات وكود للتراجع عن التلوين

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

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

 

تم ارفاق كود الحل من الفاضل _ ا / أبوعبد الله

 

كود تلوين

Sub ColorFormulas()
    ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With
End Sub

 

كود تراجع عن التلوين

Sub UnColorFormulas()
    ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

 

مرفق الملف

 

color_and_uncolor_formula_cells.rar

 

 و لا تنسونا من صالح الدعاء

تحياتى

 

تم تعديل ديسمبر 7, 2016 بواسطه جلال الجمال_ابو أدهم