كيف يمكن فصل الناجحين عن الراسبين في الشيت كنترول

[Ms. Ghada]

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

 

السادة الافاضل الرجاء التكرم بتوضيح طريقة فصل الناجحين عن الراسبين و كذلك الدور الثاني كلا في شيت خاص به

 

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

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

[سليم حاصبيا]

 اليك الحل بواسطة المعادلات

 

توزيع الطلاب.rar

[Ms. Ghada]

ممتاااااااااااز

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

[عبدالباري البنا]

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

بعد اذن اخى الحبيب 

سليم حاصبيا

ده حل اخر ... باحد اكواد المنتدى لاخينا العبقرى ... الحسامى

 

ترحيل ناجح ودور ثانى.rar

تم تعديل يناير 27, 2015 بواسطه عبدالباري البنا

[اشرف بشاى جرجس]

ممكن شرح لكود الترحيل حتى اقوم بتطبيقة على الشيت الخاص بى

 

[ابو عبدالبارى]

من فضلك ارسال الشيت الخاص بك للعمل علية

[asdhamdey]

Sub ناجحين()
Dim c As Range
For Each c In Sheet1.Range("case")
If c.Value = "ناجح" Then
 Z = Z + 1
lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1
Sheet2.Range(Sheet2.Cells(lstrow, "b"), Sheet2.Cells(lstrow, "ag")) = _
Sheet1.Range(Sheet1.Cells(c.Row, "b"), Sheet1.Cells(c.Row, "ag")).Value

Sheet2.Cells(lstrow, "a") = Z:
End If
Next c
End Sub

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

لو تكرمت نريد شرحه

[asdhamdey]

هذا هو المرفق

 

الشيت.rar

الذي نريد تطبيق الكود عليه

[ابو عبدالبارى]

3 ساعات مضت, asdhamdey said:

هذا هو المرفق

 

الشيت.rar

الذي نريد تطبيق الكود عليه

جرب الملف التالى

abo_abary_الشيت.rar

[ناصر سعيد]

    M = 6: N = 6: S = 6

     Range("A" & R).Range("a1:cx1").Copy
             With Sheets("ناجح")
             .Range("a" & M).PasteSpecial xlPasteValues
             .Range("a" & M).PasteSpecial xlPasteFormats
             .Range("a" & M) = M - 6

انا معجب بحلولك جزاك الله خيرا وبعد

من فضلك ماذا تعني

أحرف A - a - N - S --M  الكابتل والاسمول

 

 

 

[ناصر سعيد]

للرفع رفع الله مقداركم

[ابو عبدالبارى]

12 ساعات مضت, ناصر سعيد said:

    M = 6: N = 6: S = 6

     Range("A" & R).Range("a1:cx1").Copy
             With Sheets("ناجح")
             .Range("a" & M).PasteSpecial xlPasteValues
             .Range("a" & M).PasteSpecial xlPasteFormats
             .Range("a" & M) = M - 6

انا معجب بحلولك جزاك الله خيرا وبعد

من فضلك ماذا تعني

أحرف A - a - N - S --M  الكابتل والاسمول

 

 

 

الكابتال او الأسمول  مجرد كتابة من لوحة المفاتيح لا تفرق أما بالنسبة للمتغيرات M -S-N فتعبر عن أول سطر يتم الترحيل له

[ناصر سعيد]

وليه 3 رموز

اول صف يتم الترحيل له هو الصف 7 وانت كاتب 6

ومع هذا بيرحل الى الصف 7

وحرف ال  A  معناه ايه

[ابو عبدالبارى]

حرف "A"المقصود به أول عمود بالشيت اما بالنسبة للثلاث رموز انا استخدمت رمز واحد فقط فى الكود بالنسبة للناجحين ورمز اخر للراسبن لأن اساس الكود كان واح وأنا قمت بتقسيمة الى كودين على زرين ونسيت ان اقوم بمسح اسماء المتغيرات الزائدة اما كيف يرحل للصف السابع فلاحظ السطر M=M+1

[محمد 778899]

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

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

ارجو من سيادتكم وضع كود لشيت الصف الثالث و كود للصف الرابع لفصل الناجحين عن الراسبين

و لسيادتكم جزيل الشكر

عصام شحاته بالتربية و التعليم

مش عارف ارفع الملفات كيف

[خالد الرشيدى]

السلام عليكم

أ/ محمد 778899

قم بفتح موضوع جديد به ملف مبسط - ليس شرط الملف الاساسي - مشروح به المطلوب وان شاء الله ستجد المساعده 

- الاكواد ليست ثابته توضع فى اى ملف كما هي - بل تحتاج الى تعديل حسب عدد الاعمده والصفوف واعمده الشرط و ..و...............

تقبل مرورى وتحياتى 

تم تعديل يونيو 14, 2017 بواسطه خالد الرشيدى

[محمد 778899]

22 minutes ago, محمد 778899 said:

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

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

ارجو من سيادتكم وضع كود لشيت الصف الثالث و كود للصف الرابع لفصل الناجحين عن الراسبين

و لسيادتكم جزيل الشكر

عصام شحاته بالتربية و التعليم

 

 

شيت الثانى.rar

شيت الرابع.rar

[abushuber]

في ٢٧‏/١‏/٢٠١٥ at 23:00, عبدالباري البنا said:

 

ده حل اخر ... باحد اكواد المنتدى لاخينا العبقرى ... الحسامى

 

ترحيل ناجح ودور ثانى.rar

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

في ٢٧‏/١‏/٢٠١٥ at 23:00, عبدالباري البنا said:

 

ده حل اخر ... باحد اكواد المنتدى لاخينا العبقرى ... الحسامى

 

ترحيل ناجح ودور ثانى.rar

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

تم تعديل نوفمبر 25, 2018 بواسطه abushuber

[ahmd_asd4]

بعد إذن اساذتي الكرام هذا حل بالمعادلات على السريع مع ملاحظة التعديل عليه

الشيت.rar