أبو إسحاق قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 السلام عليكم تحية طيبة للجميع عندي معادلة صفيف في النطاق "H7:H26" تبدأ من الصف 7 إلى الصف 26 {=IF(OR(ISBLANK(C7:G7)),"",ROUND(SUM(C7,D7,E7,F7,G7),0))} المطلوب تحويها لكود vba حيث يتم تنفيذ كود المعادلة في النطاق "H7:H26" بدون إستخدام الأمر .FillDown تحويل خلايا النطاق إلى قيم .Value بدلا من معادلات يتم تحديث ناتج المعادلة تلقائي عند إدخال أو تغيير المعطيات ( بالضبط كما تعمل المعادلة بنفسها ) يا ريت الكود كاملا ولكم الشكر المثال مرفق Book100.zip رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 جرب هذا الماكرو Option Explicit Sub Formula_to_constante() Dim My_Rg As Range Dim x, y As Integer Set My_Rg = Range("b7").CurrentRegion x = My_Rg.Rows.Count y = My_Rg.Columns.Count Set My_Rg = My_Rg.Offset(2).Resize(x - 2, y - 1) Range("h7:h" & x + 4).ClearContents Cells(7, y + 1).FormulaArray = "=IF(OR(ISBLANK(C7:G7)),"""",ROUND(SUM(C7:G7),0))" Range("h7:h" & x + 4).Value = Range("h7:h" & x + 4).Value End Sub 1 رابط هذا التعليق شارك More sharing options...
أبو إسحاق قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 أشكرك أخي سليم على الرد الكود ممتاز هل يمكن أن يعمل الكود تلقائي بمجرد أدخال المعطيات لعملية الجمع لأن الكود الحالي لا يعمل تلقائي بإنتظارك أخي ولك الأجر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 تم التعديل كما تريد Book100 Salim.rar 1 رابط هذا التعليق شارك More sharing options...
أبو إسحاق قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 مشكور أخي سليم الكود يعمل بإمتياز ربنا يحفظك وزادك الله من فضله 1 رابط هذا التعليق شارك More sharing options...
أبو إسحاق قام بنشر أبريل 28, 2017 الكاتب مشاركة قام بنشر أبريل 28, 2017 لفائدة اكثر هل ممكن شرح الكود اذا حبيت أتوسع في الملف واضيف معادلات اخرى وماذا يعني كل سطر وما فائدة الأرقام 1+ و 4+ و1- و2- للصفوف والأعمدة وجازاك الله خيرا وزادك علما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.