محمد الورفلي1

ممتاز بارك الله فيك

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

السلام عليكم بارك الله فيك إن شاء الله .... يجزيك الله خير الجزاء علي كل دقيقة بذلتها لتخرج هذا العمل الجميل شكراً

السلام عليكم اريد في جلب صفوف حسب الفصل جلب صفوف حسب الفصل.rar

السلام عليكم كل عام وانتم بخير ممكن مرفق 2003

السلام عليكم هذا رابط اخر للبرنامج حجم الملف 183.91 MB http://www.gulfup.com/?mIL8Ai

السلام عليكم جرب هذا الملف عملت لك ارقام حتي عشرة اكمل باقي الارقام الي 100 رقم بدل من نص.rar

شكراً علي الاهتمام والمتابع تم بحمد الله حل الموضوع بالكواد ولكن باقي جزئية بسيطة في المشاركة ( 6 )

السلام عليكم ورحمة الله وبركاتة شكراً علي الاهتمام والمتابع تم بحمد الله حل الموضوع بالكواد ولكن باقي جزئية بسيطة في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=55757#entry352747

احسنت بارك الله فيك

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

السلام عليكم ورحمة الله لأيثارة الموضوع وحتى تعم الفائدة اخي الحبيب جمال نشاركك في الاجر هذا الكود للاستاذ سليم هذا كود ابجدة تلقائية وانتقال الى بعد اخر خلية نشط القائمة الذكية(1).rar

السلام عليكم الاخ الكريم ياسر الملف لم يكتمل بعد ارجو تصحيح ما تجده من اخطاء هذا الكود تعبو فيه الاساتذة في المنتدي معي حتي ظهر بهذ الشكل هو ثلاث اجزاء 1/ كود وضع ارقام في خلية بدل من نصوص مثل تضع رقم (( 1 )) جعلتها ترمز الي اولي ابتداي وتستطيع تغييرها الي متشاء 2/ كود وضع حرف (( ك )) في خلية ترمز الي (( ذكر ))) و حرف ( ن ) الي انثى 3/ كود ابجدة تلقائي والا نتقال الي اخر خلية فارغة عند وضع اسم الطالب Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then Select Case Target Case 1 Target = "اولي ابتدائي" Case 2 Target = "ثانية ابتدائي" Case 3 Target = "ثالثة ابتدائي" Case 4 Target = "الصف الرابع" Case 5 Target = "الصف الخامس" Case 6 Target = "الصف السادس" Case 7 Target = "الصف السابع" Case 8 Target = "الصف الثامن" Case 9 Target = "الصف التاسع" End Select End If If Not Intersect(Target, Range("d18:d2014")) Is Nothing Then Select Case Target Case "ك" Target = "ذكر" Case "ن" Target = "انثى" End Select End If Application.ScreenUpdating = False If Target.Column = 4 Or Target.Column > 8 Then GoTo 1 lr = Cells(Rows.Count, 2).End(xlUp).Row If Range("B" & lr) = "" Or Range("C" & lr) = "" Or Range("d" & lr) = "" _ Or Range("e" & lr) = "" Then GoTo 1 Range("b18:e" & lr).Select Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ''''''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With '''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With Range("b" & lr + 5).Select 1: Application.ScreenUpdating = True End Sub شئون بسيط.rar

تم حل المشكلة للفائدة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then Select Case Target Case 1 Target = "اولي ابتدائي" Case 2 Target = "ثانية ابتدائي" Case 3 Target = "ثالثة ابتدائي" Case 4 Target = "الصف الرابع" Case 5 Target = "الصف الخامس" Case 6 Target = "الصف السادس" Case 7 Target = "الصف السابع" Case 8 Target = "الصف الثامن" Case 9 Target = "الصف التاسع" End Select End If Application.ScreenUpdating = False If Target.Column = 4 Or Target.Column > 8 Then GoTo 1 lr = Cells(Rows.Count, 2).End(xlUp).Row If Range("B" & lr) = "" Or Range("C" & lr) = "" Or Range("d" & lr) = "" _ Or Range("e" & lr) = "" Then GoTo 1 Range("b18:e" & lr).Select Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ''''''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With '''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With Range("b" & lr + 5).Select 1: Application.ScreenUpdating = True End Sub

الاخ ياسر شكراً لكن عند وضع الكود مع كود موجود في نفس الورق اصبح في تظارب في الاكواد هل يمكن تغيير اسم الحدث (( الكود الموجود مسبقاً هو للفرز والتنقل مباشرة للخلية المطلوبة فكيف العمل مع ذالك Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then Select Case Target Case 1 Target = "اولي ابتدائي" Case 2 Target = "ثانية ابتدائي" Case 3 Target = "ثالثة ابتدائي" Case 4 Target = "الصف الرابع" Case 5 Target = "الصف الخامس" Case 6 Target = "الصف السادس" Case 7 Target = "الصف السابع" Case 8 Target = "الصف الثامن" Case 9 Target = "الصف التاسع" End Select End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column = 4 Or Target.Column > 8 Then GoTo 1 lr = Cells(Rows.Count, 2).End(xlUp).Row If Range("B" & lr) = "" Or Range("C" & lr) = "" Or Range("d" & lr) = "" _ Or Range("e" & lr) = "" Then GoTo 1 Range("b18:e" & lr).Select Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ''''''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With '''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With Range("b" & lr + 5).Select 1: Application.ScreenUpdating = True End Sub

السلام عليكم ممكن تحدي عمل هذا الكود في العمود c فقط من c18:c2014 مع العلم هذا الكود يعمل بشكل ممتاز في جميع الخلاية ولكن اريدة فقط في العمود c كود تبديل رقم بنص.rar

استاذ جمال ممكن الطريقة التي تكلم عنها بالكود

معذرة للاهمية لاكتمال ملف شئون مدرستي للرفع وهذا اخر شى بهذا الملف جزاكم الله خير مراتب 1.rar

شكرا استاذ محمد

السلام عليكم اريد عند اختيار صف في الخليةk6 واختيار مادة في الخلية k8 تظهر الاعمال في الخلية k13و درجة الامتحان في الخلية k16 لاي صف اختاره اعتقد ان طريق سياغة الجدول خطاء فارجو ان تعطوني افضل طريق دالة Vlookup بشرطين1.rar

للرفع

للرفع

السلام عليكم اريد تعديل في دالة Vlookup بشرطين افقيين دالة Vlookup بشرطين.rar

السلام عليكم انا قصدي الكود في الخلية من من f18 الي 2014 f

السلام عليكم كيف ازيد مدى العمود من f5 الي 2014 f في المرفق مراتب 1(1).rar