معادله جمع القيم مثلا س + 3 س +4 س يعطي 8

[مانو المصري]

السلام عليكم .. 

كيف حالكم .. اتمنى ان تكونوا بخير .

 

اريد معادلة جمع  القيم مثلا س + 3 س +4 س  يعطي "8"

الشرط على قيمة معينة وليس جمع عموماً لان هناك اكثر من ثوابت 

اريده يجمع فقط ال س ..  لان الصف يوجد به ال س و ال ص وغيره .. ويعطي النتيجه ارقام وليس جمع  8 س .. 
ارجو ان اكون وضحت طلبي ,.. 
مشكوورين مقدماً 

 

تم تعديل يوليو 13, 2017 بواسطه Manno0003

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

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

غير مفهوم ما تريد، هل من التوضيح أكثر؟؟

[مانو المصري]

الان, بن علية حاجي said:

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

غير مفهوم ما تريد، هل من التوضيح أكثر؟؟

تم تعديل الموضوع .. 
شكراً لسرعة ردك .. وتم التوضيح .. 
 

مرفق بالمطلوب .. 

واعتذر عن التأخير .. 
 

جمع ثوابت.rar

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

السلام عليكم

مازال المطلوب غير مفهوم...

بن علية

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

السلام عليكم

حسب ما فهمت وضعت تحت كل حرف مجموع العبارات التي تحوي هذا الحرف في الصف نفسه...

بن علية

جمع ثوابت.rar

[مانو المصري]

تم توضيح المطلوب مره اخرى 

شكراً لك يا اخي على سرعة الرد .. 
واسف الكود الذي تم تطبيقه ليس هو المطلوب :( 

جمع ثوابت تعديل .rar

تم تعديل يوليو 13, 2017 بواسطه Manno0003

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

السلام عليكم

نعم اآن فهمت ما تريده بالضبط، بمعادلات مساعدة تم عمل المطلوب...

بن علية

جمع ثوابت.rar

[مانو المصري]

22 دقائق مضت, بن علية حاجي said:

السلام عليكم

نعم اآن فهمت ما تريده بالضبط، بمعادلات مساعدة تم عمل المطلوب...

بن علية

جمع ثوابت.rar

يفي بالغرض اخي .. 
مشكوور ..  شكراً لتعبك .. 
جاري دراسة الكود .. وشكراً لك مره اخرى

 

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

السلام عليكم

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

Function SumIfLetter(rng As Range, s As String) As Long
    Dim arr     As Variant
    Dim itm     As Variant

    arr = rng.Value
    
    For Each itm In arr
        If itm Like "*" & s Then
            itm = Replace(itm, s, "")
            If itm = "" Then itm = 1
            SumIfLetter = SumIfLetter + itm
        End If
    Next itm
End Function

لاستخدام الدالة المعرفة : ضع الدالة داخل موديول عادي

وفي ورقة العمل اكتب المعادلة التالية في الخلية J8 طبقاً لآخر ملف مرفق في آخر مشاركة

=SumIfLetter($A$7:$I$7,J6)

ثم قم بسحبها لليسار

تقبل تحياتي

[مانو المصري]

23 ساعات مضت, ياسر خليل أبو البراء said:

السلام عليكم

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

Function SumIfLetter(rng As Range, s As String) As Long
    Dim arr     As Variant
    Dim itm     As Variant

    arr = rng.Value
    
    For Each itm In arr
        If itm Like "*" & s Then
            itm = Replace(itm, s, "")
            If itm = "" Then itm = 1
            SumIfLetter = SumIfLetter + itm
        End If
    Next itm
End Function

لاستخدام الدالة المعرفة : ضع الدالة داخل موديول عادي

وفي ورقة العمل اكتب المعادلة التالية في الخلية J8 طبقاً لآخر ملف مرفق في آخر مشاركة

=SumIfLetter($A$7:$I$7,J6)

ثم قم بسحبها لليسار

تقبل تحياتي

شكراً اخير على الرد .. 
لكن عذراً الكود لا يعمل .. 
رجاء تطبيقه على الملف .. او شرح طريقة تركيبه .. 
مرفق صور من الكود بالشكل الذي طبقته به .
 

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

توضع الدالة في موديول عادي وليس في حدث ورقة العمل

عموماً تفضل الملف

 

ودا رابط لفيديو في التعامل مع البدايات لربما لربما يفيدك

 

جمع ثوابت.rar

[مانو المصري]

الان, ياسر خليل أبو البراء said:

توضع الدالة في موديول عادي وليس في حدث ورقة العمل

عموماً تفضل الملف

 

ودا رابط لفيديو في التعامل مع البدايات لربما لربما يفيدك

 

جمع ثوابت.rar

تمام .. مشكووور اخي .. 
الكود اصبح يعمل .. 
والخطأ ايضا  كان وجود الكود هكذا .. 

اقتباس

=SumIfLetter($A$7:$I$7,J6)

الفاصلة بدوون  نقطة  " ; "..  اكيد خطاأ مطبعي .. 
شكراً لك .. ولكم خاالص تحياتي .

 

 

[مانو المصري]

اعتذر اخي .. @ياسر خليل أبو البراء
لكن ايضا هناك مشكله .. اتمنى ان تكون بسيطة .. 
مرفق المشكلة بالصورة |
 

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

بسيطة أخي الكريم 

في الدالة المعرفة في أول سطر فيها .. هتلاقي آخر كلمة Long استبدلها بكلمة Double للتعامل مع الكسور ..

Function SumIfLetter(rng As Range, s As String) As Double

وبالنسبة للفاصلة المنقوطة مش خطأ مطبعي ..دا بيرجع لإعدادات الويندوز (أنا بفضل التعامل مع الفاصلة العادية وليست المنقوطة)
ويمكن تغييرها كما ترغب

[مانو المصري]

في 7/15/2017 at 03:54, ياسر خليل أبو البراء said:

بسيطة أخي الكريم 

في الدالة المعرفة في أول سطر فيها .. هتلاقي آخر كلمة Long استبدلها بكلمة Double للتعامل مع الكسور ..

Function SumIfLetter(rng As Range, s As String) As Double

وبالنسبة للفاصلة المنقوطة مش خطأ مطبعي ..دا بيرجع لإعدادات الويندوز (أنا بفضل التعامل مع الفاصلة العادية وليست المنقوطة)
ويمكن تغييرها كما ترغب

سلمت يمينك ... 
شكراً جزيلاً .. 
ولك خالص تحياتي ..  بعتذر ع التأخير فى الرد .

 

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

بارك الله فيك وتسلم من كل سوء

الحمد لله أن تم المطلوب على خير

تقبل تحياتي