أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
رمضان بكري Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil رحله مع الله سبحانه وتعالى اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ارجوا تعديل هذا الكود

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



12-03-2019 10:56 مساء
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 466
الاعجاب : 91
 offline 

ممكن اخوانى الكرام

التعديل على كود الجمع

حسب المطلوب بالملف المرفق


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
 
  vsa.rar   تحميل rar مرات التحميل :(13)
الحجم :(11.23) KB







13-03-2019 06:15 صباحا
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 298
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 10
قوة السمعة : 2718
الاعجاب : 659
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
اختصر الكود الى سطر واحد

Sub cod2()
[g7].Resize([c4:c16].Rows.Count, 1).Formula = "=Sum(b4:c4)"
End Sub

أثارت هذه المشاركة إعجاب: مالك ماريه، YasserKhalil، محمد الدسوقى،




13-03-2019 02:46 مساء
مشاهدة مشاركة منفردة [2]
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 466
الاعجاب : 91
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
المشاركة الأصلية كتبت بواسطة: salim »
اختصر الكود الى سطر واحد

Sub cod2()
[g7].Resize([c4:c16].Rows.Count, 1).Formula = "=Sum(b4:c4)"
End Sub
اولا الف شكر لك اخى الكريم
المشكله مش فى هذا الكود او اختصاره 
هذا الكود يعمل لنهايه العمود 
Sub كود1()
[j7].Formula = "=Sum(b4:c4)"
Range("j7:j20").FillDown
End Sub

وهذا الكود يعمل لخليه واحده 
المطلوب تعديل نفس الكود ليعمل على عمود
Sub كود2()
[g7] = Application.Sum([b4:c4])
End Sub

تقيل تحياتى اخى الكريم وشكرا جزيلا لحضرتك





13-03-2019 05:56 مساء
مشاهدة مشاركة منفردة [3]
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 466
الاعجاب : 91
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
فى النتظار رد احد الاخوان





13-03-2019 07:15 مساء
مشاهدة مشاركة منفردة [4]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 298
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 10
قوة السمعة : 2718
الاعجاب : 659
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
لا أعلم اذا كنت تقصد هذا الشيء

Sub code2()
[g7:g21] = "=SUM(R[-3]C[-5]:R[-3]C[-4])"
End Sub






13-03-2019 07:32 مساء
مشاهدة مشاركة منفردة [5]
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 466
الاعجاب : 91
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
Sub كود2()
[g7] = Application.Sum([b4:c4])
اكمل الجمع لباقى العمود
End Sub

هذا الكود لا غيرة يعمل على خليه g7 فقط اريد ان يكمل باقى الخلايا فى العمود g8 g9 g10 وهكذا





13-03-2019 09:05 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 521
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 466
قوة السمعة : 6286
الاعجاب : 1306
 Online 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
أستاذ محمد / أبو حنين
ممكن تستخدم الكود التالى وهو تعديل على الكود الموجود بالمشاركة السابقة
Sub test()
Dim lr As Long
lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 3
[J7].Formula = "=Sum(b4:c4)"
Range("J7:J" & lr).FillDown
End Sub


ويمكن ربطه بز لتفعيل الكود
ويمكن عمل الكود تلقائيا إذا تم التنويه عنه فى حدث الورقة نفسها بحيث عندما تكتب الأعداد يتم استخراج النتائج تلقايا
وعلى ذلك ضع الكود السابق فى موديول عادى
وأدخل الكود التالى فى حدث الورقة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Call test
End Sub


وهذا حسبما فهمت من طلبكم ومشاركات الأخوة الكرام





13-03-2019 09:41 مساء
مشاهدة مشاركة منفردة [7]
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 466
الاعجاب : 91
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
استاذ محمد يسعدنى مرور حضرتك
الامر ببساطه واحدة واحدة
هذا الكود يعمل تمام 100 %
 Sub كود1()
[j7].Formula = "=Sum(b4:c4)"
Range("j7:j20""look/images/smiles/wink_3.gif" border="0" alt="wink_3">.FillDown
End Sub
 وهذا الكود يؤدى نفس الغرض
Sub كود2()
[g7] = Application.Sum([b4:c4])
End Sub
المشكله ببساطه هى
الكود الاول  يعم على جمع الخليتين ويكمل كلما وجدت خلايا اخرى
الكود الثانى يعمل على جمع خليتين فقط ولايكمل جمع باقى الخلايا
المطلوب ان 
اضافه سطر للكود الثانى ليقوم بجمع بقى الخلايا 
اريد حذف كود1 والعمل بكود2
اتمنى تتضح وجهه نظرى





13-03-2019 11:31 مساء
مشاهدة مشاركة منفردة [8]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 317
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 6
قوة السمعة : 437
الاعجاب : 191
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
بعد اذن جميع الأساتذة لقد تم ايضا الرد على هذا الرابط
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





14-03-2019 06:40 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5971
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 376
قوة السمعة : 16557
الاعجاب : 6268
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
مشكور أخي مهند
ويرجى من صاحب الموضوع الانتباه لذلك حين طرح الموضوع في أكثر من موضع .. بوضع الروابط الأخرى توفيراً لوقت وجهد الأعضاء





14-03-2019 02:17 مساء
مشاهدة مشاركة منفردة [10]
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 466
الاعجاب : 91
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
مشكور أخي مهند
ويرجى من صاحب الموضوع الانتباه لذلك حين طرح الموضوع في أكثر من موضع .. بوضع الروابط الأخرى توفيراً لوقت وجهد الأعضاء


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

الف شكر لك اخى الكريم 

ولكن هذه ( Application.Sum ) هى المطلوبه

وليس ( Formula = "=sum )

فهل هذا ممكن






14-03-2019 06:31 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5971
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 376
قوة السمعة : 16557
الاعجاب : 6268
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
صراحة الوقت لا يسعفني للإطلاع على المشكلة من البداية ولكني أرى العديد من المساهمات من قبل إخواننا الأفاضل
حاول متابعة الموضوع معهم وإن شاء الله تحل المشكلة ..






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود جلب البيانات فى تاريخ معين دون تكرار مهند محسن
35 240 مهند محسن
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
133 2365 مالك ماريه
اكسل vbaجصريا فورم بحث وتعديل البيانات فى جميع اوراق العمل(شيتات الاكسل ) بطريقة سهلة وسريعة emad ghazi
28 1509 حمادة القزازى
تعديل على كود للاستاذ / سليم صلاح الصغير
11 96 صلاح الصغير
هلا والله - يعطيكم العافية - المطلوب كود تعديل من اللسيت بوكس بعد البحث واظهار النتيجة في التكست ا رمضان بكري
5 106 YasserKhalil

الكلمات الدلالية
ارجوا ، تعديل ، الكود ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:05 صباحا

أعلن هنا
أعلن هنا
أعلن هنا