اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

قنديل الصياد

06 عضو ماسي
  • Posts

    2,661
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    28

مشاركات المكتوبه بواسطه قنديل الصياد

  1. شكرا اخى العزيز علبى الرد وهو رد كافى

    ولكن اردت ان افهم معلومة وارجو توضيحها لى

     

    فى المعادلة التى قمت حضربكتابتها وجدت ان المجموع الكلى اكبر من او يساوى 90  فمن اين اتى الرقم 90   لان عندى بالكنترول مجموع يساوى 250 مرة ومصفوف اخرى يساوى 340

    فاردت معرفة من اين اتى العدد 90 واحتسب كيف وشكرا

     

    =IF(AND(R9>=90;H9>=H$6);"ناجح";"له دور ثانى")

     

     

     

  2. برجاء اصلاح كود الماكرو ترحيل الناجح والراسب فى الورقة المسماة 0 نتيجة الصف الثانى ) للاهمية وشكرا

     

    اسم المستخدم :     قنديل الصياد

     

     

    كلمة السر :   1964

     

     

     

    فك الحماية :     1992

     

     

     

     

  3. شكرا اساتذنتى الكرام

    لقد قمت بحل المشكلة ..  وذلك بفضل مساعداتكم فقد وجدت معادلة حللت بها المشكلة وقمت باقتباس هذه المعادلة من بعض اعمال الاساتذة : أ/ رجب جاويش   ... أ/ ضاحى الغريب  ...  الاستاذ/ عبد الله باقشير

    فشكرا لكم

  4. اخى العزيز يوجد كشف به الراسبون والناجحون لكل صف على حدة

    يسمى

    نتيجة الصف الاول   / نتيجة الصف الثانى / نتيجة الصف الثالث / نتيجة الصف الرابع  / نتيجة الصف الخامس

     

     

    ولكل كشف مسمى داخلى مثال

    كشف رصد درجات آخر العام مايو 2013 للصف الأول الخاص بالادارة التعليمية

  5. ااعجبنى كود جميل لفصل الناجحين والراسبين كل على حدة

     

     

    فارجو اضافة اسم صفحة كشف الرصد مثال :    رصد اول  /  رصد ثان ى / رصد ثالث / رصد رابع / رصد خامس

     

    واليكم الكود     فالرجا التعديل عليه

     

     

    Sub SEPARATION()
    Application.ScreenUpdating = False
    Dim ResSh As String
    Sheets("ناجح").Range("A6:DN1000").ClearContents
    Sheets("راسب").Range("A6:DN1000").ClearContents
    ee = [DN1007].End(xlUp).Row
    For i = 10 To Cells(1007, 118).End(xlUp).Row
    ResSh = Trim(Cells(i, 118).Value)
    AA = Sheets(ResSh).Cells(1000, 118).End(xlUp).Row + 1
    On Error Resume Next
    For ii = 1 To 118
    Sheets(ResSh).Cells(AA, ii).Value = Cells(i, ii).Value
    Next
    Next
    Application.ScreenUpdating = True
    MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح"
    End Sub
     

     

  6. السلام عليكم

    برجاء المساعدة فى عمل الاتى

    يوجد كشف باسما الناجحون  فقط   (صف اول )

    وكشف باسماء الراسبون فقط  ( صف اول )

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

     

     

    اريد الناجحون فقط فى كشف الناجحين والراسبين فقط فى كشف الراسبين ولكم شكرى

    مرفق الشيت كنترول         

     

    اسم المستخدم /    قنديل الصياد

     

    كلمة السر /  1964

     

     

  7. الاخوة الاعزاء لكم جزيل الشكر على مجهوداتكم الرائعة واعمالكم العظيمة

     

    قمت بتجربة هذا الكود   وهو فعلا يخفى الخلايا المحمية وبها دوال

     

    الرجو اضافة شئ للكود ةيقوم بفك الحماية  حتى يتثنى لنا اضافة ارقام اخرى للعمود ورفق ملف قمت بالتجربة عليه ولكم الشكر

     

  8. اخى العزيز شكرا لك وبارك الله فيك على المجهود الرائع ولكن لاظت شئ يحدث

     

    عند الكتابة فى الفورم            خانة الرقم القومى والمادة التى اجتاز عليها الكادر تاخذ اماكن بعضها

    مرفق صورة توضيحية ومرفق الملف مرة اخرى للتعديل

    بالرغم ان البيانات تظهر على ورقة الاكسل سليمة

     

×
×
  • اضف...

Important Information