waledm قام بنشر مايو 20, 2017 مشاركة قام بنشر مايو 20, 2017 الأخوه الأفاضل السلام عليكم ورحمة الله وبركاته الشيت المرفق أرجو فصل الطلبة الناجحين عن الراسبين كل فى شيت مستقل عن الآخر جزاكم الله خيراً Book1.rar رابط هذا التعليق شارك More sharing options...
ابو علي و سدرة قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 اخى الكريم جرب المرفق اتمنى يكون هو ما تريد الصفحات ناجح / دور تانى محمية بدون كلمة مرور لمنع اللعب فى المعادلات تم الحل بمعادلة مضافة الى الاكسيل عند التغيير فى صفحة الادارة ( اضافة / حذف ) سيتم التعديل فى صفحة ناجح / راسب تلقائيا Book1.rar 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مايو 21, 2017 أفضل إجابة مشاركة قام بنشر مايو 21, 2017 السلام عليكم ورحمة الله تفضل Book1.rar 4 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 المحترم زيزو العجوز جزاك الله كل خير وبعد هل يمكن اضافه تسطير الخلايا لشيتات الناجحين والراسبين اوتوماتيك ؟ رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 السلام عليكم ورحمة الله نعم اخى العزيز يمكن ذلك استبدل الكود السابق بهذا الكود Sub ResultLastY() Dim ws As Worksheet, Nag As Worksheet, Ras As Worksheet Dim Arr As Variant, Temp As Variant Dim i, j, p, q As Long Dim Sresult As String Set ws = Sheets("إدارة") Set Nag = Sheets("ناجحين") Set Ras = Sheets("راسبين") Sresult = ws.Range("W2").Value Arr = ws.Range("B6:U" & ws.Range("B" & Rows.Count).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 20) = Sresult Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) Next End If Next If Sresult = "ناجح" Then Nag.Range("A6:U" & Nag.Range("B" & Rows.Count).End(xlUp).Row).Clear Nag.Range("B6").Resize(p, UBound(Temp, 2)).Value = Temp Nag.Range("A6") = 1 Nag.Range("A6").Resize(p).DataSeries step:=1 Nag.Range("A6:U" & Nag.Range("B" & Rows.Count).End(xlUp).Row).Borders.Weight = xlThin ElseIf Sresult = "دور ثان" Then Ras.Range("A6:U" & Ras.Range("B" & Rows.Count).End(xlUp).Row).Clear Ras.Range("B6").Resize(p, UBound(Temp, 2)).Value = Temp Ras.Range("A6") = 1 Ras.Range("A6").Resize(p).DataSeries step:=1 Ras.Range("A6:U" & Ras.Range("B" & Rows.Count).End(xlUp).Row).Borders.Weight = xlThin End If End Sub 1 رابط هذا التعليق شارك More sharing options...
waledm قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 جزاكم الله خيراً جميعاً رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 استاذ زيزو يحفظك الخالق ويرعاك رابط هذا التعليق شارك More sharing options...
ايمن منتصر قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 (معدل) الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته ممكن شيت للصفين الأول والثانى الفنى التجارى نظام الثلاث سنوات وياريت يكون فيه كود فصل الناجح والراسب ودور ثان تم تعديل ديسمبر 25, 2018 بواسطه ايمن منتصر رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 قم بالذهاب إلى هذا الرابط شيت الصف الثاني التجاري وهذا الرابط للصف الأول التجاري وكلاهما من الأستاذ القدير : إبراهيم الحداد جزاه الله خيرًا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها