المتفائل بالله قام بنشر مايو 12, 2014 مشاركة قام بنشر مايو 12, 2014 السلام عليكم مرفق صورة فيها شرح للطلب الذي ابحث عنه لدي خليتنا واحدة لادراج رقم والثانية لظهور المجموع اريد في كل امرة ان اضيف رقم لخلية F7 ان يظهر المجموع المتجدد في الخلية رقم G7 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مايو 12, 2014 مشاركة قام بنشر مايو 12, 2014 السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية 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 تحياتي 3 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر مايو 12, 2014 مشاركة قام بنشر مايو 12, 2014 أستاذنا العبقري العلاّمة / عبد الله باقشير السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الكود الرائع جداً جداً . جعله الله في ميزان حسناتك وزادك الله من فضله وعلمه. لك كل التحية والتقدير. رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر مايو 12, 2014 مشاركة قام بنشر مايو 12, 2014 جزاك الله خيرا الاستاذ القدير الاستاذ // عبد الله باقشير بحق ملك الاكواد.. ولاثراء الموضوع وتنوع الحلول هذا كود للعملاق الاستاذ الحبيب // رجب جاويش 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 1 رابط هذا التعليق شارك More sharing options...
المتفائل بالله قام بنشر مايو 12, 2014 الكاتب مشاركة قام بنشر مايو 12, 2014 اخي الكريم عبدالله باقشير بارك الله فيك على المساعدة يا كريم ولكني لا اعرف كيف اضع هذا الكود في موديل الورقة لاني مبتدأ في الاكسل وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
المتفائل بالله قام بنشر مايو 12, 2014 الكاتب مشاركة قام بنشر مايو 12, 2014 حبيبي واخي الاخ عبدالله باقشير بوركت يداك وبوركت عيناك وبورك عقلك وحفظك الله وحفظ الله علمك لقد نجحت في وضع الكود ونجح الامر الله يرضى عليك ويخليلك اهلك ويخلي اهلك الك ويحفظلك صحتك ومالك مشكور من كل قلبي يا عزيزي رابط هذا التعليق شارك More sharing options...
المتفائل بالله قام بنشر مايو 12, 2014 الكاتب مشاركة قام بنشر مايو 12, 2014 اخي الكريم عبد الله باقشير لدي طلب اخر لو سمحت اريد ان افهم ترجمة هذا الكود هل يمكنك ان تشرحه لي وبوركت رابط هذا التعليق شارك More sharing options...
المتفائل بالله قام بنشر مايو 12, 2014 الكاتب مشاركة قام بنشر مايو 12, 2014 اخي الكريم واجهت مشكلة في كل مرة اغلق الملف يتوقف الكود عن العمل حتى اعيد وضعه مرة اخرى في الموديل ما الحل برياك بوركت رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر مايو 13, 2014 مشاركة قام بنشر مايو 13, 2014 ما شاء الله فعلا إنك رائع بحق أستاذى القدير // عبد الله باقشير جزاكم الله خير الجزاء وبارك الله فيكم الأستاذ الحبيب / محمد ابوالبراء وكود ممتاز للأستاذ القدير // رجب جاويش أسأل الله لكم جميعا أن يجعل أعمالكم فى ميزان حسناتكم وإليكم أخى الكريم بالمرفقات ملف مطبق به كود العلامة الأستاذ القدير // عبد الله باقشير وتقبل منى وافر الاحترام والتقدير الجمع.rar 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر مايو 13, 2014 مشاركة قام بنشر مايو 13, 2014 ما شاء الله تبارك الله تعااااااااااون رائع بين الاحبه رابط هذا التعليق شارك More sharing options...
المتفائل بالله قام بنشر مايو 13, 2014 الكاتب مشاركة قام بنشر مايو 13, 2014 اخ محمود الشريف بارك الله فيك على تحضير الملف ولكن هلا شرحت لي طريقة الجمع وما هو امتداد xlsm? بوركت رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر مايو 13, 2014 مشاركة قام بنشر مايو 13, 2014 أخى الكريم طريقة الجمع كما طلبت نفترض أنك أضفت رقم 5 بالخلية f7 ثم نفترض انك اضفت قم 7 بنفس الخلية f7 يظهر لك الناتج فى الخلية g7 وهو الرقم 12 والكود الذى قام بعمله الأستاذ القدير // عبد الله باقشير ينفذ ذلك تلقائياً رابط هذا التعليق شارك More sharing options...
الحسن الحسن قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 بصراحه فكرة جميلة رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 (معدل) السلام عليكم اولا هذا الكود يعمل على خليه واحده كيف اجعله يمتد من الخليه 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 بواسطه زمزم 1 رابط هذا التعليق شارك More sharing options...
mohamed babiker قام بنشر مارس 9, 2016 مشاركة قام بنشر مارس 9, 2016 السلام عليكم اخوتي الأعزاء عندي سؤال مهم جدا ، اذا أردت تكرار عملية الجمع التلقائي لأكثر من خلية بحيث تكون a 1 تجمع لوحدها و b1 تجمع لوحدها و c 1 تجمع لوحدها ارجو الافاده ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 9, 2016 مشاركة قام بنشر مارس 9, 2016 أخي الكريم محمد أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية والإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى قم بطرح موضوع جديد وأرفق ملفك مع التوضيح للمطلوب بشكل جيد حتى يتمكن الأخوة الأعضاء من تقديم المساعدة المطلوبة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان