على المصري

تم الحل =SUM(IFERROR(VALUE(SUBSTITUTE(E8:G8,"إذن","")),""),0)

السلام عليكم ورحمة الله وبركاته =SUM(SUBSTITUTE(E8:G8, "إذن ", "")+0) ولكن اذا وجد كلمة اخرى غير كلمة اذن لا تعمل اريد في حالة وجود كلمة اخرى تخطي هذه الخلية وجمع الباقي وفي حالة عدم وجود كلمة اذن نهائيا تعطي صفر مع الشكر الجزيل Attendee.xlsx

شكرا جزيلا

حل باستخدام اعمدة مساعدة ودالة TEXTJOIN في المرفق test.xlsx

السلام عليكم ورحمة الله وبركاته كل عام انتم بخير بمناسبة عيد الفطر المبارك سؤالي كالتالي في ورقة SubComp =IFERROR((SUMIFS(Scores,subjects,E10,SchCod,$D$8)-SUMIFS(Scores,subjects,"Absent"))/(COUNTIF(subjects,E10)-COUNTIFS(Scores,"Absent",subjects,E10)),"") هذه الدالة تعمل جيدا كما موضح بالملف في الخلية E11, F11, G11,H11 ولكن عندما اضفت شرط اخر جديد على المعادلة اعطت خطأ Value فما السبب؟ في ورقة الكود التالي يعمل بالضفط على زر تحميل Dim i As Integer For i = 12 To 2012 Application.ScreenUpdating = False Range("I" & i) = Range("J" & i).Value Next i ولكن ياخذ وقت فهل يمكن التعديل Book1.xlsm

عمل ممتاز

شكرا اخي الكريم

شكرا جزيلا جاري التحميل

مرفق لحضراتكم جدول الحصص الخاص بي والذي استخدمه في مدرستي ولكني لاحظت في المنتدى الكريم عند طباعة جداول المعلمين أو الطلاب فإنه يكون تصميم جدول واحد وعن طريق كود موجود يقوم بنسخ جداول المعليمين كلهم او الطلاب وحاولت استخدم الكود الخاص بالاستاذ خبور خير ولكن لم استطع لاني لم افهم مكونات هذا الكود جيدا فرجاء المساعدة على ملفي هذا وارجو استخدام الزر المكتوب عليه ( طباعة جداول المرحلة الاعدادية باللغة العربية ) ورجاء شرح الكود المستخدم حتى اتمكن من استخدامه مع باقى الملف جدول الحصص.rar

لا أحد يمكنه ان سبقك فانا اتعلم منكم جميعا

تفضل اخي الكريم تم الحل بواسطة دالة vlookup جلب البيانات.rar

عظيم ورائع هذا العمل

عمل رائع واتمنى ان اتعلم منكم الكثير

لو سمحت اريد معرفة أو تفسير هذا الكود وكيف استخدمة مع قاعدة البيانات Private Sub Form_Timer() Tim.Value = Time Form.Caption = Mid((TT.Caption), 1, (Len(Form.Caption) + 1)) End Sub

السلام عليكم استاذ ايمن اقصد لديك كتاب او ملف وورد او اكسيل او بي دي اف يشمل هذه الأكواد بالشرح ارجو ارسالها لي إن أمكن شكرا على الاهتمام