عبدالله المجرب

الحمد لله انك وصلت الى مبتغاك وهذه هي احدى المميزات الغير مستخدمة وهي البحث

السلام عليكم جرب المرفق 11 (1).rar

السلام عليكم جرب الغاء دالة month والله اعلم

السلام عليكم اخي ابو علام هذه معادلة طويلة لكنها تفي بالغرض ضعها في الخلية F8 ثم اسحبها للاسفل =IF(AND(C8<>"";COUNTIF($C$8:C8;MID(C8;1;1)&"*")>1;SUMIF($C$8:C8;MID(C8;1;1)&"*";D$8:$D8)>=10;SUMIF($C$8:C8;MID(C8;1;1)&"*";$E$8:E8)/2>35);1;"")

السلام عليكم بعد إذن الاستاذ يحيى هذه طريقة أخرى =MID(A2;LEN(A2)-1;2)

السلام عليكم اخي اسامة انت نفذت السوالين الاول والثاني بشكل صحيح لكن يبدو انك لم تفهم المطلوب في السؤال الثالث (نرجو منك اعادة قراءته) ام السوال الرابع انت عملت كود والمطلوب هو انشاء دالة حديدة حاول وبإذن الله ستنجح

اقراء القواعد وبالاخص ما يخص العنوان http://www.officena.net/Tips/Questions.htm وستعرف اين المخالفة

السلام عليكم اخي عل الخطيب جوابك للسؤالين الاول والرابع صح لكن الثاني والثالث خطاء === لا يتم نقل او ترحيل المدى كامل وانما يتم شرط لون الخلية لترحيل بياناتها بمعن لو ان المدى ليس به الا خليتين لونهما احمر مثلاً يتم ترحيل هاتين الخليتين فقط ومهما كان موقعهما في المدى حاول وستصل بإذن الله

الان فهم المطلوب == ضع هذه المعادلة في ورقة 1 الخلية B3 ثم اسحبها للاسفل =COUNTIF(ورقة2!$C$7:$C$20;A3) مع العلم ان هناك اسماء تم اضافة سبيس (مسافة) بعد كتابتها لذا قم بالتاكد من صحة الاسماء او استعمل هذه المعادلة اذا كنت لا تريد تعديل الاسماء في ورقة2 =COUNTIF(ورقة2!$C$7:$C$20;"*"&A3&"*")

بالنسبة لدالة datedif فيجب ان يكون التاريخ الاصغر في البداية وهذه هو سبب ظهور #NUM والحل الصحيح حسب تجربتي =DATEDIF(H20;G20;"d")

السلام عليكم اولاً عنوان الموضوع لا يدل على المطلوب ثانياً لم تقم بوضع نبذة عن المطلوب في الطلب ثالثاً وهو الاهم جرب هذه المعادلة =SUMPRODUCT(($G$3:$G$16=A3)*($F$3:$F$16)) ضعها في الخلية B3 ثم اسحبها للاسفل

السلام عليكم وهذا الكود يقوم بطلباتك الثلاثة (تم الاستعانة بكود للاستاذ عادل حنفي بنفس الفكرة) Sub Abu_Ahmed_Date() [I11] = "" [C3:C500] = "" [I20] = "" x = [B3].Value y = [A3].Value Cells(20, 9) = y - x For ii = 1 To Cells(20, 9).Value w = x + ii m = Month(w) n = Year(w) o = Day(w) v = Weekday(m & "/" & o & "/" & n) If v = 6 Then [I11] = [I11] + 1 End If '============== z = 3 For i = x To y Cells(z, 3).Value = i z = z + 1 Next Next End Sub

هل تقصد هكذا delegates.rar

السلام عليكم هذا كود يقوم بعمل قائمة من التواريخ بين تاريخين Sub Abu_Ahmed_Date() x = [B3].Value y = [A3].Value z = 3 For i = x To y Cells(z, 3).Value = i z = z + 1 Next End Sub للعلم التاريخ 18/1/2011 خطاء ويجب كتابته 18/1/2012

السلام عليكم جرب المرفق قمت بعمله على 2003 لان الكمبيوتر ليس به 2007 11.rar

بارك الله فيك ابا الحسين موضوع جميل جداً وادعو جميع الاخوة للمشاركة

جميل جداً جداً ويصف الواقع

الله يسلمكم جميعاً ويعافيكم

السلام عليكم اليوم سنقوم بعمل اختبار لتحديد مدى الاستفادة من الدورة السؤال الاول: قم بعمل ملف اكسل يحتوي على زر ماكرو به التنسيقات التالية لون الخط احمر غامق ولون الخلية اصفر السؤال الثاني : بعد عمل الماكرو في السوال الاول اجعل هذا الماكرو ينفذ هذه التنسيقات في اي خلية في ورقة العمل السؤال الثالث: قم بعمل كود لترحيل قيم الخلايا الموجودة في المدى (A2:D20) من الورقة 1 الى الورقة 2 والشرط هو لون الخلية وان يكون الترحيل مرتب ملاحظة هامة (لا يتم نقل او ترحيل المدى كامل وانما يتم شرط لون الخلية لترحيل بياناتها بمعنى لو ان المدى ليس به الا خليتين لونهما احمر مثلاً يتم ترحيل هاتين الخليتين فقط ومهما كان موقعهما في المدى) السؤال الرابع: قم بعمل دالة جمع لثلاثة بارومترات ======================== ملاحظة يتم تنفيذ جميع الاجوبة في ملف واحد وشكراً

تفضل المرفق ويا ريت تعرف ما هو التغيير الذي حدث بنفسك Book1.rar

السلام عليكم اخي الفاضل كان من الافضل ان تضع ولو نبذة عن المطلوب بدلاً من الاجبار على تحميل الملف لمشاهدة المطلوب ثم من الافضل وضعها في ملف اكسل ليتم الشرح عليه وعموماً جميع الدوال شرطية يعني اذا تحقق الشرط ترجع الدالة قيمة (محددة بدالة اخرى) واذا لم يتحقق الشرط تجعل قيمة الخلية خالية

السلام عليكم حسب طلبك سيصبح الكود هكذا Sub Abu_Ahmed_Sum() Dim cl As Range Set WS2 = Sheets("ورقة 2") LR = WS2.Range("a" & Rows.Count).End(xlUp).Row xx = Application.CountIf(WS2.Range("A2:A" & LR), [A3].Value) If xx = 0 Then WS2.Range("A" & LR + 1) = [A3].Value WS2.Range("B" & LR + 1) = [B3].Value Else For Each cl In WS2.Range("A2:A" & LR) If cl.Value = [A3].Value Then x = cl.Offset(0, 1).Value cl.Offset(0, 1).Value = x + [B3].Value End If Next End If [A3:B3].Value = "" End Sub

السلام عليكم ضه هذا الكود في زر امر في الورقة 1 Sub Abu_Ahmed_Sum() Dim cl As Range For Each cl In Sheets("ورقة 2").Range("A2:A3") If cl.Value = [A3].Value Then x = cl.Offset(0, 1).Value cl.Offset(0, 1).Value = x + [B3].Value End If Next End Sub ثم اكتب الاسم والمبلغ الذي تريد في ورقة2 اجعل الاسماء بدون تكرار

احي الفاضل للدالة كود ستجده في ملف الاستاذ ابو تامر لازم تقوم بنقله الى ملفك لتعمل الدالة بشكل صحيح وهذا هو السبب في عدم عمل الدالة لانها غير معرفة

اخي فضل غمرتني بكرم اخلاقك فلم اجد من الكلمات ما تعبر عن شكري وامتناني