سماح الهياتمى قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 اساتذتى الكرام اريد التعديل التالى على الكنترول المرفق فى صفحة الناجحون عند كتابة الصف فى الخلية الصفراء 1 او 2 او 3 او 4 او 5 يظهر عدد الطلاب المحدد اريد ان تظهر اسماء الطلاب فقط بدرجاتهم لانى عندما اكتب 1 مثلا يظهر كل الاسماء اريد ظهور العدد الموجود فقط مرفق الكنترول للتعديل برجاء الرد من الاساتذة الكرام للاهمية وشكرا لكم سماح_كنترول.rar رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 أ/ سماح الهياتمى السلام عليكم ارجو اين يفى الملف بالمطلوب نسألكم الدعاء abo_abary_سماح_كنترول.rar رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 (معدل) السلام عليكم الأخ / ابو عبدالبارى سبقنى بتحميل الملف الله ينور ولكن الدالة ينقصها ال = لكى تعطى العدد الصحيح تقبل تحياتى سماح_كنترول.rar تم تعديل فبراير 7, 2017 بواسطه صالح أبو أحمد رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 الأخ الكريم صالح أبو أحمد السلام عليكم شكرً جزيلا على هذه الملحوظه 1 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 السلام عليكم ورحمة الله أساتذتى الاجلاء استميحكم عذرا هذا حل بالاكواد لجلب جميع البيانات لشيت الناجحين فقط ينسخ هذا الكود و يلصق فى موديول جديد ويخصص له زر بشيت الناجحين Sub MyArrays2() Range("I11:AP101").ClearContents Dim Arr As Variant, Arr2 As Variant Dim temp As Variant Arr = sheet1.Range("A10:CF" & sheet1.Range("I" & Rows.Count).End(xlUp).Row) Arr2 = Array(5, , 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 25, 26, 27, 28, 31, 32, 33, 34, 52, 58, 64, 70, 73, 74, 75, 76, 84) ReDim temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr2) + 1) For i = 1 To UBound(Arr) If Arr(i, 9) <> "" Then p = p + 1 For j = 0 To UBound(Arr2) On Error Resume Next If p <= Range("H4") Then temp(p, j) = Arr(i, Arr2(j)) End If Next j End If Next i If p > 0 Then Range("I11").Resize(p, UBound(temp, 2)).Value = temp Call Serial End Sub Sub Serial() For R = 11 To Range("K" & Rows.Count).End(xlUp).Row If Cells(R, "I") <> "" Then Cells(R, "J") = R - 10 End If Next End Sub رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 الاساتذه الكرام الاستاذ ابوعبد الباري والاستاذ زيزو لماذا لاتشاركون وانتم قمم ؟ ....في هذا الرابط رابط هذا التعليق شارك More sharing options...
سماح الهياتمى قام بنشر فبراير 8, 2017 الكاتب مشاركة قام بنشر فبراير 8, 2017 شكرا لكم اساتذتى الاعزاء اردت ايضا عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا طلبة ناجحون بالصف الاول وينقلون للصف الثانى وعندما اكتب رقم 2 يظهر طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث وهكذا حتى الصف الخامس واكون شاكرة لكم رابط هذا التعليق شارك More sharing options...
سماح الهياتمى قام بنشر فبراير 8, 2017 الكاتب مشاركة قام بنشر فبراير 8, 2017 شكرا لكم اساتذتى الاعزاء اردت ايضا عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا طلبة ناجحون بالصف الاول وينقلون للصف الثانى وعندما اكتب رقم 2 يظهر طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث وهكذا حتى الصف الخامس واكون شاكرة لكم للرفع رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر فبراير 8, 2017 مشاركة قام بنشر فبراير 8, 2017 السلام عليكم يمكنك إضاقة هذه الدالة فى الخلية N5 =IF(F2=1;"طلبة ناجحون بالصف الاول وينقلون للصف الثانى";IF(F2=2;"طلبة ناجحون بالصف الثانى وينقلون للصف الثالث";IF(F2=3;"طلبة ناجحون بالصف الثالث وينقلون للصف الرابع";IF(F2=4;"طلبة ناجحون بالصف الرابع وينقلون للصف الخامس";IF(F2=5;"طلبة ناجحون بالصف الخامس وينقلون للصف السادس";""))))) ارجوا أن يكون هو بالمطلوب نسألكم الدعاء 1 رابط هذا التعليق شارك More sharing options...
سماح الهياتمى قام بنشر فبراير 9, 2017 الكاتب مشاركة قام بنشر فبراير 9, 2017 شكرا لكم اساتذتى الاعزاء اردت ايضا عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا طلبة ناجحون بالصف الاول وينقلون للصف الثانى وعندما اكتب رقم 2 يظهر طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث وهكذا حتى الصف الخامس واكون شاكرة لكم استاذى العزيز لم تسفر الدالة عن جديد رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 أختنا الكريمة تم اضافة الدالة المطلوبة بالخلية ( L2 ) عند تغيير الصف بالأسهم تتغير مباشرة بيان الخلية ( L2 ) اضافة دالة ناجح ومنقول للصف.rar رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 شكرا لكم اساتذتى الاعزاء اردت ايضا عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا طلبة ناجحون بالصف الاول وينقلون للصف الثانى وعندما اكتب رقم 2 يظهر طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث وهكذا حتى الصف الخامس واكون شاكرة لكم استاذى العزيز لم تسفر الدالة عن جديد أنا أخطأت عندما قولت الخلية n5 كانت الخلة المدمجة L2 وأرت أن تنسخيها بيدك كى تتدربى على الدوال مش أكتر سماح_كنترول.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.