برداء المساعدة فى الملف المرفق

[روضة محمد لطفى]

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

مرفق المطلوب بداخل الملف المرفق برجاء المساعدة من خلال المعادلات لسهولة استخراج الاحصاءات اللازمة 

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

شيت الكنترول 2024.xlsx

[Saleh Ahmed Rabie]

17 ساعات مضت, روضة محمد لطفى said:

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

مرفق المطلوب بداخل الملف المرفق برجاء المساعدة من خلال المعادلات لسهولة استخراج الاحصاءات اللازمة 

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

شيت الكنترول 2024.xlsx 22.76 kB · 4 downloads

**كود VBA لإظهار "راسب" للطلاب الذين لم يحصلوا على ربع درجة النجاح في الترم الثاني**
 

Sub CheckPassFail()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") 'استبدل "Sheet1" باسم ورقة العمل الخاصة بك

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastRow
        If ws.Cells(i, "D").Value < 5 Then 'عمود الدرجات
            ws.Cells(i, "E").Value = "راسب" 'عمود النتيجة
        End If
    Next i

End Sub

**خطوات الاستخدام:**

1. انسخ الكود والصقه في وحدة نمطية في دفتر عمل Excel الخاص بك.
2. استبدل "Sheet1" في سطر `Set ws = ThisWorkbook.Worksheets("Sheet1")` باسم ورقة العمل التي تحتوي على بيانات الطلاب.
3. قم بتشغيل الكود بالنقر فوق الزر "تشغيل" في علامة التبويب "المطور" أو باستخدام اختصار لوحة المفاتيح `F5`.

**ملاحظات:**

* يفترض الكود أن عمود الدرجات هو العمود "D" وعمود النتيجة هو العمود "E".
* إذا لم يكن لديك عمود نتيجة، يمكنك إضافة واحد يدويًا أو تعديل الكود لتحديث عمود آخر.
* يمكنك تخصيص الكود لتناسب احتياجاتك المحددة، مثل تغيير قيمة درجة النجاح أو تغيير النص الذي يتم عرضه للطلاب الراسبين.

[hegazee]

هناك أكثر من موضوع في المنتدى تناول شيت الجدارات 

https://www.officena.net/ib/topic/124499-تحديد-اوائل-القسم-في-امتحان-نهاية-العام-_-شيت-جدارات/

و هذا

https://www.officena.net/ib/topic/121181-شيت-كنترول-جدارات-_-قسم-حاسبات-_-مفتوح-المصدر/

 

تم تعديل يونيو 23 بواسطه hegazee