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

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


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





اختصار للمعادله

السلام عليكم ورحمة الله وبركاته معي معادله طويله واريد اي اختصار لها ..(.بتعديلها او تحويلها لكود )حتى لا تسبب ثقل للمل ..


موضوع مغلق

الصفحة 1 من 5 < 1 2 3 4 5 > الأخيرة »


subject icon تمت الإجابة اختصار للمعادله
03-08-2020 10:31 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته 
معي معادله طويله واريد اي اختصار لها ..(.بتعديلها او تحويلها لكود )حتى لا تسبب ثقل للملف ...
جزاكم الله خيرا
=IF(AND((AX5)=800;(BK5)=13);"جيد";IF(AND((AX5)=801;(BK5)>=12);"جيد";IF(AND((AX5)=802;(BK5)>=11);"جيد";IF(AND((AX5)=803;(BK5)>=10);"جيد";IF(AND((AX5)=804;(BK5)>=9);"جيد";IF(AND((AX5)=805;(BK5)>=8);"جيد";IF(AND((AX5)=806;(BK5)>=7);"جيد";IF(AND((AX5)=807;(BK5)>=6);"جيد";IF(AND((AX5)=808;(BK5)>=5);"جيد";IF(AND((AX5)=809;(BK5)>=4);"جيد";IF(AND((AX5)=810;(BK5)>=3);"جيد";IF(AND((AX5)=811;(BK5)>=2);"جيد";IF(AND((AX5)=812;(BK5)>=1);"جيد";IF(AND((AX5)=925;(BK5)=13);"جيد جدا";IF(AND((AX5)=926;(BK5)>=12);"جيد جدا";IF(AND((AX5)=927;(BK5)>=11);"جيد جدا";IF(AND((AX5)=928;(BK5)>=10);"جيد جدا";IF(AND((AX5)=929;(BK5)>=9);"جيد جدا";IF(AND((AX5)=930;(BK5)>=8);"جيد جدا";IF(AND((AX5)=931;(BK5)>=7);"جيد جدا";IF(AND((AX5)=932;(BK5)>=6);"جيد جدا";IF(AND((AX5)=933;(BK5)>=5);"جيد جدا";IF(AND((AX5)=934;(BK5)>=4);"جيد جدا";IF(AND((AX5)=935;(BK5)>=3);"جيد جدا";IF(AND((AX5)=936;(BK5)>=2);"جيد جدا";IF(AND((AX5)=937;(BK5)>=1);"جيد جدا";IF(AND((AX5)=1050;(BK5)=13);"ممتاز";IF(AND((AX5)=1051;(BK5)>=12);"ممتاز";IF(AND((AX5)=1052;(BK5)>=11);"ممتاز";IF(AND((AX5)=1053;(BK5)>=10);"ممتاز";IF(AND((AX5)=1054;(BK5)>=9);"ممتاز";IF(AND((AX5)=1055;(BK5)>=8);"ممتاز";IF(AND((AX5)=1056;(BK5)>=7);"ممتاز";IF(AND((AX5)=1057;(BK5)>=6);"ممتاز";IF(AND((AX5)=1058;(BK5)>=5);"ممتاز";IF(AND((AX5)=1059;(BK5)>=4);"ممتاز";IF(AND((AX5)=1060;(BK5)>=3);"ممتاز";IF(AND((AX5)=1061;(BK5)>=2);"ممتاز";IF(AND((AX5)=1062;(BK5)>=1);"ممتاز";(AX8))))))))))))))))))))))))))))))))))))))))


أفضل إجابة مقدمة من salim وهي:
 [/quote]
هذا الكود

Option Explicit
Dim Res, N1, N2
Dim st_good, st_Vgood, st_Exc$
Dim SH As Worksheet, i%, lr%
'+++++++++++++++++++++++++++++++++
Sub Get_Resulte()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Set SH = Sheets("DATA")

