لو سمحتم مطلوب تحويل معادلة جمع الى كود

[nash60]

بسم الله الرحمن الرحيم

 

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

 

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

المعادلتين الى كود بحدث عند تغيير البيانات والملف المرفق موضح به المطلوب .

 

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

 

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

Test.rar

[شوقي ربيع]

السلام عليكم

جرب هدا ارجو ان يفي بالطلب انشاء الله

Test.rar

[nash60]

شكرا لك اخي الكريم على تكرمك بالرد ولكن صحيح ان الكود يعمل ولكن هناك أمران مهمان بالنسبة لي

 1 - ان الكود لا يعمل عندما اضعه في حدث عند التغيير في الورقة ليعمل اتوماتيكيا عند تحديث البيانات ولا حاجة للزر

 2 - ان الكود محدد ب200 صف وتكون الخلايا مملوءة بالاصفار واعتقد انه يمكن تعديلها لتكون محدودة بالجدول فقط

 

ارجو التعديل ان امكن ولكم جزيل الشكر

[شوقي ربيع]

السلام عليكم

ضع هدا الكود في حدت  Worksheet_SelectionChange

 

For a = 2 To 200
If Cells(a, 1) <> "" Then
Cells(a, 46) = "=RC[-27]+RC[-21]"
Cells(a, 47) = "=(RC[-26]+RC[-20])*R1C48"
End If
Next a

كما يمكنك زيادة مدى الكود بالزيادة في نهاية المتغير a

تم تعديل مارس 14, 2013 بواسطه hoorabie

[nash60]

اشكرك اخي الكريم جزيل الشكر

وجعله الله في ميزان حسناتك ان شاء الله