A(10)B(5.45)C(.05)<br />

Function SumIn(area, Optional b$ = "()") As Double
'Developer: Eslam Abdullah
Dim a$, ar, nm: With CreateObject("VBScript.RegExp")
a = Mid(b, 1, 1): b = Mid(b, 2, 1)
a = IIf(InStr("(){}[]^$+*?.|\", a), "\" & a, a): b = IIf(InStr("(){}[]^$+*?.|\", b), "\" & b, b)
.Pattern = a & "(\d*\.?\d+)" & b: .Global = True

For Each ar In area
    For Each nm In .Execute(ar)
        SumIn = SumIn + nm.SubMatches(0)
    Next nm
Next ar

End With
End Function

ما هذا هذا ماذا (جمله مقتبسه من ا/ياسر خليل )
هذه دالة معرفة بسيطه وبناء تلك الدالة هو

CODE

=SumIn(area,[brackets])<br />

سهل جدا هتقولى ازاى لوك يعنى بص يعنى انظر
تحتوى الدالى على 2 باراميتر فحسب وفقط لا غير

اول باراميتر: لادخال نطاق الخلايا اللى هتجمع منه الارقام وبس
تانى باراميتر: لكتابة رمزين الذان يحيطان بالارقام وبس برضوا
واذا تجاهلت الباراميتر التانى ستاخذ الدالة افتراضيا بالقوسين () وبس برضوا برضوا

يلا بينا ناخد مثال ونكتب سوا فى الخلايا A1 و A2 و C1 النص التالى (انسخ النص فى الــ 3 خلايا أدناه)

A(10)B(5.45)C(.05)<br />

=SumIn(A1,"()")

=SumIn(A1)<br />

=SumIn(A1:A2,"()")

=SumIn((A1:A2,C1),"()")