مساعد في تكوين دالة

[hasso]

السلام عليكم
أخوتي الاعزاء أرجو منكم المساعدة في هذا الملف

Poinatge.rar

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الدالة المعرفة التالية

Function SumIt(rng As Range)
    Dim c As Range
    Dim counter As Double
    Dim x As Variant
    Dim i   As Long
    Dim z As Double
    
    counter = 0
    
    For Each c In rng
        x = Split(c, "+")
        For i = LBound(x) To UBound(x)
            If x(i) = "ح" Then
                z = 800
            ElseIf x(i) = "ع" Then
                z = 1000
            ElseIf IsNumeric(x(i)) Then
                z = x(i) * 200
            End If
            counter = counter + z
        Next i
    Next c
    
    SumIt = counter
End Function

لاستخدام الدالة قم بوضع المعادلة التالية في الخلية H2 ثم اسحبها لأسفل

=SumIt(B2:F2)

 

[hasso]

أخي ابو البراء

شكرا على المساعده وهذا المجهود

لكن الدالة بها نقص و هذه صورة الحل الصحيح

[بن علية حاجي]

السلام عليكم ورحمة الله

أقدم مع حل الأخ الكريم "ياسر خليل"، حلا آخر بالمعادلات وجدول مساعد...

بن علية

Poinatge.rar

[ياسر خليل أبو البراء]

أخي الكريم الدالة صحيحة والنتائج لدي سليمة

تأكد أنه عندما قمت بنسخ الدالة المعرفة من المشاركة أن اتجاه الكتابة باللغة العربية ليتم نسخ الحروف العربية بشكل صحيح .. حيث تحتوي الدالة على حرفي الـ ع و ح

بارك الله فيك أخي الغالي بن عليه وجزيت خيراً

[سليم حاصبيا]

بعد اذن الاخ الحبيب ابو البراء و الاخ الصديق بن علية

هذه المعادلة في الخلية j2 و تسحب نزولاً (استناداً الى ملف الاخ  بن علية)

=SUMPRODUCT(SUMIFS($L$3:$L$22,$K$3:$K$22,$B2:$F2))

 

[hasso]

السلام عليكم

أخوتي الاعزاء

شكرا جزيلا لكل من ساعدني وساعد بها اخرين
شكر خاص ل 

بن علية حاجي

ياسر خليل أبو البراء

سليم حاصبيا

شكرا على المساعده وهذا المجهود

و جعلها الله في ميزان حسناتكم

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

اللهم اجعل هذا العمل في ميزان حسناتهم و جعله الله صدقه جارية علي علمهم
اللهم ارحمهم و والديهم و ذرياتهم الي يوم الدين 
و انا متاسف علي التاخر في الرد

كان اله في عون العبد ما دام العبد في عون اخيه