أ / محمد صالح

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

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

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

عليمن السلام ورحمة الله وبركاته ربما تفيد هذه الموضوعات Showing results for 'جدارات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق

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

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