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

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


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



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





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

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



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

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

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

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


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

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







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

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





13-03-2019 02:46 مساء
مشاهدة مشاركة منفردة [2]
ابوحنين
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 4
قوة السمعة : 483
الاعجاب : 2
 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]
ابوحنين
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 4
قوة السمعة : 483
الاعجاب : 2
 offline 
look/images/icons/i1.gif ارجوا تعديل هذا الكود
فى النتظار رد احد الاخوان





13-03-2019 07:15 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 330
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 13
قوة السمعة : 2897
الاعجاب : 72
 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]
ابوحنين
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 4
قوة السمعة : 483
الاعجاب : 2
 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]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 538
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 498
قوة السمعة : 6443
الاعجاب : 42
 offline 
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]
ابوحنين
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
يتابعهم : 7
يتابعونه : 4
قوة السمعة : 483
الاعجاب : 2
 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=";)">.FillDown
End Sub
 وهذا الكود يؤدى نفس الغرض
Sub كود2()
[g7] = Application.Sum([b4:c4])
End Sub
المشكله ببساطه هى
الكود الاول  يعم على جمع الخليتين ويكمل كلما وجدت خلايا اخرى
الكود الثانى يعمل على جمع خليتين فقط ولايكمل جمع باقى الخلايا
المطلوب ان 
اضافه سطر للكود الثانى ليقوم بجمع بقى الخلايا 
اريد حذف كود1 والعمل بكود2
اتمنى تتضح وجهه نظرى





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





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





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


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

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

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

وليس ( Formula = "=sum )

فهل هذا ممكن






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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود الترحيل المبتدأ
14 107 YasserKhalil
تعديل كود وضع تاريخ تعديل البيانات khaled alborene
1 46 khaled alborene
تعديل على كود ترحيل بيانات االرسام
8 139 YasserKhalil
فورم ترحيل بيانات متفرقة وترحيل لشيت اخر وتعديل بيانات مجدى يونس
3 93 مجدى يونس
ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف Yasser Elaraby
46 2996 اشرف الصاوى

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


 







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



الساعة الآن 01:45 صباحا

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