تلوين الخلايا التي تحتوي معادلات بسطر واحد من الكود Color Formulas With One Line Of Code

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

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

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

بعد تنفيذ الكود .. الخلايا التي تحتوي على معادلات تم تلوينها

وإليكم السطر السحري الذي ينفذ المطلوب

Sub ColorFormulas()
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 7
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء