abumalak قام بنشر يونيو 7, 2011 مشاركة قام بنشر يونيو 7, 2011 أسعد الله صباحكم / مسائكم جميعا إخواني فيه معادلة عقدتي كثيرا وهو أن لدي خلية فيها رقم ثابت مثلا رقم 7 ويوجد لدي خلية أخرى يدخل فيها أرقام بشكل مستمر ولنفرض أن أول رقم أدخل عليها هو 3 أريد خلية ثالثة تقوم بجمع 7 + 3 = 10 هذا أمر بسيط ومعروف ولكن السؤال في ثاني يوم أتيت وغيرت رقم 3 و وضعت بدل منه رقم 1 أريده أن يقوم بجمع الرقم الجديد الذي هو 1 على المجموع السابق هو 10 أي يصبح العدد 11 وهكذا كل ما غيرت في الرقم يقوم بإضافته للمجموع السابق يوجد مرفق واضح لما أريده فهل من أحد يساعدني في ذلك يا غوالي جمع الأرقام.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 7, 2011 مشاركة قام بنشر يونيو 7, 2011 (معدل) السلام عليكم أخي العزيز / أبا ملك انسخ الكود التالي في حدث الورقة Sheet1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) [AB1] = [B4] End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$3" Then Exit Sub x = [AB1] [B4].FormulaR1C1 = "=R[-1]C+" & x End Sub تم تعديل يونيو 7, 2011 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
abumalak قام بنشر يونيو 7, 2011 الكاتب مشاركة قام بنشر يونيو 7, 2011 (معدل) أخي ماذا تقصد بحدث الورقة Sheet1 لأنني لا أعرف لذلك وكيفية التعامل مع الأكواد التي تكتب هكذا فهل ممكن ترشدني أيضا ممكن توضح لي لماذا تمت كتابة [AB1] ولك الأجر تم تعديل يونيو 7, 2011 بواسطه abumalak رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 8, 2011 مشاركة قام بنشر يونيو 8, 2011 السلام عليكم أخي الكريم اتبع الخطوات التالية أولا خذ نسخة من الكود من مشاركتي السابقة ثم إضغط ALT-F11 لتشغيل محرر الفيجوال بيزيك علي اليسار ستلاحظ وجود اسم الملف وتحته أسماء الشيتات قف علي الشيت المطلوب (دبل كليك) والصق النسخ في الشاشة التي باليمين أنظر المرفق به صورة وبه الكود شغال ملحوظة لكي يعمل الكود جيدا لابد من تقليل أمان الماكرو إن أردت تسجيله علي إكسل 2007 أو 2010 فيتم ذلك باختيار امتداد الملف xlsm وليس xlsx لذلك سجلته لك بتنسيق 2003 تفضل المرفق وأرجو ألا تتردد في أي سؤال جمع الأرقام.rar رابط هذا التعليق شارك More sharing options...
abumalak قام بنشر يونيو 8, 2011 الكاتب مشاركة قام بنشر يونيو 8, 2011 بارك الله فيك وكثر من أمثالك طيب اخي الغالي لو أردت أن أجعلها تبدأ من جديد يعني أبي أمسح الماضي وأخليها تبدأ تجمع من جديد ما هي الطريقة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 8, 2011 مشاركة قام بنشر يونيو 8, 2011 السلام عليكم لو أردت أن أجعلها تبدأ من جديد يعني أبي أمسح الماضي وأخليها تبدأ تجمع من جديد امسح البيانات كلها ظللها ثم Delete بس غير الكود للتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) [AB1] = [B4] End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$3" Then Exit Sub x = [AB1] If x = "" Then x = 0 [B4].FormulaR1C1 = "=R[-1]C+" & x End Sub كما هو قديما بس يزيد السطر If x = "" Then x = 0 رابط هذا التعليق شارك More sharing options...
abumalak قام بنشر يونيو 9, 2011 الكاتب مشاركة قام بنشر يونيو 9, 2011 ما ضبطت معي أخي الكريم عندما أضيف مثلا رقم 2 فهو يجمع فقط 1 يعني عملية الجمع ما هي صحيحة و أيضا جربت عملية الـ delete وماضبطت معي ممكن توضح لي اكثر وشكرا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 9, 2011 مشاركة قام بنشر يونيو 9, 2011 ما ضبطت معي أخي الكريم عندما أضيف مثلا رقم 2 فهو يجمع فقط 1 يعني عملية الجمع ما هي صحيحة و أيضا جربت عملية الـ delete وماضبطت معي ممكن توضح لي اكثر وشكرا بالعكس عمل متقن قام به الاستاذ طارق (سلمت يمينك استاذ طارق) المرفق فيه الكود الجديدالذي عدله الاستاذ طارق تم استبدال الكود القديم حيث يمكنك حذف البيانت و البدء من جديد جمع الارقام.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان