يحيى حسين

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

السلام عليكم و رحمة الله أخي يمكنك عمل ذلك بالتنسيق الشرطي قم بتحديد الأعمدة من A:H ثم في التنسيق الشرطي ضع الشرط التالي : =CELL("row")=ROW() ثم إذهب إلى اسم الصفحة و رايت كليك و اختر View Code وضع الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False End Sub و سيتم تنفيذ المطلوب ان شاء الله

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

السلام عليكم و رحمة الله أخي كيماس معادلات الصفيف هي متعة الاكسيل و الشكر موصول للأخوة ابو عبدالله و ياسر و محمود و هشام دمتم في حفظ الله

السلام عليكم و رحمة الله اخي ملفك الجديد لا يوجد به اي تعديل عن الملف السابق يا ريت لو تقوم بتصميم شكل التقرير الذي ترغب به في صفحة مستقلة و نحن نكمل الباقي و لي سؤال هل تريد عمل التقرير لجميع الصفحات في صفحة واحدة ام في كل صفحة على حدة " اذا كان هذا طلبك " أفضل أن تستخد الجداول المحورية PivotTable

السلام عليكم شاهد الملف المرفق Book3.rar

السلام عليكم و رحمة الله أخي افتح صفحة جديدة في ملف و في العامود A ضع أسماء المعدات و التي هي موجودة في العامود A في جميع الصفحات لا تنسى ان تضعها بدون تكرار و في الخلية B2 ضع المعادلة التالية : =SUMPRODUCT(SUMIF(INDIRECT("'"&{1;2;3}&"'!A2:A20000"),A2,INDIRECT("'"&{1;2;3}&"'!G2:G20000"))) و إسحبها للأسفل دمتم في حفظ الله

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

السلام عليكم و رحمة الله و بركاته أخي جرب هذه المعادلة على فرض أن الأرقام في النطاق من A1:A6 جرب هذه المعادلة =IFERROR(INDEX($A$1:$A$6,SMALL(IF(0+LEFT($A$1:$A$6,3)=333,ROW($A$1:$A$6)-ROW($A$1)+1),ROW(1:1))),"") و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter

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

السلام عليكم و رحمة الله أخي في الورقة الثانية في الخلية B6 ضع المعادلة التالية =IF(ROW(1:1)<=COUNTIF(ورقة1!$D$7:$D$16,ورقة2!$B$2),INDEX(ورقة1!C$7:C$16,SMALL(IF(ورقة1!$D$7:$D$16=ورقة2!$B$2,ROW(ورقة1!$D$7:$D$16)-ROW(ورقة1!$D$7)+1),ROW(1:1))),"") و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter و لكن أخي يجب ان تكون قيمة الخلية B2 مطابقة كتابة لأي قيمة نصية في الورقة الأولى في النطاق D7:D16 لأنك كنت كاتب الرياضيات و لكن في النطاق D7:D16 لا يوجد كلمة الرياضيات بل كلمة رياضيات دمت في حفظ الله

السلام عليكم يكون الحل بإستخدام معادلات الصفيف

السلام عليكم و رحمة الله و بركاته أخي الحبيب عبدالفتاح جزاك الله كل خير و جعل ما تقدمه في ميزان حسناتك كما ذكر الأخ هشام هذه الدالة تشترط الترتيب من الأصغر للأكبر و لكني قدمت فكرة لهذه الدالة و هي تعمل بشكل جيد في حالة الملف المرفق من خلال دمج الدالة IF مع الدالة VLOOKUP =VLOOKUP(F6,IF({1,0},A2:A11,Mynames),2,0) و لكن قناعتي الشخصية بأن أفضل الحلول في هذه الحالة هما اجمل دوال الاكسيل INDEX with MATCH ============= دمتم في حفظ الله

السلام عليكم و رحمة الله ارفق ملف به طلبك و ان شاء الله ستجد من يساعدك

السلام عليكم اخي الخلية j1 بها معادلة round و ه النتيجة التي طلبتها انت فأي المشكلة

السلام عليكم و رحمة الله أخي شاهد التدوينة التالية http://excel4us.com/blog/?p=103 فيه حل بالمعادلات

السلام عليكم و رحمة الله أخي حالات التقريب التي تطلبها لا تطابق منطق دوال التقريب في حدود معرفتي بها و لكن لو استخدمت المعادلة التالية فهي ستلبي ما يزيد عن 70% من الحالات التي تطبلها =ROUND(A1,0) و الشكر موصول للأخ ابو احمد على معادلته الجميلة دمتم في حفظ الله

