السلام عليكم
وجدت فى موقع على النت بعد البحث
[p]
=SUMPRODUCT(--ISFORMULA(A:A))
</pre>
[p]
وهذا الكود </pre>
[p]
CODE
</span></strong></pre>
<pre dir="ltr" style="text-align:start">
<strong><span style="font-family:droid arabic kufi">Sub CountFormulas1()
Dim Source As Range
Dim iCount As Integer
Set Source = ActiveSheet.Range("A:A")
iCount = Source.SpecialCells(xlCellTypeFormulas, 23).Count
ActiveSheet.Range("D1") = iCount
End Sub</span></strong></pre>
<pre dir="ltr">
<strong><span style="font-family:droid arabic kufi">
</pre>
[p]
وهذه الداله </pre>
[p]
CODE
</span></strong></pre>
<pre dir="ltr">
<strong><span style="font-family:droid arabic kufi">Function CountFormulas2(Source As Range)
CountFormulas2 = Source.SpecialCells(xlCellTypeFormulas, 23).Count
End Function</span></strong></pre>
<pre dir="ltr">
<strong><span style="font-family:droid arabic kufi">
</pre>
[p]
CODE
</span></strong></pre>
<pre dir="ltr" style="text-align:start">
<strong><span style="font-family:droid arabic kufi">Function CountFormulas3(Source As Range)
Dim c As Range
Dim iCount As Integer
iCount = 0
For Each c In Source
If c.HasFormula Then iCount = iCount + 1
Next
CountFormulas3 = iCount
End Function</span></strong></pre>
<pre dir="ltr">
<strong><span style="font-family:droid arabic kufi">
</pre>
عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
