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

mehyo27

02 الأعضاء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    53

  • تاريخ الانضمام

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

 نوع المحتوي 

مشاركات المكتوبه بواسطه mehyo27

    ساعدونى فى معادلة الترحيل

    في منتدى الاكسيل Excel

    قام بنشر

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

    =INDEX(Record!$C$5:$C$96;100000-SUMPRODUCT(LARGE((Record!$X$5:$X$96=1)*(100000-ROW(Record!$X$5:$X$96));ROWS(A$29:A29)))-4)

    السلام عليكم

    جرب 

    =INDEX(Record!$C$5:$C$96,100000-SUMPRODUCT(LARGE((Record!$X$5:$X$96="ناجح")*(100000-ROW(Record!$X$5:$X$96)),ROWS(A$29:A29)))-4)

    وقد تم تعديل المرفق

    1.zip

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

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    حاولت ولم استطيع الا ان اغير بالكود

    ولكن حسب علمي انه اسرع من السابق

    Sub tarheel()
Application.ScreenUpdating = False
On Error Resume Next
If stopit = True Then Exit Sub
Application.OnTime (Now + TimeSerial(0, 0, 3)), "tarheel"
Sheets("abc").Cells(5, 2).Value = Format(Now, "hh:mm:ss")
x = Sheets("abc").[b4]

    Sheets("abc").Range("b5:b18").Copy
    Sheets("abc").Cells(5, x).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Sheets("abc").Range("a2").Select
    Application.CutCopyMode = False
On Error GoTo MyErr
MyErr:
If Err = 1004 Then
Application.ScreenUpdating = True
Exit Sub
End If
Application.ScreenUpdating = True
End Sub

    ارجو ان يكون هذا ما تريد

    ارجوا تصحيح هذه الصيغة وفقكم الله تعالى

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه mehyo27

    السلام عليكم

    جرب هذا

    =IF(G5<60,"راسب",IF(G5<65,"مقبول",IF(G5<70,"مقبول مرتفع",IF(G5<75,"جيد",IF(G5<80,"جيد مرتفع",IF(G5<85,"جيد جداً",IF(G5<90,"جيد جداً مرتفع",IF(G5<95,"ممتاز","ممتاز مرتفع"))))))))

    ربما عليك تبديل , ووضع ;

×
×
  • اضف...

Important Information

  I accept