إستخدام دالة ISFORMULA في إيكسل 2007&2010 #76 - إكسل

تنسيق الخلايا التي تحتوي على صيغ فقط - طريقتان
رابط الملف / 664730710299942

[@Reduce_Scan]

Function FORMULATEXT(rng As Range) FORMULATEXT = " " & rng.Formula End Function كود لنفس الموضوع لكن أبسط

[@Reduce_Scan]

Function ISFORMULA(ByVal Ref As Range) As Variant If Ref.Cells.Count > 1 Then ISFORMULA = CVErr(xlErrNA) Else ISFORMULA = Ref.HasFormula End If End Function