أ / محمد صالح

عليكم السلام عكس دالة power هي دالة log =log(30,2) ربما تعطي كسورا ولأنك تريد أن تتغير 30 إلى رقم أكبر يمكنك جبر كسر الرقم لأعلى ceiling مثلا بالتوفيق

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

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

يمكنك استخدام هذه المعادلة =if(mod(a1,4)=0,29,"") على اعتبار أن رقم السنة فقط مكتوب في الخلية A1 وإذا كان المكتوب تاريخا كاملا يمكنك إرجاع السنة فقط بدالة Year =if(mod(year(a1),4)=0,29,"") بالتوفيق

كل شيء ممكن لكن الكلام النظري يصعب المهمة الأفضل إرفاق ملف وتوضيح المطلوب بمنتهى التفصيل مع توضيح النتائج المتوقعة في جميع الحالات ساعتها تجد الكثير من الزملاء يساعد بما تتيحه ظروفه بالتوفيق

بارك الله لك

جميعا بإذن الله

عليكم السلام ورحمة الله وبركاته يمكنك تعديل الاجراء 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 بالتوفيق

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

باؤك الله فيك أخي الكريم @محمد هشام. نوظيف جميل لأكواد الدالة وتحويلها إلى إجراء أنا شخصيا أكاد لا أستعمل الأكواد في برامجي حتى يمكن استعمالها على الهاتف وتكون متاحة لكل من يستخدم الاكسل وفقنا الله جميعا لكل ما يحبه ويرضاه

وفقنا الله جميعا لكل ما يحبه ويرضاه

يمكنك استعمال هذه المعادلة في 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)) وفقنا الله جميعا لكل خير

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

يمكنك استعمال هذه الدالة المعرفة 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) وبعد استعمالها تعامل مثل الدوال الموجودة في الاكسل من حيث تحديث بيانات الخلية مباشرة بدون الضغط على زر للتحديث بالتوفيق

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

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

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

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

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

ربما يفيدك عمل إصلاح للأوفيس repair من لوحة التحكم ثم الغاء تثبيت البرامج ثم تختار إصلاح وليس إلغاء تثبيت بالتوفيق

وفقنا الله جميعا لكل خير

هذه محاولة للوصول للهدف بمعادلة طويلة شيئا ما وساعد في تقصيرها تغيير شكل جدول المواد =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

تم استخدام عمود مساعد لعمل الفلتر بدون معادلة مصفوفات بالتوفيق استعمال الزمن اختبارات.xlsx

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

جميعا بإذن الله تعالى