أ / محمد صالح

في هذه الحالة ستطول المعادلة قليلا
=C3*D3*SUM(1,IF(G3<>"",-1*G3,0),IF(H3<>"",H3,0)) بالتوفيق 

أخي الكريم
لقد كررت الطلب ذاته في أكثر من موضوع
 
منطقيا لا تحتاج إلى checkbox
لأننا نستعمل checkbox في حالة اختيار أكثر من اختيار بدون إلغاء الاختيار الأول 
أما إذا أردنا اختيار واحد فقط
نستعمل option button لأننا إذا اخترنا اختيارا يزيل التحديد عن الباقين 
بالتوفيق 
 
 

إن شاء الله تفيدك هذه النتائج
https://www.officena.net/ib/search/?q=البحث بمجرد&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and
بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية G19 مع سحبها لأسفل
=IF(D19="","",VLOOKUP($B$2,المقسطون!$B$27:$N$62,6,0)) بالتوفيق

عليكم السلام ورحمة الله وبركاته
يمكنك تعديل الاجراء liste إلى هذا
Sub Liste() Dim ws As Worksheet, Rng As Range, tmp As String, combval As String, lr As Integer, x As Long Set ws = ThisWorkbook.Worksheets("BD") '===============Remplir les N° dans la Liste AFT==================== lr = ws.Range("A" & Rows.Count).End(xlUp).Row Set Rng = ws.Range("A2:A" & lr) Me.ComboBox1.Clear Me.ComboBox1.List = Rng.Value '===============Trouver le N° AFT Maximal======================== For x = WorksheetFunction.Min(Rng) To WorksheetFunction.Max(Rng) + 1 If IsError(Application.Match(Val(x), Rng, 0)) Then tmp = tmp & IIf(tmp = Empty, Empty, "-") & x If combval = "" Then combval = x Me.ComboBox1.AddItem x End If End If Next x Me.ComboBox1.Value = combval Me.Label1.Caption = tmp End Sub بالتوفيق

أإذا كان فهمي للمطلوب صحيحا
يمكنك وضع هذه المعادلة في الخلية C19 مع سحبها يسارا
=LEN($B$19)-LEN(SUBSTITUTE($B$19,C18,"")) بالتوفيق 

يمكنك تجربة هذه المعادلة
=SUM((B13>0),(E5>0),(G16>0),(L10>0),(N14>0),(P5>0)) بالتوفيق

بعد إذن الإخوة المشاركين
حسب فهمي للمطلوب
يمكنك استعمال هذه المعادلة
لعرض عوامل العدد في أول 100 رقم
=IFERROR(SMALL(IF(IF(ROW($A$1:$A$100)*$E$1/$G$1=INT(ROW($A$1:$A$100)*$E$1/$G$1),ROW($A$1:$A$100),"")<>"",ROW($A$1:$A$100),""),ROW(A1)),"") مع سحبها لأسفل
وهذا التطبيق على ملفك
بالتوفيق للجميع

يمكنك استعمال هذه الدالة المعرفة
Function daysnames(d As String, m As Integer, y As Long) As String Dim x As Long, s As String, days: s = "": days = Split(d, "-") For x = 0 To UBound(days) s = s & IIf(x > 0, " و", "") & Format(DateSerial(y, m, days(x)), "dddd") Next x daysnames = s End Function وطريقة استخدامها
=daysnames(D2,F2,G2) وبعد استعمالها تعامل مثل الدوال الموجودة في الاكسل من حيث تحديث بيانات الخلية مباشرة بدون الضغط على زر للتحديث
بالتوفيق

يمكنك استعمال هذه المعادلة في K2 ونسخها كما تشاء
=SUMPRODUCT(SUBTOTAL(3,OFFSET($A$7:$A$29,ROW($A$7:$A$29)-MIN(ROW($A$7:$A$29)),,1))*($B$7:$M$29=J2)) وفقنا الله جميعا لكل خير

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

يمكنك البحث في جوجل عن aopr

