اذهب الي المحتوي
أوفيسنا

الشهابي

الخبراء
  • Posts

    1,160
  • تاريخ الانضمام

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

  • Days Won

    1

كل منشورات العضو الشهابي

  1. السلام عليكم ورحمة الله وبركاته أستاذي العزيز جرب الملف الآتي عملت فيه كودين واحد لإضافة درجة القرار والأخر لحذفها في حالة قررت التراجع عن قرار الإضافة إن شاء الله يلبي طلبك اضافة درجة القرار للطلاب1.xlsm
  2. السلام عليكم أخي العزيز لعلني لم استوعب المطلوب بشكل جيد ولكن إن شاء الله من خلال ملاحظاتكم ومراجعة الجدول سيتم تدارك الأخطاء وتصحيحها بالنسبة لطلبكم الأخير تم التعديل في معادالة الزيادة فقط و إن شاء الله تكون مضبوطة بيان العجز والزيادة للعام 2021 (1).xlsx
  3. السلام عليكم ورحمة الله وبركاته أولا : عفوا على التأخر عليكم في الرد وذلك بسبب بطء النت كلما حاولت أن أرد لم استطع ثانيا : تم ربط الأنصبة بنصاب كل فئة حسب ما ذكرتم وحسب ما فهمت بس قمت بفصل الرقم عن الاسم حتى يتم الربط بعدد الحصص للفئة ، وكذلك يمكن التعديل علىها جعلت خلايا الحصص للفئات باللون الرمادي إن شاء يلبي هذا ما طلبته وأي استفسار أو خطأ سنكون مع بعض إن شاء الله حتى نتوصل إلى مبتغاك معاً إن شاء الله بيان العجز والزيادة للعام 2021.xlsx
  4. السلام عليكم ورحمة الله وبركاته تم تعديل معادلة عمودي العجز والزيادة بيان العجز والزيادة للعام 2021.xlsx
  5. بيان العجز والزيادة للعام 2021.xlsx أستاذ جرب المرفق لعله المطلوب إن شاء الله أو جزء منه
  6. أخي العزيز هل جربت طباعتها قم بطباعتها حسب ما اعتقد أنها لا تظهر أثناء المعاينة ولكن أثناء الطباعة تظهر إن شاء الله
  7. أخي العزيز اطلعت على الملف وجدت فيه أخطاء في التنسيق الشرطي وتم تعديلها إن شاء الله بالنسبة للجمل أسفل الجدول إدا حاولت سحبها نحو اليمين سيتم عمل حدود جدول وذلك بسبب التنسيق الشرطي لأن وضع أي بيانات في أي خلية في العمود (E) تدخل تحت التنسيق الشرطي فلا بد من تركها في موضعها لم أعدل شيء في الكود فقط أضفت سطر لتحديد ناحية الطباعة جرب المرفق حوافظ.rar
  8. أخي العزيز أردت أردت معرفة النتائج بعد الفرز بدون معادلة انظر للشريط أسفل يعطيك نتائج الفرز ويمكن استخدام المعادلة التالية أيضا =SUBTOTAL(3;$A$2:$A$9) فرز.rar
  9. أخي العزيز / أبو محمد عاطف تم تعديل المعادلة لتحديد الناجح والراسب من خلال احتساب درجة النجاح في المواد التي ليس له دور ثاني فيها إضافة إلى درجة النجاح لمواد الدور الثاني التي سيتم رصدها أي أنها تأخذ شروطها من الصفين معاً للطالب بس هناك نقطة لاحظتها وهي ظهور علامات تساوي درجة النجاح لكنها في الأصل هي مقربة مثلا ( 50) وهي في الأصل ( 49.5 ) هل التقريب يحتسب للطالب أم أنه يعتبر راسب على الفكرة المعادلة لا تحسب التقريب إنما تحسب الرجة الفعلية لتحديد نتيجة الطالب هذا الكود بعد تعديل المعادلة Sub ترحيل() Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual Dim LR, y As Integer Sheets("رصد الدور الثاني").Range("A13:AG1000").ClearContents LR = Range("c10000").End(xlUp).Row y = 14 For i = 13 To LR If Cells(i, 33).Value = "دور ثان في" And Cells(i, 3) <> 0 Then Range("a" & i).Resize(1, 33).Copy Sheets("رصد الدور الثاني").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets("رصد الدور الثاني").Range("ag" & y - 1).FormulaR1C1 = _ "=IF(AND(OR(RC[-24]>=R12C9,R[1]C[-24]>=R12C9),OR(RC[-21]>=R12C12,R[1]C[-21]>=R12C12),OR(RC[-18]>=R12C15,R[1]C[-18]>=R12C15),OR(RC[-15]>=R12C18,R[1]C[-15]>=R12C18),OR(RC[-12]>=R12C21,R[1]C[-12]>=R12C21),OR(RC[-9]>=R12C24,R[1]C[-9]>=R12C24),OR(RC[-6]>=R12C27,R[1]C[-6]>=R12C27),OR(RC[-3]>=R12C30,R[1]C[-3]>=R12C30)),""ناجـــح"",""راسب"")" y = y + 2 End If Next i With Sheets("رصد الدور الثاني").Range("a13:a1000") .FormulaR1C1 = "=IF(RC[2]=0,"""",SUBTOTAL(3,R13C3:RC[2]))" .Value = .Value End With Sheets("رصد الدور الثاني").Activate Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub كنترول الشعراوي للصف الأول.rar
  10. أخي العزيز / أسامة أبو عمر السبب هو أن الامتدادات في نطاقات المعادلة قصيرة إلى (100) صف فقط والبيانات عندك تجاوزت تلك الامتدادات هذه المعادلة بعد جعل الامتدادات إلى (10000) =IF(SUMPRODUCT(--($A$2:$A2=A2)*($B$2:B2=B2))>1;"";IF(SUMPRODUCT(--($A$2:$A$10000=A2)*($B$2:$B$10000=B2)*($D$2:$D$10000="غياب"))/SUMPRODUCT(--($A$2:$A$10000=A2)*($B$2:$B$10000=B2))>=50%;"غائب";"حاضر")) StaffAttendance (3).rar
  11. أخي العزيز الحمد لله الذي أوصلك ما تريد أسأل الله أن يوفقك لكل ما تريد إذا لم يتحمل الملق معك اسبدل الكود السابق بهذا مع الإضافات التي اضفتها أنت Sub trhel() Application.ScreenUpdating = False Application.Calculation = xlManual lr = Sheets("Solid").Range("D10000").End(xlUp).Row lr1 = Sheets("DB").Range("a10000").End(xlUp).Row For I = 7 To lr Sheets("DB").Cells(lr1 + 1, 1).Value = Sheets("Solid").Cells(2, 5).Value Sheets("DB").Cells(lr1 + 1, 2).Value = Sheets("Solid").Cells(2, 8).Value Sheets("DB").Cells(lr1 + 1, 3).Value = Sheets("Solid").Cells(4, 8).Value Sheets("DB").Cells(lr1 + 1, 4).Value = Sheets("Solid").Cells(4, 5).Value For Each CLL In Sheets("DB").Range("E1:IV1") If CLL = Sheets("Solid").Cells(I, 4) Then CLL.Offset(lr1, 0) = Sheets("Solid").Cells(I, 4).Offset(0, 2).Value End If Next CLL Next I Sheets("solid").Select Application.Calculation = xlAutomatic Application.ScreenUpdating = True Range("D7:D46,F7:F46,G7:G46,H4").ClearContents End Sub وبالنسبة للتخلص من الخطأ في المعادلة استبدل المعادلة بهذه =IF(ISERROR(VLOOKUP(D8;$O$7:$P$51;2;0));"";VLOOKUP(D8;$O$7:$P$51;2;0)) وفقك الله
  12. أخي العزيز / أبو محمد عاطف جرب التعديل التالي Sub ترحيل() Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual Dim LR, y As Integer Sheets("رصد الدور الثاني").Range("A13:AG1000").ClearContents LR = Range("c10000").End(xlUp).Row y = 14 For i = 13 To LR If Cells(i, 33).Value = "دور ثان في" And Cells(i, 3) <> 0 Then Range("a" & i).Resize(1, 33).Copy Sheets("رصد الدور الثاني").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets("رصد الدور الثاني").Range("ag" & y - 1).FormulaR1C1 = _ "=IF(AND(RC[-24]>=R12C9,RC[-21]>=R12C12,RC[-18]>=R12C15,RC[-15]>=R12C18,RC[-12]>=R12C21,RC[-9]>=R12C24,RC[-6]>=R12C27,RC[-3]>=R12C30),""ناجـــح"",""راسب"")" y = y + 2 End If Next i With Sheets("رصد الدور الثاني").Range("a13:a1000") .FormulaR1C1 = "=IF(RC[2]=0,"""",SUBTOTAL(3,R13C3:RC[2]))" .Value = .Value End With Sheets("رصد الدور الثاني").Activate Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub كنترول الشعراوي للصف الأول.rar
  13. أخي العزيز / ahmad kafafy ما شاء الله أستاذنا القدير / زيزو حفظه الله أدى المطلوب جزاه الله خير
  14. أخي العزيز ما كان يلزمك فتح موضوع جديد فكان أفضل أن تتابع في نفس الموضوع لأنه نفسه المهم جرب المرفق ترحيل5.rar
  15. أخي العزيز / ahmad kafafy السلام عليكم ورحمة الله وبركاته أولا : أهلا وسهلا بك في هذا المنتدى ثانيا: لو ترفق ملف كمثال لما تريد وتحدد الصفوف المراد نسخها وما هي الشروط بهذا الشكل ستجد المساعدة من الأخوة تقبل تحياتي
  16. أخي العزيز / أسامة أبو عمر من خلال ما فهمته من الشروط أن الطالب يعتبر غائب إذا كانت نسبة الغياب 50% أو أكبر ومن خلال هذا الفهم عملت المعادلة التالية إن شاء الله يكون فهمي صحيح والمعادلة صحيحة =IF(SUMPRODUCT(--($A$2:$A2=A2)*($B$2:B2=B2))>1;"";IF(SUMPRODUCT(--($A$2:$A$100=A2)*($B$2:$B$100=B2)*($D$2:$D$100="غياب"))/SUMPRODUCT(--($A$2:$A$100=A2)*($B$2:$B$100=B2))>=50%;"غائب";"حاضر")) StaffAttendance (4)_2.rar
  17. أخي العزيز / Hassan Hammoud إن شاء الله منتظرين الإضافات
  18. أخي العزيز / أسامة أبو عمر ما هي المواد ؟ هل ( خدمة العملاء ) و ( مهارات التواصل والاتصال ) و ( النقل ) مواد ؟ إذا كان كذلك ففي يوم ( 07/02/2017 ) 6 مواد وليس خمس فكيف شروط 6 مواد جمعة مباركة
  19. أخي العزيز / Hassan Hammoud جرب المرفق إن شاء الله يكون هو المطلوب ترحيل_4.rar
  20. أخي العزيز / أبو محمد عاطف أولا جزاء الله خير الأستاذين القديرين محمود الشريف وياسر خليل خير الجزاء على مشاركتهم لنا في الموضوع ثانياً : ما فهمته من الصورة أنك تريد عند ترحيل الدور الثاني ترك سطر فارغ فوق كل طالب اللي تم ترحيله نفس ما في الصورة فقط ترك السطر الفارغ فقط لم يتم هذا الكود بعد التعديل لترك سطر فارغ Sub ترحيل() Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual Dim LR, y As Integer Sheets("رصد الدور الثاني").Range("A13:AG1000").ClearContents LR = Range("c10000").End(xlUp).Row y = 14 For i = 13 To LR If Cells(i, 33).Value = "دور ثان في" And Cells(i, 3) <> 0 Then Range("a" & i).Resize(1, 33).Copy Sheets("رصد الدور الثاني").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i With Sheets("رصد الدور الثاني").Range("a13:a1000") .FormulaR1C1 = "=IF(RC[2]=0,"""",SUBTOTAL(3,R13C3:RC[2]))" .Value = .Value End With Sheets("رصد الدور الثاني").Activate Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub إذا كان تريد ترحيل بآلية أخرى ممكن توضيحها وبالنسبة لترحيل الناجحين والراسبين من ورقة الدور الثاني ممكن توضيح آلية الترحيل
  21. أخي العزيز/ أبو جاسم استعمل هذه المعادلة =DAY(EOMONTH(A1;0))
  22. أخي العزيز / أبو محمد عاطف ضع هذا الكود في موديول لترحيل الدور الثاني وأربطه بزر ( ترحيل لرصد دور الثاني ) في ورقة ( شيت آخر العام A3 ) إذا كان الأمر كذلك سنكمل ترحيل الناحجين والراسبين إذا كان هناك تعديل أو خطأ قم بالإشارة إليه حتى يتم التعديل والتصحيح إن شاء الله Sub ترحيل() Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual Dim LR, y As Integer Sheets("رصد الدور الثاني").Range("A13:AG1000").ClearContents LR = Range("c10000").End(xlUp).Row y = 13 For i = 13 To LR If Cells(i, 33).Value = "دور ثان في" And Cells(i, 3) <> 0 Then Range("a" & i).Resize(1, 33).Copy Sheets("رصد الدور الثاني").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i With Sheets("رصد الدور الثاني").Range("a13:a1000") .FormulaR1C1 = "=IF(RC[2]=0,"""",SUBTOTAL(3,R13C3:RC[2]))" .Value = .Value End With Sheets("رصد الدور الثاني").Activate Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub
  23. أخي العزيز / محمد لؤي الحمد لله أن الأمر تم على الوجه المطلوب أخي العزيز / ناصر سعيد المعادلة موجودة في التنسيق الشرطي حدد أي خلية في الجدول وادخل على التنسيق الشرطي واختر إدارة القواعد ستجد المعادلة والعفو
  24. أخي العزيز هناك بعض الأخطاء الأمر الأول المعادلة وجدتها بهذا الشكل والمفروض أن تبدأ من السطر الثاني ويكون العمود مجمد لعلامة الدولار والصف مطلق حتى تتغير البيانات بتغير بيانات الصف كما في المعادلة السابقة =SUMPRODUCT(--(تاريخ=$D1048572)*(رقم_السيارة=$E1048572)*(سائق=$F1048572))>0 الأمر الثاني أنك غيرت في تسمية النطاقات ولم يتم تغيرها في المعادلة الأمر الثالث أن النطاقات مفروض تكون متطابقة من حيث بداية الصف ونهايته أنت قمت بزيادة صفوف النطاقات ولكن لم تكن متساوية المهم تم التعديل وزيادة نطاق ( الطابقة 1) من أجل ألا يتم تظليل الخلايا الفارغة =SUMPRODUCT(--(تاريخ_التحميل=$D2)*(رقم_السيارة=$E2)*(اسم_السائق=$F2)*(المطابقة1="مصروف"))>0 المطابقة - المصروف + الموقف - تطبيق.rar
×
×
  • اضف...

Important Information