كود جمع

**Akram Galal** · يناير 17, 2013

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

أريد عمل زر عند الضغط علية يقوم بجمع الخلايا من D2 إلي D20

وإظهار النتيجة في الخلية E5

وجزاكم الله خيراً .

تم تعديل يناير 17, 2013 بواسطه Akram Galal

**رجب جاويش** · يناير 17, 2013

تفضل أخى


Sub ragab()

Range("E5") = Application.WorksheetFunction.Sum(Range("D2:D20"))

End Sub

**Akram Galal** · يناير 19, 2013

شكرا يا أستاذ رجب

وأريد طلب أخر وهو

أريد عمل زر في ورقة 1 عند الضغط عليها يتم كتابة مايلي في الخلية a3

=1+2

بمعني أنني أريد إدراج المعادلة السابقة في الخلية a3 عند الضغط عل الزر

وجزاكم الله خيرا.

رامي الخبيري · يناير 19, 2013

بعد إذن أستاذي رجب جاويش

أنا أعمل تحت إشرافه ,,

تفضل أخي

**رجب جاويش** · يناير 19, 2013

أخى الفاضل /romio52225

العفو أخى الفاضل

تسلم ايديك

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