سؤال في جمع خلايا دفعة واحدة

[بكار للأبد]

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

عندي سؤال بسيط أو أرجو أن يكون بسيطاً كما أتمنى

لو افترضنا أن هناك معادلة جمع عادية في الخلية a1 ، a2 ، a3 وهكذا حتى a250 مثلاً وأردت أن أضيف مبلغ موحد إلى تلك الخلايا وليكن 350 جنيه مثلاً ، فهل يمكن أن يتم ذلك في خطوة واحدة بسيطة بدلاً من أن أضيف المبلغ على كل خلية على حده .......... وشكراً جزيلاً مقدماً .

 

[Ali Mohamed Ali]

وعليكم السلام تفضل اخى الكريم

 

زيادة وجمع رقم تلقائى الى مجموعة ارقام.xlsm

تم تعديل أكتوبر 16, 2018 بواسطه ali mohamed ali

[سليم حاصبيا]

بعد اذن اخي علي 

لا ضرورة لهذا الكود الطويل

يكفي هذا الكود

Sub Auto_add()
Range("d1").Copy
Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Application.CutCopyMode = False
Range("a2").Select
End Sub

الملف مرفق

auto_add_Num.xlsm

[Ali Mohamed Ali]

أحسنت بارك الله فيك استاذ سليم كود ممتاز

 

[بكار للأبد]

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

كود أكثر من رائع أستاذ سليم - دائماً تمتعنا وتبهرنا بأكوادك المميزة

[نبيل عبد الهادي]

,كذلك ولاثراء الموضوع في حالة الطرح

غير هذا السطر

Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

بهذا السطر

Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract

 

[سليم حاصبيا]

منذ ساعه, نبيل عبد الهادي said:

,كذلك ولاثراء الموضوع في حالة الطرح

غير هذا السطر

Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

بهذا السطر

Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract

 

لا ضرورة لغمل كود للطرح يكفي ان يضع عدداً سالباُ في الخلية D1