أريد الخلايا تتلون حسب درجاتها (سابقا: الرجاء المساعدة ضرورى وجزاكم الله خير)

[وليد المصرى 1]

السلام عليكم ورحمة الله وبركاتة

ارجو من الاخواة الخبراء المساعدة المطلوب داخل الملف المرفق

Book1 .rar

[طارق محمود]

السلام عليكم

أخي العزيز

أولا سأغير إسم الموضوع لمخالفة قواعد المنتدي ، أرجو الإلتزام في المستقبل

ثانيا للحل جرب التنسيق الشرطي ، حيث أن الملف الذي أرسلته بفورمات 2007 وما بعدها

فيوجد حل سهل جدا بالتنسيق الشرطي

وللمزيد ، أنظر المشاركة رقم 22 بالموضوع التالي

http://www.officena.net/ib/index.php?showtopic=43217&st=20

[وليد المصرى 1]

اولا انا اسف استاذ طارق لعدم انتبهى لقواعد المنتدى

ثانيا انا لا اريد التنسيق الشرطى ولكن اريد تجميع درجات جيد وضعيف ومتوسط من اول خانة الملونة الازرق ( يمين خانة اسم الطالب ) ارجو ان ترجع الملف مرة اخرة

اشكرك

تم تعديل سبتمبر 18, 2012 بواسطه goodlife

[طارق محمود]

السلام عليكم

عذرا أخي

فعلا لم اقرأ المطلوب جيدا

تفضل المرفق وبه دالة مستحدثة لهذا الغرض

الدالة هي

Function cls(nm As String, grd As String) As String

On Error GoTo 10

rw = WorksheetFunction.Match(nm, [B:B], 0)

For col = 3 To 10

Select Case Cells(rw, col) / Cells(4, col)

Case Is < 0.5

da3eef = da3eef & "& " & Cells(3, col)

Case Is > 0.5

good = good & "& " & Cells(3, col)

Case Is = 0.5

wasat = wasat & "& " & Cells(3, col)

End Select


Select Case grd

Case [F25]

cls = da3eef

Case [G25]

cls = good

Case [H25]

cls = wasat

End Select

Next col

If Len(cls) > 1 Then cls = Right(cls, Len(cls) - 1)

10

End Function

Choose_Class_as_degrees.rar

[وليد المصرى 1]

استاذ طارق الف شكر بجد

ماذا لو وضعنا هذا الجدول فى شيت لوحدة

اقصد لو وضعنا الجدول بالكود فى شيت رقم 2 واخدنا البيانات من شيت رقم 1

تم تعديل سبتمبر 18, 2012 بواسطه goodlife

[طارق محمود]

أخي العزيز

الكود بيشتغل فقط علي أساس أن الثلاث خلايا العلوية المحتوية علي التقدير (ضعيف متوسط جيد)

علي أساس أنها بالترتيب في العناوين [F25], [G25], [H25]

غير كما تحب ثم غير في الكود بالتبعية في الجزء الأخير

..

..

Select Case grd

Case [F25]

cls = da3eef

Case [G25]

cls = good

Case [H25]

cls = wasat

End Select

Next col

..

..

[وليد المصرى 1]

انا اقصد لو شيلت الجدول ووضعتة فى شيت تانى هيشتغل ؟ انا عملت كدا ولكن ما يشتغل و جربت تغير كلام حضرتك لكن ما اشتغل

[وليد المصرى 1]

صباح الخير

منتظر رد حضرتك

[طارق محمود]

انا اقصد لو شيلت الجدول ووضعتة فى شيت تانى هيشتغل ؟ انا عملت كدا ولكن ما يشتغل و جربت تغير كلام حضرتك لكن ما اشتغل

طبعا يلزم شوية تعديل في الكود ليكون مرجعه بالورقة "work"

ولاتنسي التعديل في عناوين الثلاث خلايا العلوية المحتوية علي التقدير (ضعيف متوسط جيد)

الكود بعد التعديل

Function cls(nm As String, grd As String) As String

On Error GoTo 10


With Sheets("work")

    rw = WorksheetFunction.Match(nm, .[B:B], 0)

    For col = 3 To 10

        Select Case .Cells(rw, col) / .Cells(4, col)

            Case Is < 0.5

                da3eef = da3eef & "& " & .Cells(3, col)

            Case Is > 0.5

                good = good & "& " & .Cells(3, col)

            Case Is = 0.5

                wasat = wasat & "& " & .Cells(3, col)

        End Select


        Select Case grd

            Case [E7]

                cls = da3eef

            Case [G7]

                cls = good

            Case [F7]

                cls = wasat

        End Select

    Next col

End With


If Len(cls) > 1 Then cls = Right(cls, Len(cls) - 1)


10

End Function

طبعا لاحظت أن عناوين خلايا التقدير تغيرت إلي

[E7] ، [F7] ، [G7]

تفضل المرفق

Choose_Class_as_degrees2.rar

[وليد المصرى 1]

اشكرك استاذ طارق من فضلك اخر سؤال

اقدر اجمع التقديرات التقدير (ضعيف متوسط جيد) اقصد على سبيل المثال

كام مرة تكرار 4.4 وكام مرة تكرار 3.2 وهكذا ..... فى كل من التقدير (ضعيف متوسط جيد)