اذهب الي المحتوي
أوفيسنا

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


hasso

الردود الموصى بها

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

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

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)

 

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم

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

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

بن علية حاجي

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

سليم حاصبيا

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information