lr = SH.Cells(Rows.Count, "C").End(3).Row
 For i = 5 To lr Step 4
     If SH.Cells(i, "BK") = vbNullString _
       Or SH.Cells(i, "AX") = vbNullString Then
       SH.Cells(i + 3, "AX") = _
       IIf(SH.Cells(i + 3, "AX") = _
       vbNullString, "---", SH.Cells(i + 3, "AX"))
       GoTo Next_i
    End If
    Call Verifay(SH.Cells(i, "AX"), SH.Cells(i, "BK"))
    SH.Cells(i, "BL") = Res
 
Next_i:
     
 Next

With Application
  .ScreenUpdating = True
  .Calculation = xlCalculationAutomatic
End With

End Sub
'+++++++++++++++++++++++++++++++
Sub Verifay(rang1 As Range, rang2 As Range)
st_good = "Good"
st_Vgood = "Very Good"
st_Exc = "Excellent"

N1 = rang1: N2 = rang2
Select Case True
 Case N1 >= 800 And N1 <= 812 And N2 >= 1 And N2 <= 13
     Res = st_good
 Case N1 >= 925 And N1 <= 937 And N2 >= 1 And N2 <= 13
    Res = st_Vgood
 Case N1 >= 1050 And N1 <= 1062 And N2 >= 1 And N2 <= 13
    Res = st_Exc
 Case Else
    Res = SH.Range("AX8")
End Select

End Sub

عرض الإجابة




04-08-2020 12:46 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 237
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 34
قوة السمعة : 2349
عدد الإجابات: 31
 offline 
look/images/icons/i1.gif اختصار للمعادله
السلام عليكم ورحمة الله
جرب هذه المعادلة
=IF((AX5+BK5)>=1063;"ممتاز";IF((AX5+BK5)>=938;"جيد جدا";IF((AX5+BK5)>=813;"جيد";"")))

04-08-2020 01:36 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif اختصار للمعادله
جزاك الله خيرا استاذ ابراهيم...مشكور جدا
لكن لم تفلح معي...هذه المعادله.

04-08-2020 05:37 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif اختصار للمعادله
المعادلة بهذا الشكل من الصعب قرائتها
يمكن ان تضع شرحاً لها
اي ما المقصود منها؟؟؟
كما في الصورة UEtBM_table
 
 


04-08-2020 01:46 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif اختصار للمعادله
جزاك الله  اخي خير الجزاء... المشكله المعادله طويله جدا والبرنامج يظهر لي خطآ لاني تعديت 64...؟؟؟
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
MzczMTA1MQ7272276577
 
 
  ضبط المعادله.rar   تحميل rar مرات التحميل :(1)
الحجم :(15.092) KB


18-08-2020 08:44 صباحا
مشاهدة مشاركة منفردة [5]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif اختصار للمعادله
السلام عليكم  ورحمة الله وبركاته حاولت جاهدا بهذه المعادله لتحويلها لكود او اختصارها لكن لم استطع
وهذه صوره توضيحيه لها..المشكله ان المعادله طويله جدااااااا
وهذ تبسيط لها (جزء منها) ممكن فكره فقط بكود  ونا اكمل الباقي بإذن الله
=IF(AND((AX5)=800;(BK5)=13);"جيد";IF(AND((AX5)=801;(BK5)>=12);"جيد";IF(AND((AX5)=802;(BK5)>=11);"جيد";(AX8))))
MTMxNDc1MQ4040UEtBM_table
 
 


18-08-2020 12:09 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif اختصار للمعادله
اكمل بقية الجدول حتى نعرف المطلوب في كل صف
الصف الأول ( 800  مع 13 يعطينا  جيد ) هذه فهمناها لكنها لا تفي بالغرض وحدها
ماذا مثلا عن اجتماع 804 مع 9     او 820 مع 10
لأن المعادلة التي سوف ابنيها لك تعتمد على هذا الجدول
ارفاق الجدول في صفحة مستقلة من الملف(الصورة عنه لا تنفع)


الصفحة 1 من 5 < 1 2 3 4 5 > الأخيرة »


الكلمات الدلالية
للمعادله ، اختصار ،


 










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

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