اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترحيل الناجح والدور الثانى والراسب


الردود الموصى بها

2 hours ago, كعبلاوى said:

رجاء من اساتذتى فى المنتدى ترحيل الطالبات

من الشيت الى صفحة الناجحة او الدور الثانى او الراسبة كلا حسب نتيجتها

ولكم منا جزيل الشكر

 

جمع مواد الرسوب واظهار نتيجة الطالبة.rar

تم تعديل بواسطه كعبلاوى
رابط هذا التعليق
شارك

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

استخدم هذا الكود

Sub Results()
Dim ws As Worksheet, Sh As Worksheet
Dim C As Range
Dim LR As Long, p As Long
Set ws = Sheets("Sheet1")
LR = ws.Range("B" & Rows.Count).End(xlUp).Row
For Each Sh In Worksheets
If Sh.Name <> "Sheet1" Then
Sh.Range("B11:C" & Sh.Range("B" & Rows.Count).End(xlUp).Row + 1).ClearContents
End If
For Each C In ws.Range("C11:C" & LR)
If Trim(C.Value) = Trim(Sh.Name) Then
p = p + 1
Sh.Cells(p + 10, "B") = C.Offset(0, -1).Value
Sh.Cells(p + 10, "C") = C.Value
End If
Next
p = 0
Next
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

معادلة واحدة توضع في كل الصفحات (من ""ناجحة " حتى "راسبة وليس لها حق الاعادة") في الخلية  B11  (استعمل     Ctrl+Shift+Enter  و ليس   Enter وحدها)

اسحب المعادلة يمينا عامود واحد ونزولاً قدر ما تريد

ملاجظة:كي تعمل المعادلة يجب ان يكون الملف محفوظ داخل الجهاز

المعادلة

=IFERROR(INDEX(Sheet1!B$11:B$27,SMALL(IF(Sheet1!$B$11:$B$27<>"",IF(TRIM(Sheet1!$C$11:$C$27)=(RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-SEARCH("]",CELL("filename",$A$1)))),ROW($B$11:$B$27)-ROW($B$11)+1)),ROWS(A$1:A1))),"")

بالنسبة للمعادلة في الصفحة  Sheet1 الخلية C11  نزولاً

يمكن استبدالها يهذه (دون تكرار الشرط IF)

=IF(D11="","",VLOOKUP(D11,{0,"ناجحة",0;1,"دور ثان",0;3,"راسبة ولها حق الاعادة",0;4,"راسبة وليس لها حق الاعادة",0},2))

الملف مرفق

 

 

ALL_In One Salim.xls

رابط هذا التعليق
شارك

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

حل آخر بالمعادلات

اذا لم تظهر معك النتيجة اضغط على ازرار (Ctrl+Shift+Enter) ثم اسحب نزولا

 

جمع مواد الرسوب واظهار نتيجة الطالبة.rar

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information