مساعده فى تحويل معادلة الى كود

[مختار حسين محمود]

السلام عليكم

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

مع شرح طريقة التحويل من معادلة الى كود     أكرر                           المهم طريقة التحويل    إن أمكن

تحويل معادلة جمع الى كود.rar

تم تعديل ديسمبر 2, 2014 بواسطه مختار حسين محمود

[مختار حسين محمود]

للرفع

[الجموعي]

تفضل أخي هذه المحاوله وعسى تفيدك

تم تحويل بالماكرو

علما أني لست بخير في تحويل المعادلات إلى كود

تحويل معادلة جمع الى كود.rar

[مختار حسين محمود]

ممتاز أخى الجموحى الكود تم تنفيذه وبدقه (على صف واحد)

المطلوب تعديل الكود ليجمع عدة صفوف وبضغطة واحدة

[الشهابي]

أخي العزيز / مختار حسين محمود

أفضل طريقة لتحويل معادلة إلى كود وهي عن طريق تسجيل ماكروا للمعادلة الأولى عن طريق تحرير المعادلة والنقر على انتر ليتم تسجيلها  كما فعل الأستاذ القدير الجموعي 

ومن ثم استعمل هذه الجزئية التي تعلمتها من أستاذنا الكبير عبد الله باقشير وهي تصلح لأي معادلة تريد تحويلها كود أو على الأصح وضع قيمة المعادلة بدلا منها من أجل تخفيف حجم الملف 

والجزئية هي 

 .Value = .Value

حيث يتم تعديل الكود ليتم تبطيق المعادلة على كافة الصفوف التي تحتوي على بيانات

هنا قمت بافتراص أن البيانات المعتمدة لتنفيد المعادلة هي في العمود (B) فيتم تطبيقها على بيانات هذا النطاق 

فلو وجدت خلية في العمود (B) فارغة لن يتم تطبيق الكود في الخلية المقابلة لها في العمود (U)

هذا الكود طبقه في ملفك 

Sub Macro1()لا
  lr = Range("B10000").End(xlUp).Row
  With Range("U3:U" & lr)
    .FormulaR1C1 = _
        "=IF(AND(RC[-18]=""غـ"",RC[-16]=""غـ"",RC[-14]=""غـ"",RC[-12]=""غـ"",RC[-10]=""غـ"",RC[-8]=""غـ"",RC[-6]=""غـ"",RC[-4]=""غـ"",RC[-2]=""غـ""),""غـ"",SUM(RC[-18],RC[-16],RC[-14],RC[-12],RC[-10],RC[-8],RC[-6],RC[-4],RC[-2]))"
    .Value = .Value
    End With
End Sub

وإذا أردنا أن ينفذ الكود بصورة أسرع يمكن إضافة هذه الأسطر للكود ليصبح هكذا 

Sub Macro1()
Application.ScreenUpdating = False
Application.Calculation = xlManual

  lr = Range("B10000").End(xlUp).Row
  With Range("U3:U" & lr)
    .FormulaR1C1 = _
        "=IF(AND(RC[-18]=""غـ"",RC[-16]=""غـ"",RC[-14]=""غـ"",RC[-12]=""غـ"",RC[-10]=""غـ"",RC[-8]=""غـ"",RC[-6]=""غـ"",RC[-4]=""غـ"",RC[-2]=""غـ""),""غـ"",SUM(RC[-18],RC[-16],RC[-14],RC[-12],RC[-10],RC[-8],RC[-6],RC[-4],RC[-2]))"
    .Value = .Value
    End With
    
    Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

تقبل تحياتي

[مختار حسين محمود]

أخى الشهابى السلام عليكم

شكرا على هذه المعلومات القيمة

جارى  التنفيذ

تقبل تحياتى وبارك الله فيك

[مختار حسين محمود]

أخى الشهابى  لك كل الاحترام والتقدير  

 

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

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

 

تحويل معادلة جمع الى كود.rar