ارجو المساعدة فى الكود المرفق

[mishoexcel]

برجاء المساعدة فى الكود التالى يوجد خطا و لا اعلم ماهو

و شكرا

 

Function SumNumOnly(rngS As Range, Optional strDelim As String = " ") As Double    Dim xNums As Variant, lngNum As Long
    xNums = Split(rngS, strDelim)
    For lngNum = LBound(xNums) To UBound(xNums)
        SumNumOnly = SumNumOnly + Val(xNums(lngNum))
    Next lngNum
End Function

[أ / محمد صالح]

الدالة صحيحة بلا أي مشاكل 

وظيفتها جمع الأرقام من مدى به نصوص وأرقام بينهما مسافة

ربما يكون الخطأ في وضع أول سطر من الدالة بجوار التعريف بها

حيث أن الترتيب الصحيح هكذا

Function SumNumOnly(rngS As Range, Optional strDelim As String = " ") As Double
Dim xNums As Variant, lngNum As Long
    xNums = Split(rngS, strDelim)
    For lngNum = LBound(xNums) To UBound(xNums)
        SumNumOnly = SumNumOnly + Val(xNums(lngNum))
    Next lngNum
End Function

بالتوفيق