تحويل المعادلات الى كود

[الذيب 2015]

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

 

هل يمكن تحويل المعادلات بالملف المرفق ( الخلايا باللون البنفسجي )

الى أكواد 

 

اذا كان هناك أي استفسار 

 

فأنا موجووود باذن الله 

 

 

تحياتيChange to code.rar

 

 

 

[الشهابي]

أخي العزيز / ذيب اليمن

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

 .Value = .Value

والكود  كالتالي

Sub kh_value_value()
LR = Range("C10000").End(xlUp).Row
 With Range("C9:C" & LR).Offset(0, 34)
     .ClearContents
     .FormulaR1C1 = _
        "=30-(30-(COUNTIF(RC[-31]:RC[-1],""A"")+COUNTIF(RC[-31]:RC[-1],""L"")+(COUNTIF(RC[-31]:RC[-1],""W"")*2)+(COUNTIF(RC[-31]:RC[-1],""T"")+(COUNTIF(RC[-31]:RC[-1],""C"")+(COUNTIF(RC[-31]:RC[-1],""N""))))))"
     .Value = .Value
      End With
 With Range("C9:C" & LR).Offset(0, 35)
     .ClearContents
     .FormulaR1C1 = _
       "=IF(SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2])>2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2]))"
     .Value = .Value
      End With
 With Range("C9:C" & LR).Offset(0, 36)
     .ClearContents
     .FormulaR1C1 = _
        "=SUMIF(R7C6:R7C35,""F"",RC[-33]:RC[-4])"
     .Value = .Value
      End With
     With Range("C9:C" & LR).Offset(0, 37)
     .ClearContents
     .FormulaR1C1 = _
        "=SUMIF(R7C6:R7C35,""H"",RC[-34]:RC[-5])"
     .Value = .Value
      End With
       With Range("C9:C" & LR).Offset(0, 38)
     .ClearContents
     .FormulaR1C1 = _
       "=SUMIF(R7C6:R7C36,""N"",RC[-35]:RC[-5])-RC[-3]"
     .Value = .Value
      End With
      With Range("C9:C" & LR).Offset(0, 39)
     .ClearContents
     .FormulaR1C1 = _
       "=RC[-1]+RC[-2]+RC[-3]+RC[-4]"
     .Value = .Value
      End With
End Sub 

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

 

 

Book1.rar

[وليد زقزوق]

اريد معرفة تطبيق هذا الكود علي ملف اعمل به فعلا

وبه بعض الاكواد وبعض المعادلات ولكن نسبه المعادلات اكثر نسبيا

واريد تحويلها الي اكواد

وهل امسح بعد ذلك المعادلات

[الشهابي]

أخي العزيز / وليد زقزوق 

لو ترفق ملف سوف يكون أفضل 

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

ومن ثم يتم تحويلها إلى قيم 

أو يمكنك استخدام عمل آخر من أعمال أستاذن الكبير / عبد الله باقشير  ( كود تحويل المعادلة إلى كود )

وهذا شرح للأستاذ القدير الفاضل / طارق محمود على هذا الرابط 

http://www.officena.net/ib/index.php?showtopic=45472

[الذيب 2015]

السلام عليكم 

أخوي الشهابي 

تسلم على المرور وعلى الرد السريع وزادك الله علما ....

 

وأشكر كذلك الاستاذ القدير / عبدالله باقشير 

 

ولكن هل يمكن عمل هذا  الكود فقط  بدون ضغط اي زر ....

 

يعمل الكود اتوماتيكيا ...

 

 

وشكرا 

[الشهابي]

أخي العزيز / ذيب اليمن

يمكن ذلك فعند حدوث تغير في النطاق من العمود ( F ) إلى العمود (AJ) يتم استدعاء الكود 

لاحظ المرفق 

Book1.rar

[الذيب 2015]

الاستاذ / الشهابي 

 

جزاك الله خيرا وزادك الله علما