logo

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



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





15-04-2020 08:16 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 36
الدولة : المملكة العربية السعودية
الجنس :
قوة السمعة : 189
الاعجاب : 3
اللهم يا معلم إبراهيم علمنا ويا مفهم سليمان فهمنا ويا مؤتي الحكمة لقمان اتنا الحكمة وفصل الخطاب وبعد:
أحب أن أقدم لكم هذا الموضوع شارحا فيه تنسيق تحليل نتائج الطلاب عبر الأكواد
وأيضا التنسيق الشرطي وبعضا من الدوال التي نحتاجها في مثل هذا الشرح .
لنفترض أن لدينا جدول بيانات الطلاب من ( a6:i20) وبعضا من الطلاب في الصف الأول الابتدائي وبعضهم من الصف الثاني الابتدائي في ورقة العمل المسماة ( " بيانات الطلاب " )
أولا : نريد أن نرحل كل طلاب صف دراسي في ورقة عمل نسميها باسم كل صف دراسي، ولابد لنا
هنا أن نقوم بإنشاء ورقة عمل باسم كل صف دراسي على حده .
ثانيا : نقوم بفتح محرر الأكواد ( alt+ 11 ) ونذهب إلى إدراج مودل ونكتب الكود التالي في مودل جديد ونضيفه الى زر :
وعمل الكود يقوم بفلترة الطلاب الذين يدرسون في كل صف داراسي ويقوم بترحيل الأسماء والصف بكل محتوياته إلى ورقة العمل المسماة لترحيل إليها.

CODE
Sub trheel()
' مع اسم ورقة العمل ونطاق (a6:i100 )
With Sheets("بيانات الطلاب").Range("a6:i100")
' تجاوز الأخطاء
On Error Resume Next
' اخفاء منع اهتزاز الشاشة
Application.ScreenUpdating = False
' تحديد وضع الفلتره
Selection.AutoFilter
'تنشيط بداية نطاق الفلترة من العمود رقم 3  مع كريتريا المفلترة وهي الصف الدراسي
ActiveSheet.Range("a5:i100").AutoFilter Field:=3, Criteria1:="الأول الابتدائي"

