اريد مساعدة في جمع خلية كل مرة

[المتفائل بالله]

السلام عليكم

مرفق صورة فيها شرح للطلب الذي ابحث عنه

لدي خليتنا

واحدة لادراج رقم

والثانية لظهور المجموع

اريد في كل امرة ان اضيف رقم لخلية F7

ان يظهر المجموع المتجدد في الخلية رقم G7

[عبدالله باقشير]

السلام عليكم

 

ضع هذا الكود في موديل الورقة المعنية بالعملية

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F7").Address Then
    Range("G7").Value = Val(Range("G7")) + Val(Target)
End If
End Sub

تحياتي

[أم عبد الله]

أستاذنا العبقري العلاّمة / عبد الله باقشير

 

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

 

جزاك الله خيراً على هذا الكود الرائع جداً جداً . جعله الله في ميزان حسناتك وزادك الله من فضله وعلمه. لك كل التحية والتقدير.

[محمد ابو البـراء]

جزاك الله خيرا الاستاذ القدير الاستاذ // عبد الله باقشير

بحق ملك الاكواد..

ولاثراء الموضوع وتنوع الحلول هذا كود للعملاق

الاستاذ الحبيب // رجب جاويش

Private Sub Worksheet_Change(ByVal Target As Range)
Static x
If Target.Address = [A1].Address Then
    Application.EnableEvents = False
    x = x + Target.Value
    Target = x
    Application.EnableEvents = True
End If
End Sub

والتنفيذ سبكون في a1

[المتفائل بالله]

اخي الكريم

عبدالله باقشير

بارك الله فيك على المساعدة يا كريم

ولكني لا اعرف كيف اضع هذا الكود في موديل الورقة

 

 

 

لاني مبتدأ في الاكسل

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

[المتفائل بالله]

حبيبي واخي الاخ

عبدالله باقشير

بوركت يداك

وبوركت عيناك

وبورك عقلك

وحفظك الله

وحفظ الله علمك

 لقد نجحت في وضع الكود

ونجح الامر

الله يرضى عليك

ويخليلك اهلك

ويخلي اهلك الك

ويحفظلك صحتك ومالك

مشكور من كل قلبي يا عزيزي

[المتفائل بالله]

اخي الكريم عبد الله باقشير

لدي طلب اخر لو سمحت

اريد ان افهم ترجمة هذا الكود

هل يمكنك ان تشرحه لي

وبوركت

[المتفائل بالله]

اخي الكريم واجهت مشكلة

في كل مرة اغلق الملف

يتوقف الكود عن العمل

حتى اعيد وضعه مرة اخرى في الموديل

ما الحل برياك

بوركت

[محمود_الشريف]

ما شاء الله

فعلا إنك رائع بحق أستاذى القدير // عبد الله باقشير 

جزاكم الله خير الجزاء

 

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

وكود ممتاز للأستاذ القدير // رجب جاويش

 

أسأل الله لكم جميعا أن يجعل أعمالكم فى ميزان حسناتكم

 

وإليكم أخى الكريم

بالمرفقات ملف مطبق به كود 

العلامة الأستاذ القدير // عبد الله باقشير

 

وتقبل منى وافر الاحترام والتقدير

 

الجمع.rar

[ا بو سليمان]

ما شاء الله تبارك الله  

 

تعااااااااااون رائع  بين الاحبه

[المتفائل بالله]

اخ محمود الشريف بارك الله فيك على تحضير الملف

ولكن هلا شرحت لي طريقة الجمع

وما هو امتداد xlsm?

بوركت

[محمود_الشريف]

أخى الكريم

طريقة الجمع كما طلبت 

نفترض أنك أضفت رقم 5 بالخلية f7

ثم نفترض انك اضفت قم 7 بنفس الخلية f7

يظهر لك الناتج فى الخلية g7  وهو الرقم 12

والكود الذى قام بعمله الأستاذ القدير // عبد الله باقشير

ينفذ ذلك تلقائياً

[الحسن الحسن]

بصراحه فكرة جميلة

 

[ا بو سليمان]

السلام عليكم 

 اولا 

هذا الكود يعمل على خليه واحده  كيف اجعله  يمتد من الخليه   F1         حتى الخليه    F   300             ,ومن  G1   الى  G300

 

ثانيا 

 

كيف اجعل  الخليه  تحسب   بدون الظغط على  انتر   يعني  تلقائي  

 

 

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("F1").Address Then

    Range("G1").Value = Val(Range("G1")) + Val(Target)

End If

End Sub

تم تعديل مايو 16, 2014 بواسطه زمزم

[mohamed babiker]

السلام عليكم اخوتي الأعزاء  

عندي سؤال مهم جدا ، اذا أردت تكرار عملية الجمع التلقائي لأكثر من خلية بحيث تكون a 1 تجمع لوحدها و b1 تجمع لوحدها و c 1 تجمع لوحدها 

ارجو الافاده ولكم جزيل الشكر 

[ياسر خليل أبو البراء]

أخي الكريم محمد

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية والإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى

قم بطرح موضوع جديد وأرفق ملفك مع التوضيح للمطلوب بشكل جيد حتى يتمكن الأخوة الأعضاء من تقديم المساعدة المطلوبة

تقبل تحياتي