حسين شاكر قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 السادة الافاضل اغضاء منتدى اوفيستا السلام عليكم ورحمة الله وبركاتة ارجو من سيادتكم تركيب كود ناجح وراسب ودور ثان وان امكن شرح بسيط حتى يمكن استخدام الكود فيما بعد بمعنى التغير الواجب اتباعة لكى يعمل على كنترول اخر اكرمكم الله كنترول الصف الأول.rar
محمد ابو البـراء قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 السلام عليكم ورحمة الله وبركاته استاذي الفاضل //حسين شاكر تفضل هاتين الطريقتين لعلهما يفيا الغرض بإذن الله تعالى دالة بطريقة جديدة وسهلة لمعرفة حالة الطالب (راسب او ناجح ) [طريقة 2] لمعرفة حالة الطالب [راسب وناجح][اقل من نصف سطر الدالة]
حسين شاكر قام بنشر فبراير 27, 2014 الكاتب قام بنشر فبراير 27, 2014 الاخ العزيز محمد السلام عليكم ورحمة الله وبركاتة شكرا اخى لتعبك ولكن المطلوب ليس معادلة ناجح وراسب ولكن المطوب يرحل الطلبة بدرجاتها الى صفحة اخرى ناجح وراسب ودور ثان
محمد ابو البـراء قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 تفضل هذا الكود ولا اسهل ولا اروع من كده للعلامة عبد الله باقشير وهو مشروح واي مشكلة انا في خدمتك Sub KH_START() ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer, O As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A11:DZ1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents Sheets("رسوب").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 11: N = 11: O = 12 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf Cells(R, 113) = "رسوب" Then Range("A" & R).Resize(1, 115).Copy Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' لترك صف فارغ اعلا كل صف O = O + 2 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''
حسين شاكر قام بنشر فبراير 27, 2014 الكاتب قام بنشر فبراير 27, 2014 اخى محمد الف شكر لتعبك الكود السابق حاولت تطبيقة ولم يفلح معى ارجو ارشادى الى ما يتم تغيرة وشكرا
محمد ابو البـراء قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 السلام عليكم ورحمة الله وبركاته 113 معناه رقم العمود الذي به شروط الترحيل في الورقة التى تريد ترحيلها ( ناجح - راسب _ له دور ثان) او ما يسمي عمود حالة الطالب فقم بتغييره على حسب عمود حالة الطالب عندك 115 أخر عمود يتم نسخه وترحيله فقم بتغييره على حسب أخر عمود به بيانات عندك في الورقة التى تريد ترحيلها واي مشاكل اخرى انا في خدمتك..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.