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

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11650
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    307

كل منشورات العضو Ali Mohamed Ali

  1. تفضل وبما انك لم تقم برفع ملف للمطلوب فعليك بمشاهدة هذه الفيديوهات فبها طلبك -بارك الله فيك تجميع وتلخيص اكثر من ورقة في ورقة واحدة اكسل Excel Consolidate وكيفية دمج داتا اكثر من شيت اكسيل في شيت واحد
  2. الأمر بكل بساطة كان عليك عمله بنفسك وتزويد من تريد من النطاق بالمعادلة ... وعليك ان تعلم ما حدث معك من خطأ بسببك انت لأن هذه معادلة مصفوفة وليس معادلة عادية فيجب عليك بعد عمل المعادلة الضغط على (Ctrl+Shift+Enter) وليس Enter فقط كباقى المعادلات moooo2.xlsx
  3. وعليكم السلام وبما انك لم تقم برفع ملف فكان عليك استخدام خاصية البحث بالمنتدى فبه طلبك تفضل فورم اضافة وبحث وحذف وتعديل واغلاق وطباعة بدون ازرار أويمكنك متابعة هذا الفيديو فبه طلبك طباعة الفورم userform مع اخفاء الازرار vba excel - commandbutton
  4. بعد اذن الأستاذ سـلـيم وزيادة فى اثراء الموضوع بدون اخفاء شريط الصيغة ... يمكنك وضع هذا الكود فى حدث الصفحة Dim xDic As New Dictionary Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xCell As Range Dim xRg As Range Set xRg = Range("b2:b100") If xDic.Count <> xRg.Count Then For Each xCell In xRg xDic.Add xCell.Address, xCell.FormulaR1C1 Next End If If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then With Target .Value = .Value End With Else For Each xCell In xRg xCell.Formula = xDic.Item(xCell.Address) Next End If End Sub
  5. بارك الله فيك وزادك الله من فضله ورحم الله والديك
  6. تفضل بعد اذن الأستاذ سليم طبعاً يمكنك عملها بنفسك بهذه المعادلة =SUMIFS('1'!$D$4:$D$270,'1'!$B$4:$B$270,">="&$F$5,'1'!$B$4:$B$270,"<="&$H$5,'1'!$C$4:$C$270,$B7,'1'!$A$4:$A$270,$D$6)
  7. وعليكم السلام -اهلا بك اخى الكريم فى المنتدى لماذا لا تستخدم خاصية البحث فى المنتدى -يمكنك هذا بعد اضافة أداة Solver وطالما انك لم تقم برفع ملف فيمكنك متابعة ومشاهدة هذه المشاركة بها رد لما تحتاجه https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544482 بارك الله فيك
  8. بارك الله فيك استاذ سليم وبعد اذن حضرتك ولإثراء الموضوع -يمكن أيضاً استخدام هذه المعادلة بداية من الخلية N3 سحباً يساراً وأسفل =COUNTIFS($H$3:$H$500,"<="&$M3,$H$3:$H$500,">="&$L3,$I$3:$I$500,N$2) Countifs,معادلة احصاء عدد الذكور والإناث بين تاريخين.xlsx
  9. تفضل لك ما طلبت ... وذلك لوجود مسافات زائدة بالمعادلة , تم حذفها ,ورجاءاً لابد ان تكون نهايات فورمات الملف XLSX وليس XLS محمد4.xlsx
  10. تفضل ولكن كان عليك رفع ملف موضح عليه المطلوب بكل دقة المستخدم (المدير) الباسورد (1) وهذا برنامج أخر موجود داخل المنتدى ... كان عليك استخدام خاصية البحث بالمنتدى هدية - برنامج تقسيط وهذا برنامج ثالث , أيضاً من داخل المنتدى الرجاء المساعدة في برنامج البيع بالتقسيط وتلك برنامج رابع أسفل فيديو الشرح برنامج المحل شراء وبيع وتقسيط اكسس Access برنامج البيع بالتقسيط 2009.rar
  11. بارك الله فيك أستاذ محمد وجعله الله فى ميزان حسناتك
  12. وعليكم السلام-اجعل المعادلة هكذا =IF(A2="","",NETWORKDAYS.INTL(A2,TODAY(),7)) 1تاريخ البدء.xlsx
  13. وعليكم السلام-تفضل ما تريد بالتنسيقات الشرطية. وتم ايضاً لعمل قائمة منسدلة لإختيار الحروف المطلوبة نظام التقييم للصف االاول بالألوان1.xlsx
  14. وعليكم السلام-تفضل وذلك بإستخدام هذه المعادلة =IF(F3=TODAY()-7,TEXT(F3,"b2dddd")&" , "&"الماضى "&"("&TEXT(F3,"d ")&VLOOKUP(MONTH(F3),$M$3:$N$14,2,0)&")",IF(F3=TODAY()-1,TEXT(F3,"b2dddd")&" , "&"أمس "&"("&TEXT(F3,"d ")&VLOOKUP(MONTH(F3),$M$3:$N$14,2,0)&")",IF(F3=TODAY(),TEXT(F3,"b2dddd")&" , "&"اليوم "&"("&TEXT(F3,"d ")&VLOOKUP(MONTH(F3),$M$3:$N$14,2,0)&")",IF(F3=TODAY()+1,TEXT(F3,"b2dddd")&" , "&"غداً "&"("&TEXT(F3,"d ") & VLOOKUP(MONTH(F3),$M$3:$N$14,2,0)&")",IF(F3=TODAY()+7,TEXT(F3,"b2dddd")&" , "&"القادم "&"("&TEXT(F3,"d ")&VLOOKUP(MONTH(F3),$M$3:$N$14,2,0)&")",""))))) 2.xlsx
  15. تفضل أستاذ عمرو ... يمكنك استخدام هذه المعادلة لرقم الصنف =[@[المجموعة الرئيسية ]]&"-"&[@[المجموعة الفرعية]]&"-"&[@[المجموعة تحت الفرعية]] أو هذه المعادلة , فكلاهما يؤدى الغرض المطلوب =CONCATENATE([@[المجموعة الرئيسية ]],"-",[@[المجموعة الفرعية]],"-",[@[المجموعة تحت الفرعية]]) 1بيانات الاصناف.xlsx
  16. وعليكم السلام -كان عليك استخدام خاصية البحث بالمنتدى فبه طلبك-تفضل كود طباعة الشهادات جميعها واخر لعدد محدد من الشهادات طباعة الشهادات كلها بأمر واحد
  17. المشكلة بسيطة جداً وتم تناول هذا الموضوع أكثر من مرة كان عليك استخدام خاصية البحث بالمنتدى ... ويتلخص الموضوع فى ضبط اعدادات اللغة العربية فى حاسوبك والخطوات كما تمت بهذا الرابط مشكلة في اللغة العربية
  18. بارك الله فيك استاذ سليم وبعد اذن حضرتك ولإثراء الموضوع هذا حل اخر بمعادلات المصفوفة (Ctrl+Shift+Enter) تفضل ahmed_atoon بالمعادلة =SUM(IFERROR(--MID(SUBSTITUTE(SUBSTITUTE(B2,CHAR(10)," ")," ",REPT(" ",99)),ROW($1:$30)*99-98,99),0)) Sum1.xlsx
  19. تفضلى - كما بالملف طريقتين مختلفتين اختارى منها المناسب لك وهذه أيضاً دالة معرفة لنفس الطلب Function summm(rng) Dim arr ReDim arr(1 To rng.Cells.Count) For Each C In rng.Cells arr(x + 1) = f(C) x = x + 1 Next summm = WorksheetFunction.Sum(arr) End Function معادلةجمع مدى يحتوى على أرقام ونصوص sumarize number with text.xlsx
  20. وعليكم السلام -تفضل هذا هو الكود المطلوب Private Sub CommandButton2_Click() With Me.Yh_ListFind Me.TextBox1.Value = .ListCount - 1 End With End Sub
  21. طبعاّ بعد اذن استاذنا الكبير إبراهيم ... بارك الله فيك كود ممتاز جعله الله فى ميزان حسناتك تفضل الأمر بسيط جداً ويمكنك تعديله بنفسك ... عليك بتعديل هذه الكلمة من كل الكود xlAscending الى xlDescending
  22. اجعل المعادلة هكذا =IFERROR(INDEX($A$2:$A$200,SMALL(IF($D$2:$D$200=$H$2,IF($E$2:$E$200=$I$2,IF($F$2:$F$200=$J$2,ROW(A$2:A$200)-ROW(A$2)+1))),ROWS($I$5:I5))),"") 3قوائم.xlsx
  23. وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =SUBSTITUTE(A2," ","") رفع المسافة الواحدة بين الحرف والرقم.xlsm
×
×
  • اضف...

Important Information