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

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


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





المساعدة في كتابة كود

السلام عليكم اساتذتي الكرام لدي هذا الجدول البسيط واريد المساعدة في كتابه الكود التالي لكل خلية من خلايا الجدول (C2:E4) ..


موضوع مغلق

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


21-06-2022 10:58 صباحا
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 85
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 

السلام عليكم اساتذتي الكرام
لدي هذا الجدول البسيط واريد المساعدة في كتابه الكود التالي
لكل خلية من خلايا الجدول (C2:E4)
اذا كانت قيمة الخلية (C2) اكبر من 50    فالنتيجة ناجح
اذا كانت لون الخلية (C2) احمر
      فالنتيجة راسب
​اذا كانت لون الخلية (C2) اصفر         فالنتيجة راسب
ثم ينتقل للخلايا (B2) و (D2) و (E2) لنفس الشروط اعلاه
وبعد ذلك ينتقل للصف الذي تحته وهكذا 

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

 
 
 
  عمل معادلة.xlsx   تحميل xlsx مرات التحميل :(7)
الحجم :(10.214) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
بارك الله فيك أخي العزيز حسين
استكمالاً لما قام به الأخ حسين يمكنك عمل حلقة تكرارية داخلية للأعمدة
سأضع الكود ويمكنك التعديل في الكود بما يتناسب مع ملفك الأصلي (حاول الإطلاع جيداً على الكود لتعرف كيف تعدل فيه)
Sub Test()
    Dim RG As Long, CL As Long, lr As Long
    Application.ScreenUpdating = False
        lr = Cells(Rows.Count, 3).End(3).Row
        For RG = 2 To lr
            For CL = 3 To 5
                If Cells(RG, CL) > 50 Then
                    Cells(RG, CL) = "ناجح"
                ElseIf Cells(RG, CL).Interior.Color = 65535 Then
                    Cells(RG, CL) = "راسب"
                ElseIf Cells(RG, CL).Interior.Color = 255 Then
                    Cells(RG, CL) = "راسب"
                End If
            Next CL
        Next RG
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




21-06-2022 07:22 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 12
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif المساعدة في كتابة كود
تفضل 
Option Explicit

Sub test()

Dim RG, lr
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 3).End(3).Row
For RG = 2 To lr
If Cells(RG, 3) > 50 Then
Cells(RG, 3).Offset(, 3).Value = "äÇÌÍ"
ElseIf Cells(RG, 3).Interior.Color = 65535 Then
Cells(RG, 3).Offset(, 3).Value = "ÑÇÓÈ"
ElseIf Cells(RG, 3).Interior.Color = 255 Then
Cells(RG, 3).Offset(, 3).Value = "ÑÇÓÈ"
End If
'+++++++++
If Cells(RG, 4) > 50 Then
Cells(RG, 4).Offset(, 3).Value = "äÇÌÍ"
ElseIf Cells(RG, 4).Interior.Color = 65535 Then
Cells(RG, 4).Offset(, 3).Value = "ÑÇÓÈ"
ElseIf Cells(RG, 4).Interior.Color = 255 Then
Cells(RG, 4).Offset(, 3).Value = "ÑÇÓÈ"
End If
'+++++++++++++++++
If Cells(RG, 5) > 50 Then
Cells(RG, 5).Offset(, 3).Value = "äÇÌÍ"
ElseIf Cells(RG, 5).Interior.Color = 65535 Then
Cells(RG, 5).Offset(, 3).Value = "ÑÇÓÈ"
ElseIf Cells(RG, 5).Interior.Color = 255 Then
Cells(RG, 5).Offset(, 3).Value = "ÑÇÓÈ"


End If
Next RG
Application.ScreenUpdating = True

End Sub
 
 
  عمل معادلة.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(20.474) KB


21-06-2022 10:05 مساء
مشاهدة مشاركة منفردة [2]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 85
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif المساعدة في كتابة كود
شكرا استاذي العزيز على الاجابة ولكن توجد مشكلة في الكود اولا اللغة غير مفهومه وثانيا النتائج تظهر بجانب الجدول واني اريد الجدول نفسه  يتغير m5Jn8_Untitled
 
 


23-06-2022 10:39 مساء
مشاهدة مشاركة منفردة [3]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 12
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif المساعدة في كتابة كود
اين تريد النتيجة المتوقعة اشرح كيف وضع بعض النتائج المتوقعة في شست
تحياتي

24-06-2022 10:35 صباحا
مشاهدة مشاركة منفردة [4]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 85
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif المساعدة في كتابة كود
فقط اريد النتيجه في نفس الجدول وليس بجانبه
اي تتغير ارفام الجدول نفسه 

24-06-2022 10:47 صباحا
مشاهدة مشاركة منفردة [5]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 12
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif المساعدة في كتابة كود
جرب المرفق
يكتب النتيجة في نفس الخلايا
 
 
  عمل معادلة.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(20.411) KB


25-06-2022 12:13 مساء
مشاهدة مشاركة منفردة [6]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 85
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif المساعدة في كتابة كود
شكرا جزيلا وهو المطلوب
هل يوجد كود مختصر اكثر من هذا بمعنى لو كان الجدول لدي لا يتكون من ثلاث اعمدة وانما 15 عمود فهل اعيد الكود 15 مرة ام يوجد شي مختصر اكثرمثلا ما يفعله للخلية الاولى يطبقه على الخلايا في الاعمدة المجاورة وهكذا ثم ينتقل للصف الذي يليه


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


الكلمات الدلالية
كتابة ، المساعدة ،


 










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

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