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

[@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