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

nash60 · مارس 14, 2013

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

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

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

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

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

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

**شوقي ربيع** · مارس 14, 2013

السلام عليكم

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

nash60 · مارس 14, 2013

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

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

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

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

**شوقي ربيع** · مارس 14, 2013

السلام عليكم

ضع هدا الكود في حدت 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 · مارس 15, 2013

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

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

الردود الموصى بها