بكار للأبد قام بنشر أكتوبر 16, 2018 مشاركة قام بنشر أكتوبر 16, 2018 السلام عليكم ورحمة الله وبركاته عندي سؤال بسيط أو أرجو أن يكون بسيطاً كما أتمنى لو افترضنا أن هناك معادلة جمع عادية في الخلية a1 ، a2 ، a3 وهكذا حتى a250 مثلاً وأردت أن أضيف مبلغ موحد إلى تلك الخلايا وليكن 350 جنيه مثلاً ، فهل يمكن أن يتم ذلك في خطوة واحدة بسيطة بدلاً من أن أضيف المبلغ على كل خلية على حده .......... وشكراً جزيلاً مقدماً . رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 16, 2018 مشاركة قام بنشر أكتوبر 16, 2018 (معدل) وعليكم السلام تفضل اخى الكريم زيادة وجمع رقم تلقائى الى مجموعة ارقام.xlsm تم تعديل أكتوبر 16, 2018 بواسطه ali mohamed ali 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 16, 2018 مشاركة قام بنشر أكتوبر 16, 2018 بعد اذن اخي علي لا ضرورة لهذا الكود الطويل يكفي هذا الكود 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 2 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 16, 2018 مشاركة قام بنشر أكتوبر 16, 2018 أحسنت بارك الله فيك استاذ سليم كود ممتاز 1 رابط هذا التعليق شارك More sharing options...
بكار للأبد قام بنشر أكتوبر 17, 2018 الكاتب مشاركة قام بنشر أكتوبر 17, 2018 جزاك الله كل خير أخي الكريم علي محمد علي كود أكثر من رائع أستاذ سليم - دائماً تمتعنا وتبهرنا بأكوادك المميزة 1 رابط هذا التعليق شارك More sharing options...
نبيل عبد الهادي قام بنشر أكتوبر 19, 2018 مشاركة قام بنشر أكتوبر 19, 2018 ,كذلك ولاثراء الموضوع في حالة الطرح غير هذا السطر Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd بهذا السطر Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 19, 2018 مشاركة قام بنشر أكتوبر 19, 2018 منذ ساعه, نبيل عبد الهادي said: ,كذلك ولاثراء الموضوع في حالة الطرح غير هذا السطر Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd بهذا السطر Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract لا ضرورة لغمل كود للطرح يكفي ان يضع عدداً سالباُ في الخلية D1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان