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

جمع الأرقام في خلية واحدة بشكل عمودى


badawey

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

السلام عليكم

جرب هكذا

انشاء مودويل والصق الدالة المركبة التاليه فيه

Public Function Ali_Sum(Rn As Range) As Currency
On Error Resume Next
Application.Volatile
Cr = Chr(10): Vl = Split(Rn.Value, Cr)
For ii = LBound(Vl) To UBound(Vl)
 x = x + Val(Vl(ii))
Next
Ali_Sum = x
On Error GoTo 0
End Function

بعدها استخدمها في خلية الجمع كالتالي 

=Ali_Sum(A1)
  • Like 1
رابط هذا التعليق
شارك

عفوا أستاذى ( عباد )

لم أرى مشاركة حضرتك إلا بعد الرفع ، عفوا وأرجو المعذرة لأنى لو رأيت مشاركة حضرتك لمتنعت عن رفع مشاركتى

تقبل عذرى أستاذى

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

استاذ جمال عبدالسميع

لا عليك اخي الكريم فمعادلتك من العيار الثقيل

لم اتوقع وجود معادلة تقوم بهذا العمل 

جزاك الله كل خير

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

شهادة عبقرى من عباقرة المنتدى لتلميذة وسام على صدرة ، يفتخر بها دائما

جزاك الله عنى خيرا أستاذى

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

أستاذنا الفاضل ملك المعادلات / جمال عبد السميع

 

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

 

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

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

عذرا أخى

هل هناك فرق بين الجمع بشكل رأسى أو بشكل أفقى ؟ لأن حضرتك إللى تستطيع التحكم فى الشكل سواء رأسى أو أفقى كالما النتيجة واحدة !!!!!!!!!!!!!

ثانيا - ماذا تقصد بجمع رقم العشرة فما فوق ؟ وإلى أى رقم بعد العشرة ؟

تم تعديل بواسطه جمال عبد السميع
رابط هذا التعليق
شارك

الاخ الكريم

جمال

بارك الله فيك

ودائما ما نجد منك السرعه والعقلانيه فى المساعده

طبعا معادلات تدل على امكانياتك وقدراتك

نسأل الله ان يزيدك من فضله وعلمه

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

معادلة قوية من الاستاذ جمال ذكرتني لحل لنفس الفكرة بنفس الاسلوب للاستاذ الكبير يحيى حسين 

بارك الله فيك اخي جمال

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information