Ali Mohamed Ali

بارك الله فيك استاذنا الكريم جزاك الله كل خير عمل رائع -بس يا ريت رجاءا تدعيم المشاركة بملف

اخى الكريم اسامة عليك بمشاهدة هذا الرابط لمعرفة كيفية ضبط اللغة عندك https://www.officena.net/ib/topic/87988-اللغه-العربيه-في-الاكسيل-2010-لا-تظهر-بشكل-صحيح/?tab=comments#comment-556696

بارك الله فيك وجزاك الله كل خير

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

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

تفضل اخى الكريم العاملين5.xlsm

الملف ليس معطوب ولكن تفضل هذه هى المعادلة وليست مصفوفة -ضعها فى الخلية J2 واسحب للإسفل =IF(C2="","",VLOOKUP(TEXT(C2,"DDDD"),{"Sunday","الأحد";"Monday","الإثنين";"Tuesday","الثلاثاء";"Wednesday","الأربعاء";"Thursday","الخميس";"Friday","الجمعة";"Saturday","السّبت"},2,0))

المشكلة لديك اخى الكريم فكما ترى الملف يعمل بكل كفاءة

بارك الله فيك استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام - تفضل WeekDay.xlsx

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

تفضل المصنف1.xlsx

تفضل الفرق بين تاريخين2018.xlsm

يمكنك استخدام هذه المعادلة وهى معادلة مصفوفة اى لابد من الضغط بعد كتابة المعادلة على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات =B2-A2+1-SUMPRODUCT(IF(WEEKDAY(ROW(INDIRECT(A2&":"&B2)))={7,3},1,0))

تفضل ويمكنك بنفسك عمل مثل هذه المعادلة بالشروط التى تحتاجها على نفس المنوال . =SUMPRODUCT(--($I$16:$I$25&$J$16:$J$25&$K$16:$K$25="موز"&"فلبيني"&"اصفر"))

تفضل هذه المعادلة لهذا الصنف-ايضا بتعديل بسيط على معادلة الأستاذ سليم =SUMPRODUCT(--($I$16:$I$25&$J$16:$J$25="موز"&"فلبيني"))

تفضل hالكهرباء.xls

وعليكم السلام كان عليك من البداية استخدام خاصية البحث فى المنتدى - تفضل https://www.officena.net/ib/topic/27773-اضافة-ملف-او-ملفات-صوتية-الي-ملف-اكسل/ كما ان هناك عدة فيديوهات لهذا الأمر https://www.youtube.com/watch?v=aPagfyX_SCU https://www.youtube.com/watch?v=Z18CpWlKhKg https://www.youtube.com/watch?v=WgpNay0AzBg

ممتاز استاذ سليم معادلة ممتازة بارك الله فيك

تفضل لك ما طلبت ولا يمكنك تغيير اى بيانات تم ادخالها سابقا وكلمة السر : 1400 حماية بعد الإدخال مباشرة.xlsm

بارك الله فيك اخى الكريم وبالتوفيق ان شاء الله

بالتأكيد طبعا تفضل Book2.xlsm

نعم ,المحافظة والجنس وتاريخ الميلاد ومنه نستخرج العمر

تفضل وهذا كود اخر غير الموجود بالملف Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub وهذا كود ثالث Sub CommandButton1_Click() Application.Quit ThisWorkbook.Save End Sub وهذا كود رابع Sub SaveAndClose() ActiveWorkbook.Close SaveChanges:=True End Sub واخيرا كود خامس Private Sub CommandButton2_Click() Dim WB As Workbook If Not ThisWorkbook.Saved Then ThisWorkbook.Save MsgBox "Your data has been saved.", vbInformation, vbNullString End If For Each WB In Application.Workbooks If Not WB.Saved Then If MsgBox("You are about to exit the application. The workbook named """ & WB.Name & """ is not saved. Would you like to save """ & WB.Name & """ before it closes?", vbQuestion Or vbYesNo Or vbDefaultButton1, "Save Workbook...?") = vbYes Then WB.Close SaveChanges:=True DoEvents Else WB.Close SaveChanges:=False End If End If Next Application.Quit End Sub save & close.xlsm

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات