الجمع والطرح التلقائي

[salman20032]

اخواني واخواتي الكرام

عندي سؤال وياليت القاء الحل عندكم

كيف اجمع عدد على عدد سابق في خلية واحدة وكذلك اطرح عدد من عدد سابق في خلية واحدة مثال

عندي خلية وفيها رقم 5 واريد اضافة رقم 3 عليها كي يصبح رقم الخلية 8 بمجرد ان اقف على رقم 5 واعمل + وبعدها رقم 3 وبعدها انتر وتصبح قيمة الخلية 8

وكذالك الحال في الطرح

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

[حسين بلال]

السلام عليكم

أخي لجمع خليتين أو الطرح فيما بينها فعمليتي الجمع ةالطرح العاديتين, أما موضوع إنك تقف عند الأولى وتطتب + ثم 3 مثلاً..... قهذا اعتقد أنه لايجوز. عموماً لماذا لاترفق مثال توضيحي وتبين مشكلتك أكثر, لعلي أكون مخطأاً

وفقك الله لما يحب ويرضى

[رفيق محمد]

الموضوع مش محتاج مرفق اخي HBSQN

الخلية فيها 5 عايز اقف في نفس الخلية واكتب على الـ5 رقم +3 فبدل من أن يعطيني 3 النتيجة العادية المطلوب يعطيني 8

اعتقد ممكن حلها برمجيا من اخواننا خبراء الاكواد

[م.البوريني]

اسعد الله صباحكم

اخي العزيز الموضوع بسيط جداً

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

ارجو ان تكون الفكرة واضحة

[salman20032]

شكرا لهتمامكم اخواني

صحيح اخي bu3mmar بس ياليت نلقاء حل لهذه المشكلة وراح تخدم كثير من الاعضاء

اعتقد ممكن حلها برمجيا من اخواننا خبراء الاكواد

[أ / محمد صالح]

أخي الكريم

لإضافة عدد على عدد موجود في خلية يجب وضع الكود في ماكرو وجعل الماكرو مرتبط بالزر

Worksheets("sheet1").Range("A5").Value + 3

ويعني هذا الكود إضافة 3 على قيمة الخلية a5 الموجودة في ورقة العمل sheet1

لعل هذا هو المطلوب

[رفيق محمد]

اخي MAS123

لعل؟؟ هذا ؟؟ هو المطلوب

ولكن المطلوب اعمق من كده

مثال

لو عندي مبيعات من صنف معين في قائمة اصناف

وبعت منه لعملاء مختلفين 5 و 3 و 2 و 5 قطع

وعايز اجمع الارقام دي كلها في خلية واحدة

واعتقد المرفق يوضح الطلب

______.rar

[ابو اسامة العينبوسي]

السلام عليكم

هنا تجمع كل ما يدخل الى A1

sum_A1_numbers.rar

تم تعديل يوليو 23, 2009 بواسطه ابو اسامة العينبوسي

[سالم شباني]

السلام عليكم

الأخ سلمان كنت على حق لما طرحت الموضوع

جزاك الله خيرا أستاذ أبو أسامة

[رفيق محمد]

اخي ابو اسامة

بالضبط هو المطلوب ولكن اعذرني

اي جزء في الكود يمكنني من توسيع النطاق يعني كيف اعدل $A$1 الى $A$1:$BB:$567

[خالد القدس]

السلام عليكم

أستاذي أبو أسامة

لمساتكم الساحرة تروى الكثير من العطاشى

نرجو التوضيح كيفية زيادة مدى عمل هذا الكود الفنان

بلغنا الله وإياك رمضان وأعاننا على صيامه وقيامه وجعل ثوابنا وإياك دخول الجنان

[ابو اسامة العينبوسي]

السلام عليكم

هنا يتم جمع كل ما يدخل الى العمود A كل خليه على حدى

اما اذا كن المقصود كل مايدخل الى نطاق معين يجمع في خليه معينه يكون الكود مختلف

ارجو الافاده

Dim oldval As Double

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Column = 1 Then

Target = oldval + Target

Application.EnableEvents = True

Else

Application.EnableEvents = True

Exit Sub

End If

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = True

If Target.Column = 1 Then oldval = Target

End Sub

sum AA numbers.rar

[خالد القدس]

السلام عليكم أستاذ الأكرم أبو أسامة حفظك الله ورعاك الذي أقصده مدى أكبر بالتحديد من الخلية C2 إلى الخلية O101 وهو مدى كتابة درجات الطلاب للمواد في الملف المرفق التالي يمكن الدخول إليه من الصفحة الرئيسية بزر ((رصد الدرجات)) وعلى فكرة هو نفس الملف الذي وضعت عليه بصمتك المميزة في كشف المتفوقين في الحقيقة أنا مدين لك بالكثير (( واسأل المولى العلي القدير أن يسدد عني بما أنت أهله )) زادك الله علماً نافعا وعملا صالحا متقبلا ورزقا حسنا غير منقوص

[خالد القدس]

السلام عليكم    أستاذ الأكرم  أبو أسامة  حفظك الله ورعاك    الذي أقصده مدى أكبر بالتحديد  من الخلية C2  إلى الخلية  O101    وهو مدى كتابة درجات الطلاب للمواد  في الملف المرفق التالي يمكن الدخول إليه من الصفحة الرئيسية بزر ((رصد الدرجات))  وتتبين أهمية هذا الكود عند رصد درجات الفترة الثانية الى من المفترض أن تضاف لدرجات الفترة الأول حيث سنقوم بعملية جمع الفترتين   في شيت آخر ثم نلصقها في هذا الشيت وهو أمر متعب ومضيع للزمن وخالي من الاحتراف   وعلى فكرة هو نفس الملف الذي وضعت عليه بصمتك المميزة السابقة في كشف ترحيل المتفوقين     في الحقيقة أنا مدين لك بالكثير (( واسأل المولى العلي القدير أن يسدد عني بما أنت أهله ))    زادك الله علماً نافعا وعملا صالحا متقبلا ورزقا حسنا غير منقوص

hh.rar

[خالد القدس]

السلام عليكم

للرفع للأهمية جزاكم الله خيرا

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

السلام عليكم

بعد اذن اخي ابو اسامة

تم التعديل على كود ابو اسامة ليشمل النطاق c2:o101

مع ظهور رسالة تظهر الارقام وللتاكيد اوالعودة الى القيمة السابقة

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

تفضل المرفق

sum AA numbers_1.rar

[قطان]

السلام عليكم

أخي خبور الخير بسم الله ماشاء الله ولاقوة إلا بالله

عمل رائع ( ويا بخت اللي تمر على موضوعه )

لكن بعد العمل به وتجربته وكافة الاحتمالات ظهرت مشكلة بسيطة وهي كالتالي :

قي حال إلغاء تفعيل الجمع والتعديل على خلية بتغيير الرقم ثم تفعيل الجمع

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

مع العلم أننا لو أغينا التفعيل و غيرنا الخلية b10 و b11 وتركنا الخلية b11 المفعلة

وعدنا للتفعيل فالإضافة على الخلية b11 يعتبر القيمة السابقة صفرا وإذا انتقلنا للخلية b10 فلا يعتبر القيمة السابقة صفرا

آسف على الإطالة

والسلام ختام

[خالد القدس]

السلام عليكم

أستاذي (( أمير الأكسيل )) خبور خير

لا أشك ابدا في أن الخير من بين يديك يجري

والعجيب والغريب والرهيب في مشاركات هؤلاء الأمراء سهولة الفهم وسهولة التعديل والتطويع ليناسب حاجة السائل

لا زلت أتذكر بإمتنان تلك الطريقة العبقرية لجعل المعادلات تأخذ مداها فقط من الصفوف الظاهرة دون الصفوف المخفية بتلك الطريقة قد تخلصت من 20 ميقابايت من حجم الملف حيث كنت جعلت لكل تخصص صفحة للإحصائيتها

ولكن بفضل تلك المعادلة استغنت عن تسع صفحات وجعلت كل الاحصائيات في صفحة واحدة فقط ، لله درك يا أمير وهو وحده القادر أن يجزل لك خير الثواب وحسن المآب

وسوف أرفع ذلك الملف قريبا لعرضه للأعضاء للاستفادة منه خاصة أن به الكثير من بصمات كبار الخبراء بالمنتدى .

والشكر والدعاء موصول لأستاذي الفاضل صاحب اللمسات السحرية الشافية أبو أسامة جزاه الله خير الجزاء وأثابه عني خير الثواب

لا شك إننا في وسط غابة من النجوم والأمراء بأيهم أقتديتم اهتديتم

[fut_710]

مساء الخير للجميع 

الاخ ابواسامه نشكرك وزادك الله علما وتوفيقا 

بالنسبة للكود الخاص للجمع في نفس الخلية (A1)  لو اردت انقل هذا الكود للخلية رقم K9 مثلا كيف يمكن ذلك 

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

[Ali Mohamed Ali]

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

تفضل لك ما طلبت

 

sum k9 numbers.xls

[fut_710]

الف شكر اخي العزيز على .. لكن كيف يمكن تطبيق الكود على اي خليه اريدها او انسخ لعدد معين من الخلايا 

اقصد بمعنى اوضح لو اردت تطبيق الكود على اي خليه اريدها فكيف يتم ذلك 

[Ali Mohamed Ali]

وذلك بأن تقوم بتغيير اسم الخلية الموجودة فى كود الصفحة المشار اليها فى الصورة المرسلة لك الى الخلية التى تريدها

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

 

[fut_710]

الف الف شكراااا اخي علي  الشرح واضح جدا  ولك مني كل تقدير واحترام 

لكن  لو عندي 150 خلية اريد اطبق عليها هذا الكود ..! هل ينفع النسخ واللصق في نفس المديول واعدل في كل كود اسم الخلية ! اما ان هناك طريقة اسهل لتكرار الكود في اي خليه اريد

[Ali Mohamed Ali]

يجب عليك عمل كوبى لهذا الكود فى كل صفحة تريد تغيير الخلايا فيها

[fut_710]

نشكرك  وتقبل فائق احترامي