' النطاق الذي تريد نسخه مع نسخ محتويات اخر صف به بيانات
 Range("b6:i100" & Cells(Rows.Count, 3).End(xlUp).Row + 1).Copy
 'لصق البيانات المنسوخه في شيت الصف الاول الابتدائي بدابة في العمود بي لصق خاص
 Sheets("الأول الابتدائي").Range("b" & Sheets("الأول الابتدائي").Cells(Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial (xlPasteValues)
 ' اخفاء وضع النسخ
 Application.CutCopyMode = False
 'اظهار منع اهتزاز الشاشة
 Application.ScreenUpdating = True

 
End With
End Sub


ثانيًا : بعد ما رحلنا الأسماء إلى الأوراق العمل التي نريدها نقوم بتنسيق البيانات
وهناك طريقتين في الإكسيل لتنسيق عبر ( أكواد Vba ) أو التنسيق الشرطي .


  • لتنسيق ( ورقة العمل المسماة (" الأول الابتدائي ") عبر الأكواد نقوم بالضغط اكلك يمين اسم الشيت بالأسفل ونضغط على عرض التعليمات البرمجية كما في الشكل (1).</li>
  • نختار worksheet والحدث selectionchange نكتب الكود التالي لتلوين عمود واحد فقط ( E ) : </li>
بكتابة حلقة تكرارية تبدأ من الصف 6 إلى صف 15 بوجد شرط إذ كانت الخلية تحتوي على كلمة " جيد " لونها باللون البرتقالي معبر عن اللون البرتقالي برقم " 45 " وكلمة " ممتاز " باللون الأخضر برقم " 4 " ونكرر تلوين الخلايا بنفس الطريقة في العمود ( E)بحسب الألوان التي تريدها شاهد مرفق " 4" لمعرفة قائمة ارقام الألوان في أكواد vba :

CODE
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
For i = 6 To 15
If Cells(i, "E") = "جيد" Then
Cells(i, "E").Interior.ColorIndex = 45
ElseIf Cells(i, "E") = "ممتاز" Then
Cells(i, "E").Interior.ColorIndex = 4
End If
Next i
End sub


  • ولتلوين عدة خلايا متجاورة بناء قيمة خليه في عمود ( i ) نكتب الكود التالي : </li>
  • بكتابة حلقة تكرارية تبدأ من الصف 6 إلى صف 15 بوجد شرط إذ كانت الخلية عمود ( i ) تحتوي على كلمة " ممتاز " لونها باللون الأخضر ثم الازاحة ناحية اليمين بمقدار 4 خلايا متجاوره معبر عن اللون الأخضر برقم " 4 " . </li>
وكلمة " جيد جداً " باللون الأزرق برقم " 23 " ونكرر تلوين الخلايا بنفس الطريقة في العمود (i) بحسب الألوان التي تريدها شاهد مرفق" 4" لمعرفة قائمة ارقام الألوان في أكواد vba :

CODE
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Long
For R = 6 To 15
If Cells(R, "I  "ممتاز" = (" Then
Cells(R, "I").Offset(0, 0).Interior.ColorIndex = 4
Cells(R, "I").Offset(0, -1).Interior.ColorIndex = 4
Cells(R, "I").Offset(0, -2).Interior.ColorIndex = 4
Cells(R, "I").Offset(0, -3).Interior.ColorIndex = 4
ElseIf Cells(R, "I  "جيد جداً" = (" Then
Cells(R, "I").Offset(0, 0).Interior.ColorIndex = 23
Cells(R, "I").Offset(0, -1).Interior.ColorIndex = 23
Cells(R, "I").Offset(0, -2).Interior.ColorIndex = 23
Cells(R, "I").Offset(0, -3).Interior.ColorIndex = 23
End If
Next R
End sub


ثالثًا : بعد ما تم تنسيق بيانات الطلاب المرحلة نقوم باستخراج اعداد الطلاب الذين اخذوا مستويات تقديرات في المواد الدراسة حسب المرفق رقم ( 1 ) :
ونفتح محرر الأكواد وتكتب دالة countif من خلال الكود التالي :
اذا يوجد في نطاق العمود ( e6:e15) يحتوي على كلمة ممتاز أو جيد جدا أو جيد أو مقبول أو ضعيف مطابق لخلايا عمود ( k) عدها لي في خلايا عمود ( L) مسمى العمود مادة " القران الكريم" :

CODE
Sub cuontif()
     Dim i As Long
     For i = 6 To 15
    Cells(i, "L") = Application.CountIf([E6:E20], Cells(i, "K(("
   Cells(i, "M") = Application.CountIf([I6:I20], Cells(i, "K(("
   Next i
   End sub

رابعا : لجمع اعداد الطلبة في مستويات التقدير ونفتح محرر الأكواد وتكتب دالة sum من خلال الكود التالي :
تحديد الخليه ( L11) ونكتب الدالة الجمع ونحدد نطاق الخلايا التي نريد جمعها :

CODE
Sub sum ()
  [L11] = Application.Sum([L6:L10])
[M11] = Application.Sum([M6:M10])
End sub

خامسًا : في ورقة العمل الثانية تحت مسمى ( " الثاني الابتدائي ") استخدمنا النسيق الشرطي
في تنسيق الجدول شاهد المرفقات ومرفق ملف الشرح

وختامًا اسال الله التوفيق فان اصبت فمن توفيق الله وان أخطأت فمن نفسي والشيطان
لكم خالص التحايا اخوكم / ابومشاري~~~
142
 
  1.png   تحميل png 1.png مرات التحميل :(14)
الحجم :(224.551) KB
  2.png   تحميل png 2.png مرات التحميل :(11)
الحجم :(258.205) KB
  3.png   تحميل png 3.png مرات التحميل :(7)
الحجم :(315.927) KB
  4.png   تحميل png 4.png مرات التحميل :(7)
الحجم :(67.044) KB
 
  تحليل نتائج الطلاب.xlsm   تحميل xlsm مرات التحميل :(69)
الحجم :(46.263) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، Yasser Elaraby، نصر الإيمان، abouelhassan، مدحت حافظ، السعيد الجزائري، hassona229،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  15-04-2020 08:23 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي العزيز صالح وجزاك الله خيراً
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: هاوي برمجه، مدحت حافظ،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  15-04-2020 08:35 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 36
الدولة : المملكة العربية السعودية
الجنس :
قوة السمعة : 189
الاعجاب : 3
شكرا اخي ياسر على حضورك الرائع
ودائمًا أنت الحافز الاكثر لنا للأستمرار
شاكر مقدر لك جهودك ~~113

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  15-04-2020 11:23 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
جزاك الله كل خير اخى الكريم وزادك الله من فضله

أثارت هذه المشاركة إعجاب: هاوي برمجه، YasserKhalil،


توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  15-04-2020 11:53 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 36
الدولة : المملكة العربية السعودية
الجنس :
قوة السمعة : 189
الاعجاب : 3
شكرا اخي علي محمد على حضورك
وكلامك الحسن المبارك
لك خالص شكري ~~🌹

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  16-04-2020 12:05 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
f6cccadab073d87d565c4be3f2fc3e7b
جزاك الله خيرا 81 اخي الكريم

أثارت هذه المشاركة إعجاب: YasserKhalil، هاوي برمجه،


توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  16-04-2020 10:40 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 36
الدولة : المملكة العربية السعودية
الجنس :
قوة السمعة : 189
الاعجاب : 3
شكرا اخي ياسر .. ابوالعربي ~~
لحضورك الرائع ~🌹

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  03-05-2020 04:03 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
زادك الله علما ...بارك الله فيك

أثارت هذه المشاركة إعجاب: YasserKhalil، هاوي برمجه،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  03-05-2020 10:20 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
عوداً حميداً يا دكتور وكل عام وأنت بخير

أثارت هذه المشاركة إعجاب: نصر الإيمان،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  04-05-2020 12:24 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
جزاك الله خيرا استاذ ياسر . . . كل عام وحضراتكم بكل خير

أثارت هذه المشاركة إعجاب: YasserKhalil، هاوي برمجه،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  04-05-2020 12:41 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
وجزيت خيراً يا دكتور وكل عام وأنت وجميع أعضاء المنتدى بخير

أثارت هذه المشاركة إعجاب: هاوي برمجه،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  04-05-2020 09:44 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 36
الدولة : المملكة العربية السعودية
الجنس :
قوة السمعة : 189
الاعجاب : 3
شكرًا دكتور نصر على حضورك الرائع
ولكم مني خالص التقدير والاحترام

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif تحليل نتائج الطلاب من خلال الأكواد والتنسيق الشرطي
  29-06-2021 10:09 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2019
رقم العضوية : 14998
المشاركات : 8
الجنس :
تاريخ الميلاد : 14-8-1968
قوة السمعة : 18
الاعجاب : 0
السلام عليكم ورحمة الله وبركاته شكرا جزيلا 😀




اضافة رد جديد اضافة موضوع جديد




الكلمات الدلالية
تحليل ، نتائج ، الطلاب ، خلال ، الأكواد ، والتنسيق ، الشرطي ،









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

الساعة الآن 05:51 PM