عبد الفتاح كيرة

هذا شيت قمت بتصميمه

يرحل الناجح و الراسب بدون معادلات

بمساعدة الأخ يحيى

هنا

السلام عليكم

أخى هذه مساهمة بجوار مساهمات أساتذتى

ضع المعادلة التالية فى b8

واضغط

Ctrl+Shift+Enter

=INDEX($A$3:$G$3;;SMALL(IF($A$3:$G$3<>0;COLUMN(A$3:G$3));ROW(A1)))

أخى الكريم

ستجد بهذا الشيت أشياء مفيدة لك

هنا

تمام أستاذ سالم

جهد مميز

جزاك الله خيرا

فى الحقيقة قد تبدو الأكواد صعبة

لكن فى نظرى أن الأصعب و الذى نحتاج إليه أكثر

هو

طريقة التفكير فى البرامج

أعلم أن البرامج الكبرى

ينقسم المبرمجون فيها لفريقين

الأول لوضع خطة البرنامج

وخرائط التدفق و غير ذلك

وفريق آخر

يضع الأكواد بناء على ما يرسمه الفريق الأول

فعمل الفريق الأول هو الأهم

و لذلك نطلب من حضرتكم

توضيح آلية التفكير فى وضع البرنامج لحل المشكلة

متى نختار مثلا

حلقات التكرار

ومتى نختار الجمل الشرطية

أرجو أن يكون طلبى واضحا

التعديل يكون بصفحة التمارين

وصفحة الغياب

يتبعه التغيير فى صفحة الاستدعاء

هذا ما فهمته

=IF(AND(E7="غ";F7="غ");"غ";SUM(E7:F7))

عدل أيضا معادلة مجموع الفصلين على هذا المنوال

استفدت كثيرا أخى سالم من ملفك

شكرا جزيلا

أخى

استخدم

طرق عرض مخصصة

أخى

الصفحة رقم 1

تستدعى البيانات و لا تعدل فيها البيانات

هذا فديو ناطق لطريقة إدراج موضوع بالمنتدى

لتحميل الفديو

http://posterous.com/getfile/files.posterous.com/one-ayort/e4QhVTqDEUpGd1ESmkjAJdh8EjPMQelordjPGTSmAxNWj03x9cDjyX5Eaw3H/new_topic.mp4

شكرا لك أستاذنا على البرنامج

حل بلا كود

المرفقات

درجات المهاراتkemas.rar

طيب

فحص الإكمال هذا

يكون 3 مواد فقط ؟

وما هى المواد الثلاثة التى فيها إكمال

أبو البراء و أبو العقاب

سبحان الله

أخى أبا العقاب

الطريقة تختلف قليلا عما أجريته أنت

ستجعل خلايا بعدد المواد

وتضع فى كل خلية معادلة لمعرفة هل الطالب راسب فى المادة أم لا

مثلا فى الرياضيات

=IF(S18<50;"رياضيات";"")

ثم تأخذ الخلايا فى نتائج فحص الإكمال قيمها

من نفس هذه الأعمدة

هذا على عجالة

تفضل

أولى أول يتيم ذكر

3 شروط

و عددهم = 1

=SUMPRODUCT((السجل!P9:P1000="يتيم")*(السجل!C9:C1000="ذكر")*(السجل!E9:E1000="1/1"))

=SUMPRODUCT((السجل!P9:P1000="يتيم")*(السجل!C9:C1000="انثى")*(السجل!E9:E1000="1/1"))

لعد الناجحين أولى أول لغة عربية

=SUMPRODUCT((B2:B8=1)*(E2:E8>=50))

=SUMPRODUCT((B2:B8=1)*(E2:E8>=50))

جرب وشوف

نعم

فى

c11

ضع المعادلة

=SUMPRODUCT((ةالفصل='احصاء عام'!B11)*(ةنوع="ذكر"))

=SUMPRODUCT((ةالفصل='احصاء عام'!B11)*(ةنوع= "انثى"))

و على مثل هذا فقس بقية المعادلات

أعتقد أن المعادلة فى f1 تكون هكذا

=COUNTIF($F$1:F1;F1)=1

=COUNTIF($F$1:F2;F2)=1

=COUNTIF($F$1:F3;F3)=1

واضح أنها تعد قيمة الخلية من أول صف فى المدى

وحتى الخلية التى يتم تعديلها

لاشىء بهذه الرسالة

الملف به ماكرو

اختر حفظه ك ملف يقبل الماكرو

النوع الثانى

أظن نحتاج فقط تغيير المدى

نشكرك جدا على الكتاب

ليت الكتب العربية فى نفس المجال تتوفر لنا

شكرا للأخ عماد الحسامى

اللمسات الأخيرة ممتازة جدا

إذن

توصلنا للكود النهائى

هذا

' åÐÇ åæ ßæÏ ÇáÊáæíä ÇáäåÇÆí

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

        If Target.Value < 15 Then

        Target.Interior.ColorIndex = 3

        Else

        Target.Interior.ColorIndex = 0

        End If

                End If


              If IsEmpty(Target.Cells) Then Target.Interior.ColorIndex = 0


End Sub

ممتاز جدا أخى هشام

نعم

الأبيض هو لون

و

0

يعنى بدون تعبئة

ممتازة و الكود الآن يعمل بكفاءة

و الحمد لله

لكن يبقى السؤال

لماذا عند ضغط مفتاح

delete

عند تحديد الخلية الملونة بالأحمر و مسحها

لم ينفذ الشرط و تعود الخلية للون العادى يعنى بلا لون

أو حتى أبيض

هل ضغط مفتاح

delete

لا يعتبر تغييرا

يعنى

لا يندرج تحت الحدث

change

هذا هو السؤال

أم أن هناك خطوة فى الكود

تمنع ذلك

أرجو أن يكون سؤالى مفهوما

وشكرا لردودك التى استفدت منها جدا

هذا فيه علاج المشكلة

عند مسح أى خلية

تتلون باللون الأبيض

المناقشات أثمرت خيرا و الحمد لله

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

        If Target.Value < 15 Then

        Target.Interior.ColorIndex = 3

        Else

        Target.Interior.ColorIndex = 2

        End If

                End If

                If ActiveCell.Value = "" Then

                ActiveCell.Interior.ColorIndex = 2

                End If

End Sub