السلام عليكم و رحمة الله أخي اذا كنت تستخدم الاكسيل 2003 فيجب ان تقوم بتثبيت Analysis ToolPak اما اذا كنت تستخدم 2007 و 2010, فقم بإستبدال الفصالة بفاصلة منقوطة دمتم في حفظ الله

السلام عليكم و رحمة الله اضافة لحل الاخ ابو احمد جرب المعادلة التالية =CEILING(A3,1)

مشكور وبارك الله فيك طبعن انه طبيت كاعد اضع المشكله ونته حليته ليكدام صحيح لو كال المثل (اسأل مجرب ولا تسأل حكيم) بس اكو طلب اصغير اشون اخلي يكتب همين في الخانه f التاريخ مثلن عندما اكتب مبلغ في الخانه eيكتب في الخانه f hgjhvdo وتبقه a p على نفس القديم هم بيهن تاريخ لان انا عندي تاريخين في الصفحه تاريخ السحب في الخانه bوتاريخ التسديد في الخانه f مثال a المبلغ b التاريخ e التسديد f التاريخ هل تقصد ان يتم اضافة تاريخ آخر أم ماذا يا ريت لو توضح طلبك أكثر اخي اذا كنت تستخدم الاكسييل 2007 و 2010 فيجب عند الحفظ اختيار الإمتداد XLSM او ما يعرف Excel Macro-Enabled WorkBook وستجد بعدها ان الكود موجود في كل مرة تدخل فيها للملف ============== دمت في حفظ الله

السلام عليكم و رحمة الله لتنفيذ طلبك 1) رايت كليلك على الخلية و اختر تنسيق الخلايا Format Cells 2) اختر منها مخصص Custom 3)ضع الكود التالي [$-2000000]# ?/? ============ دمت في حفظ الله

السلام عليكم و رحمةالله و بركاته اخي استخدم الفرز و هذا الكود يعمل مع النسخ 2007 و 2010 و هو عبارة عن تسجيل ماكرو Sub Macro1() ' ' Macro1 Macro ' ' ActiveWorkbook.Worksheets("بنات").Sort.SortFields.Clear ActiveWorkbook.Worksheets("بنات").Sort.SortFields.Add Key:=Range("D2:D101"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("بنات").Sort.SortFields.Add Key:=Range("H2:H101"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("بنات").Sort.SortFields.Add Key:=Range("G2:G101"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("بنات").Sort.SortFields.Add Key:=Range("F2:F101"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ÈäÇÊ").Sort .SetRange Range("A1:I101") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub لكن اخي ملاحظة قم بإلغاء الدمج للخلايا من F ال H ثم قم بإلغاء السطر الثاني و طبق بعدها الكود

السلام عليكم و رحمة الله أخي للحل بالأكواد جرب الكود التالي : Sub Test() Dim LR As Long, cLR As Long, c As Range, d As Range, DateF As Date, DateT As Date Dim pLR As Long, e As Range LR = Range("H" & Rows.Count).End(xlUp).Row cLR = Range("E" & Rows.Count).End(xlUp).Row pLR = Range("N" & Rows.Count).End(xlUp).Row DateF = Range("j3").Value DateT = Range("l3").Value Range("j6:k25").ClearContents For Each c In Range("H6:H" & LR) For Each d In Range("E6:E" & cLR) If d.Value = c.Value And d.Offset(, -3).Value >= DateF _ And d.Offset(, 1).Value <= DateT Then c.Offset(, 2).Value = d.Offset(, -1).Value + c.Offset(, 2).Value End If Next d Next c For Each c In Range("H6:H" & LR) For Each e In Range("N6:n" & pLR) If e.Offset(, 3).Value = c.Value And e.Value >= DateF And e.Value <= DateT Then c.Offset(, 3).Value = e.Offset(, 2).Value + c.Offset(, 3).Value End If Next e Next c End Sub =========== دمتم في حفظ الله

السلام عليكم و رحمة الله بسبب اختلاف اللغة العربية و عكس النتيجة استخدم المعادلتين : =IF(SUM(0+ISNUMBER(SEARCH($H$2:$H$8,B2))),"Yes","No") =IF(SUM(0+ISNUMBER(SEARCH($I$2:$I$8,C2))),"Yes","No")

السلام عليكم و رحمة الله أخي في الخلية A2 ضع المعادلة التالية =IF(SUM(0+ISNUMBER(SEARCH($H$2:$H$8,B2))),"نعم","لا") و في الخلية D2 ضع المعادلة التالية =IF(SUM(0+ISNUMBER(SEARCH($I$2:$I$8,C2))),"نعم","لا") و هما معادلتي صفيف يجب الضغط على Ctrl+Shift+Enter دمت في حفظ الله