يحيى حسين

السلام عليكم و رحمة الله أخي جرب هذه المعادلة =SUM(IF(MONTH(EOMONTH(A1,ROW(INDIRECT("1:"&DATEDIF(A1,B1,"m")+1))-1))=1,1))

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

السلام عليكم و رحمة الله أخي جرب هذه المعادلة أيضاً و لكنها معادلة صفيف =IF(AND(A2:D2>=60),AVERAGE(A2:D2),IF(A2:D2<60,"راسب","منقول")) اي يجب الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله و بركاته إضافة لحلول الأخوة الممتعة في الخلية A1 التاريخ 5/7/2008 و في الخلية B1 التاريخ 2/3/2011 في الخلية D1 ضع المعادلة التالية : =SUM(IF(MONTH(EOMONTH(A1,ROW(INDIRECT("1:"&DATEDIF(A1,B1,"m")))-1))=1,1)) و هي معادلة صفيف يجب الضغط على Ctrl+Shift +Enter دمتم في حفظ الله

السلام عليكم و رحمة الله أخي عبدالله في دالتك التالية في التنسيق الشرطي =OR(TEXT(D2,"ddd")="الجمعة",TEXT(D2,"ddd")="السبت") ستواجه مشكلة مع الأجهزة التي تقرأ التاريخ باللغة الإنجليزية على سبيل المثال في جهازك TEXT(D2,"ddd") ستعيد النتيجة يوم الجمعه مثلاً لكن في جهازي ستتعيد Fri مما سيفقد التنسيق الشرطي نتيجته لذلك من الأفصل أن تستخدم weekday شاهد حلي في المشاركة رقم 7

رد الأخ نارت أوجز و أبلغ فيه و هذا ردنا جمياً على موضوع أخي ابو الحارث اللهم إني أسألك أن نكون من السبعة اللذين تضلهم في ضل عرشك " المتحابين في الله " كل عام و انت بخير

السلام عليكم و رحمة الله جرب هذه المعادلة اخي =IF(B3="يتيم","","ــــ")

السلام عليكم و رحمة الله جرب هذا التعديل البسيط =IF(A3="","",IF(COUNTIF(D3:H3,"?*")=5,"الكل",D3&" "&E3&" "&F3&" "&G3&" "&H3))

حياك الله اخي ابو احمد أخي الحبيب ابو الحارث جزاك الله كل خير على كلامتك الطيبة و لكل مجتهد نصيب أخي لتنفيذ طلبك الارقام الموجودة في الصفحة 2 يجب ان يقرائها الاكسيل كتواريخ و هذا ما قمت بتغييره و قمت بتغيير التنسيق الى d و من ثم استخدمت المعادلة التالية =OR(WEEKDAY(D$2)>=6,SUMPRODUCT((Names=$C3)*(Numbers=DAY(D$2)))>0) و في الأشهر القادمة كل ما عليك هو تغيير قيمة الخلية C1 في الصفحة 2 لشهر التالي مثلاً 1/8/2011 و هكذا الغياب مع ايام الجمعهة و السبت .rar

السلام عليكم و رحمة الله و بركاته في الخلية C4 ضع المعادلة التالية =IF(A4="","",IF(COUNTA(D4:H4)=5,"الكل",D4&" "&E4&" "&F4&" "&G4&" "&H4)) دمتم في حفظ الله

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

السلام عليكم و رحمة الله و بركاته أخي لتنفيذ طلبك قمت بتعريف نطاقين حسب التالي : النطاق الأول بإسم Names و يشير الى ='1'!$B$2:$D$2 و النطاق الثاني بإسم Numbers و يشير الى ='1'!$B$3:$D$19 و من ثم في التنسيق الشرطي بعد ان قمت بتحديد الجدول الموجود في الصفحة 2 بالكامل وضعت الشرط التالي : =SUMPRODUCT((Names=$C3)*(Numbers=D$2))>0 و من ثم اخترت لون التضليل شاهد المرفق لتتضح الصورة الغياب.rar

و انت بخير أخي باسم و اي استفسار لا تتردد بطرحه دمت في حفظ الله

السلام عليكم و رحمة الله في الخلية A2 ضع المعادلة : =IF(EOMONTH(A1,-1)+1=A1,TEXT(0,"0"),EOMONTH(A1,-1)+1)

انت لم تذكر ذلك لا يوجدجد تاريخ في الاكسيل 00/8/2010 فاذا كان التاريخ اول الشهر ماهي النتيجة التي ترغب فيها

السلام عليكم و رحمة الله ما هي نسخة الاكسيل الموجودة عندك

حياك الله اخي الحبيب و نسأل الله لنا و لك و للجميع السلامة من كل شر الهم آمين

السلام عليكم و رحمة الله في الخلية A2 ضع المعادلة التالية لمعرفة اول يوم من الشهر للتاريخ الموجود في الخلية A1 =EOMONTH(A1,-1)+1 و في الخلية A3 ضع المعادلة التالية =A1-1 ==================== و طريقة أخرى في الخلية A2 ضع المعادلة التالية =DATE(YEAR(A1),MONTH(A1),1) و في الخلية A3 ضع المعادلة التالية =DATE(YEAR(A1),MONTH(A1),DAY(A1)-1) دمتم في حفظ الله

اخي الحبيب كيماس الفضل لله ثم لك لقد نسيتها و انت من ذكرني بها في موضوع تحويل المعادلات الى قيم دمت في حفظ الله

السلام عليكم و رحمة الله جرب هذا الكودد أخي Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Address(0, 0) = "D2" Then Range("c8").Value = Application.Evaluate("=(D2 * f2) - (D2 + E2)") ElseIf Target.Address(0, 0) = "C3" Then Range("c8").Value = Application.Evaluate("=(c3*f3)-(C3+E3)") End If End Sub

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

السلام عليكم و رحمة الله إضافة لحل الاخ عادل جرب هذا الكود Sub ClosetIt() Dim wb As Workbook Set wb = Workbooks("Solar.xls") wb.Close End Sub فأنت لست بحاجة لمعرفة مسار الملف و خصوصاً انه مفتوح دمت في حفظ الله

السلام عليكم و رحمة الله أخي خبور كل عام و انت بخير و جزاك الله خير على هذا الكود الجميل و كإضافة أنا أقوم بإستخدام هذا الكود لتحويل المعادلات الى قيم Sub FormulaToValue() With ActiveSheet.Cells .Copy .PasteSpecial xlValues End With End Sub فلربما فكرته تساعد الأخوة أيضاً في الحصول على طرق أخرى =============== دمتم في حفظ الله

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

السلام عليكم و رحمة الله الأخوة محمود و ياسر جزاكم الله كل خير و شكرا على مروركم الطيب