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

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


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





الجمع بشرط

السلام عليكم هل يمكن جعل كود الجمع المرفق مع ملف العمل يجمع بشرط بحيث اذا كان هناك بيانات في الاعمدة I , J , K , L يقوم ..



subject icon غير مجابة الجمع بشرط
25-03-2022 10:15 صباحا
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 

السلام عليكم
هل يمكن جعل كود الجمع المرفق مع ملف العمل يجمع بشرط بحيث اذا كان هناك بيانات في الاعمدة I , J , K , L يقوم الكود بالجمع اما اذا لم تكن هناك بيانات لايتم الجمع لان في بعض الاحيان يتم ادخال مجموع الدرجات مباشرتا في العمود M7 فيقوم الكود بحذف المجموع من العمود M6:M46.
ولكم خالص الاحترام والتقدير.
 
 
  جمع بشرط.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(436.89) KB


25-03-2022 02:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif الجمع بشرط
وعليكم السلام اخي الكريم
الأكواد ليست جيدة بما فيه الكفاية

قم باستبدال السطر التالي بالأسطر التالية ليقوم الكود بعد القيم في النطاق المطلوب أولا فإذا قمت بإدخال كل القيم قام الكود بالجمع
Cells(i, 13).Value = Application.WorksheetFunction.Sum


            Dim rng As Range
            Set rng = Range(Cells(i, 9), Cells(i, 12))
            If Application.Count(rng) >= 4 Then
                Cells(i, 13).Value = Application.WorksheetFunction.Sum(rng)
            Else
                Cells(i, 13).Value = Empty
            End If

26-03-2022 12:45 مساء
مشاهدة مشاركة منفردة [2]
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 
look/images/icons/i1.gif الجمع بشرط
شكر استاذ ياسر للمساعدة وسرعة الرد لكن الكود ايضا بعد استبداله يقوم بحذف الدرجات الموجودة في العمود m7:m46 في حال لم نقم بادخال تفاصيل الدرجات في النطاق من i7:l46 .الذي اريد الوصول اليه انه في حال وجود درجات في النطاق i7:l46 يقوم بجمعها وفي حال عدم وجود درجات في النطاق i7:l46 فقط توجد في العمود m7:m46 يقوم بجمعها مع الدرجة الموجودة في العمود h7:h46 ويضع النتيجة في العمود n7:n46 .مع جزيل الشكر والاحترام لشخصك الطيب 




الكلمات الدلالية
الجمع ، بشرط ،


 










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

الساعة الآن 06:39 مساء