اريد تحويل معادلة الجمع هذه الى فى الشيت الى كود

[رامي قلعجية]

السلام عليكم

ارجو المساعدة 

عندي ملف اريد الجمع فيه من دون معادلة لأني اريدها بالكود 

المعادلة هية IF(A7<>0;SUM(E7*C7);"")=

ولكن عندي كود في الشيت وانا اريد الجمع تلقائيا عند الكتابة في العامود c

ولا اريد ان يظهر عندي الجمع الا عند الكتابة بالخلاية التي يجمع منها فقط 

ارجو وضع الكود في كود الصفحة 

وارجو  وضع الكود في ماكرو جديد لكي يتثنا لي الاستفادة منه في شيتات ثانية 

الشيت اسمه  fatoura وشكرا سلفا

 

 

fatoura7.rar

[Ali Mohamed Ali]

تفضل لك ما طلبت وهذا هو الكود المستخدم

Sub x()
Range("F7:F1000").Formula = "=IF(A7<>0,SUM(E7*C7),"""")"
End Sub

ويوضع كود اخر فى حدث ورقة fatoura  وهو

Private Sub Worksheet_change(ByVal Target As Range)
Call x
End Sub
    

وتفضل الملف بعد وضع الأكواد به

 

fatoura7.xlsm

[رامي قلعجية]

ماشاء الله عنك اخ علي شكرا لك كثيرا سوف اجربه 

واعلق عليه 

[رامي قلعجية]

اخي علي شكرا لك ولكن الدالة موجودة انا لا اريدها  الدالة لقد حزفت الدالة  وأريد الجمع من دون دالات فقط عن طريق الكود

fatoura7.rar

[Ali Mohamed Ali]

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

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

 

[رامي قلعجية]

نعم صحيح شكرا لك 

احسنت انت رجل عظيم اشكرك من كل قلبي