أعتقد يجب إضافة عمود العدد المتاح من كل سلعة
حتى لا يتم تجاوزه

التجربة خير دليل
جرب واخبرنا بالنتيجة معك
ورغم ذلك
أعتقد أنه ممكن حسب سرعة الانترنت لدى المستخدمين 

يمكن تغيير المحاذاة لليمين
لكن الوسط يمكن التحايل عليه بمسافة بعد النص لو المحاذاة يسار أو قبل النص لو المحاذاة يمين
بالتوفيق

لها أكثر من حل
يمكنك تجربب هذا
keab.Text5.Value = CDate(keab.Text3.Value) + Int(keab.Text4.Value) - 1 بالتوفيق

للتوصل لذلك يمكنك عمل ما يلي:
* إضافة عمود قبل A وعمود قبل C
* وضع هذه المعادلة في العمود A
=match(b1,e:e,0) * ترتيب العمود A تصاعدي
بالتوفيق

يمكنك استخدام فرز حسب النوع sort by type

بالتوفيق 

على حسب المطلوب من ملفك
يمكن نقسيمهم الى مجموعات مثلا

يمكنك استعمال هذه المعادلة في الخلية D4
=IFERROR(IF(INDEX(البصمات!$F:$F,MATCH($C$1&$B4,البصمات!$A:$A,0))="","",INDEX(البصمات!$F:$F,MATCH($C$1&$B4,البصمات!$A:$A,0))),"") وهي تعني
إذا كانت نتيجة البحث فراغ تكون الخلية فارغة وليست صفرا
ويمكنك تعديل معادلة الخلية E4 بنفس الطريقة
بالتوفيق

يمكنك استعمال هذه المعادلة للحصول على الرقم الأول
=MID(A2,1,FIND("°",A2)-1) وهذه للرقم الثاني
=MID(A2,FIND("°",A2)+2,FIND("'",A2)-FIND("°",A2)-2) وبعد دراسة هاتين المعادلتين يمكنك التوصل للرقم الثالث
بالتوفيق

المعادلة الحالية لا تعمل عندي
إن شاء الله تفيدك هذه المعادلة
وتراعي رقم الشهر التالي
=INDEX($E$8:$E$19,MATCH(MONTH(EDATE(F3,IF(DAY(F3)<=20,0, 1))),$I$8:$I$19,0))  
بالتوفيق

إرفاقك للملف يوفر على من يساعدك تصميم ملف يشبه هذا الوضع
على العموم
يمكنك تجربة التالي
=VLOOKUP(A10, $A$2:$D$6, MATCH(B10, $A$1:$D$1,0)) على اعتبار أن البيانات في الصف الأول
والاستعلام في الصف العاشر
بالتوفيق

يمكنك تجربة هذه المعادلة
=MID(A2,FIND("|AR|",A2)+4,100) بالتوفيق 

هذه محاولة للوصول للهدف بمعادلة طويلة شيئا ما
وساعد في تقصيرها تغيير شكل جدول المواد
=IFERROR( if(INDEX(Liste!E$6:E$140,MATCH($B9,Liste!$J$6:$J$524,0))=0,"", if(INDEX(Liste!E$6:E$140,MATCH($B9,Liste!$J$6:$J$524,0))=1,INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0),MATCH($C9,timetable!$d$1:$o$1,0)), if(INDEX(Liste!E$6:E$140,MATCH($B9,Liste!$J$6:$J$524,0))=2,INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0)+1,MATCH($C9,timetable!$d$1:$o$1,0)), INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0),MATCH($C9,timetable!$d$1:$o$1,0))&" و "&INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0)+1,MATCH($C9,timetable!$d$1:$o$1,0)) ))),"") مع ملاحظة
تطابق القسم بجوار اسم الطالب مع الموجود في الجدول
وضرورة ضبط أرقام الغياب حيث تم وضع غياب في مادة ثانية ولا يوجد في الجدول مادة في هذا الوقت
بالتوفيق
استعمال الزمن اختبارات.xlsx