جمع ارقام خليه

[originallaptop]

من فضلكم

اريد طريقه لجمع محتويات خليه تحتوى على رقم او تاريخ

مثلا : 12345 يكون الناتج = 15 أي حاصل جمع 1+2+3+4+5

مثلا : 11/1/2016 يكون الناتج = 12 أي حاصل جمع 1+1+1+2+0+1+6

وشكرا مقدما

 

تم تعديل يونيو 8, 2016 بواسطه originallaptop

[عبدالسلام ابوالعوافي]

جمع الارقام يختلف عن جمع التاريخ 

جمع الارقام 

=SUM(IFERROR(--MID(B1;ROW($B$1:$B$20);1);0))

جمع التاريخ

=SUM(IFERROR(--MID(--SUBSTITUTE(TEXT(B1;"dd/mm/yyyy");"/";0);ROW($B$1:$B$20);1);0))

معادلة صفيف . اي يجب الضعط علي كنترول شفت انتر

[originallaptop]

43 minutes ago, عبدالسلام ابوالعوافي said:

جمع الارقام يختلف عن جمع التاريخ 

جمع الارقام 

=SUM(IFERROR(--MID(B1;ROW($B$1:$B$20);1);0))

جمع التاريخ

=SUM(IFERROR(--MID(--SUBSTITUTE(TEXT(B1;"dd/mm/yyyy");"/";0);ROW($B$1:$B$20);1);0))

معادلة صفيف . اي يجب الضعط علي كنترول شفت انتر

شكرا جزيلا لحضرتك يا استاذى الفاضل . ولكن لم أستطع العمل بطريقه صحيحه . من فضلك ممكن ارفاق ملف اكسيل . وشكرا جزيلا

[originallaptop]

2 hours ago, عبدالسلام ابوالعوافي said:

جمع الارقام يختلف عن جمع التاريخ 

جمع الارقام 

=SUM(IFERROR(--MID(B1;ROW($B$1:$B$20);1);0))

جمع التاريخ

=SUM(IFERROR(--MID(--SUBSTITUTE(TEXT(B1;"dd/mm/yyyy");"/";0);ROW($B$1:$B$20);1);0))

معادلة صفيف . اي يجب الضعط علي كنترول شفت انتر

 

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

جرب هذا الملف

 

Special_Sum.rar

[originallaptop]

43 minutes ago, سليم حاصبيا said:

جرب هذا الملف

 

Special_Sum.rar

شكرا جزيلا لحضرتك .

من فضلك لدى استفسار بخصوص الملف المرفق . كيف انقل الكود الى شيت اخر . وشكرا جزيلا

[عبدالسلام ابوالعوافي]

الاستاذ سليم قدم حل متكامل .. اما ماقدمته فهو معادلات كما في المرفق

Test.rar

[originallaptop]

12 minutes ago, عبدالسلام ابوالعوافي said:

الاستاذ سليم قدم حل متكامل .. اما ماقدمته فهو معادلات كما في المرفق

Test.rar

شكرا جزيلا لحضرتك

[omar elhosseini]

الاخ سليم حاصبيا

بعد اذنك اختلف معك في الرأي

ناهيك عن استخدام

SUMPRODUCT

مع الدتا مئات الصفوف من الدتا سيكون الملف بطيئا وليس بالمهم هنا

المهم هنا هو ان المستخدم العادي لن يري ما بين السطور

لا اكثر من ان يقوم بنسخ الكود الي ملفه

اذا فعل ذلك لن يعمل الكود

فأذ قام بعض الا خوة بتجربة نسخ الكود خاصتك  وبيانات وررقة العمل الي ملف جديد 

لن يعمل الملف الجديد

ارجو من بعض الاخوة تجربة ذلك واخبارنا بالنتبجة

انظر ماذا يقول اخونا originallaptop

On 6/8/2016 at 10:56 PM, originallaptop said:

شكرا جزيلا لحضرتك .

من فضلك لدى استفسار بخصوص الملف المرفق . كيف انقل الكود الى شيت اخر . وشكرا جزيلا

 

الاخ originallaptop

انظر المرفقات

Sum_Number_Only.rar

 

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

اعمل كما في الفيدو التالي بعد ان تفتح ملفك وتفتح الملف الذي به الاكواد

فيديو نقل الاكواد

 

 

تم تعديل يونيو 11, 2016 بواسطه عمر الحسيني

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

8 ساعات مضت, عمر الحسيني said:

الاخ سليم حاصبيا

بعد اذنك اختلف معك في الرأي

ناهيك عن استخدام

SUMPRODUCT

مع الدتا مئات الصفوف من الدتا سيكون الملف بطيئا وليس بالمهم هنا

المهم هنا هو ان المستخدم العادي لن يري ما بين السطور

لا اكثر من ان يقوم بنسخ الكود الي ملفه

اذا فعل ذلك لن يعمل الكود

فأذ قام بعض الا خوة بتجربة نسخ الكود خاصتك  وبيانات وررقة العمل الي ملف جديد 

لن يعمل الملف الجديد

ارجو من بعض الاخوة تجربة ذلك واخبارنا بالنتبجة

انظر ماذا يقول اخونا originallaptop

 

الاخ originallaptop

انظر المرفقات

Sum_Number_Only.rar

 

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

اعمل كما في الفيدو التالي بعد ان تفتح ملفك وتفتح الملف الذي به الاكواد

فيديو نقل الاكواد

 

 

تم معالجة الامر و ذلك بالاستغناء عن الاسماء المعرفة

 

Special_Sum advanced 1.rar

[omar elhosseini]

الاخ سليم حاصبيا

احسنت اخي سليم حاصبيا

 

 

تم تعديل يونيو 11, 2016 بواسطه عمر الحسيني

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

بارك الله فيكم إخواني على هذه الحلول الجميلة والرائعة

وإليكم الدالة المعرفة التالية لتفي بالغرض بالنسبة للطلب وهي بسيطة جداً

Function SumDigits(Number)
    Dim I As Integer
    For I = 1 To Len(Number)
        SumDigits = SumDigits + Val(Mid(Number, I, 1))
    Next I
End Function

لاستخدام الدالة

=SumDigits(A1)

تقبلوا تحياتي وكل عام وأنتم بخير

 

[صلاح الصغير]

chapeau