shoaip قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 أريد جمع مجموعة أرقام في خلية والناتج في خليه اخرى مثال :خليه فيها10+100+30+50 وتظهر كما هي بالتفنيط هذا والناتج في خلية أخرى رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 بما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك - تفضل معادلة جمع مبالغ (10+20+30)=60 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 14, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 14, 2020 جرب هذا الملف Option Explicit Sub test() Dim ar Dim i%, Formul$, K ar = Array("+", "-", "'", "?", """""", ",", "/", "@") For K = 1 To Range("a1").CurrentRegion.Rows.Count Formul = Trim(Replace(Range("A" & K), ar(0), ",")) For i = 1 To UBound(ar) Formul = Replace(Formul, ar(i), ",") Next Cells(K, 3) = Evaluate("sum(" & Formul & ")") Formul = "" Next End Sub shoaip.xlsm 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان