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

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


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





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

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


موضوع مغلق


09-07-2021 08:48 صباحا
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  المجموع.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(286.55) KB
  الفرز.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(487.341) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
في الحقيقة لابد عند طرح موضوع أن تضع تفاصيل المشكلة بشكل أفضل .. لابد من سرد المشكلة في الموضوع نفسه وليس في المرفق فقط حتى لا يحدث أي لبس
عموماً كما فهمت من شرحك عدل الجزء التالي قبل نهاية الحلقة التكرارية
    End Select
    If ws.Cells(i, 38) <> "" Then
        ws.Cells(i, 33).Resize(1, 2).Value = Empty
    End If
Next i
عرض الإجابة




09-07-2021 09:11 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تعديل كود الجمع الكلي
وعليكم السلام أخي الكريم
يرجى في أي موضوع إرفاق الملف الخاص بالموضوع فقط ويكون الموضوع لطلب واحد فقط
في الملف المرفق المسمى "المجموع" غير الجزء التالي في الكود ليتحقق المطلوب إن شاء الله
    Case Is < 50
      ws.Cells(i, 35) = "راسب"
      ws.Cells(i, 34) = Empty
    Case Else


ما تمت إضافته مجرد سطر واحد فقط يقوم بمسح المحتوى في الخلية في عمود المجموع عندما يتحقق الشرط "راسب"
ws.Cells(i, 34) = Empty

09-07-2021 09:27 صباحا
مشاهدة مشاركة منفردة [2]
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 
look/images/icons/i1.gif تعديل كود الجمع الكلي
استاذ ياسر كيف حالك المشكلة مازالت قائمة لا حظ مادة الاحصاء في مواد الرسوب توجد لديه مادة الاحصاء والكود جمع له الدرجات 95

09-07-2021 10:21 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تعديل كود الجمع الكلي
في الحقيقة لابد عند طرح موضوع أن تضع تفاصيل المشكلة بشكل أفضل .. لابد من سرد المشكلة في الموضوع نفسه وليس في المرفق فقط حتى لا يحدث أي لبس
عموماً كما فهمت من شرحك عدل الجزء التالي قبل نهاية الحلقة التكرارية
    End Select
    If ws.Cells(i, 38) <> "" Then
        ws.Cells(i, 33).Resize(1, 2).Value = Empty
    End If
Next i

09-07-2021 10:42 صباحا
مشاهدة مشاركة منفردة [4]
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 
look/images/icons/i1.gif تعديل كود الجمع الكلي
اعتذر على عدم التوضيح    وبارك الله فيك استاذي الفاضل

09-07-2021 01:34 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تعديل كود الجمع الكلي
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير ، والحمد لله الذي بنعمته تتم الصالحات.



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


 










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

الساعة الآن 08:50 صباحا