احمد عبد الناصر

السلام عليكم زيادة في الخير -ملاحظة معادلة array تحتاج لضغط ctrl+alt+enter تحياتي EXCEL EQUATION+.rar

السلام عليكم اعتقد ان هناك طريقة ابسط من هذه ,لكن هذا ما توصلت اليه جرب المرفق تحياتي repport help+.rar

السلام عليكم هذه الصيغة C2<A2>E2 في المعادلة لا يقوم الاكسيل بمعالجتها كما تبدو, فلو استخدمت evaluate formula ستجد الخطوات كالاتي C2<A2>E2 ستتحوا في اول خطوة كا true>E2 فبذلك فبقية الخطوات ستكون خطأ . الافضل استخدام and كما ذكرت في ملفك ,المشكلة بس كانت في علامة < معمولة > جرب المرفق تحياتي Book210+.rar

السلام عليكم زيادة في الخير SendKeys "%+" لكنها طريقة غير دقيقة نوعا ما تحياتي

السلام عليكم استاذنا مازن اكواد متقنة جدا بالفعل استخدام جمل سيكوال مع الاكسيل يعطيه مرونه و بعد جديد سواء بالتعامل مع قواعد بيانات او بتتطبيقها علي الاكسيل نفسه كقاعدة بيانات وفي احيان كثيره تكون جمل سيكوال علي الاكسيل اسرع و منظمة اكثر من استخدام معادلات الاكسيل نفسه او اكواد فاجوال . بالاخص عامل السرعة مع البيانات الكثيرة شكرا علي الملف و الامثلة الجميلة المتقنة موضوع مميز فعلا . وكما ذكرت سيادتكم فهو نوعا ما ليس منتشر بين المستخدمين ,هناك امثلة و مواضيع في هذا المنتدي العملاق لهذه الافكار طرحت من قبل ولكنها شبه منسيه وليست معروضه بهذه البساطه و الدقة. تقبل تحياتي وشكرا جزيلا علي مشاركة هذه الافكار :)

السلام عليكم جرب اضافة هذا السطر في البداية Application.ScreenUpdating = False وهذا في النهاية Application.ScreenUpdating = True تحياتي

لا اله الا الله ..... انا لله وانا اليه راجعون.

السلام عليكم زيادة في الخير هذا كود كنت كتبته , ليس بروعة كود استاذنا ياسر فهو يحتاج لجدول من الاكسيل و لا يعتمد علي نفسه. تحياتي abjad+.rar

السلام عليكم جرب هذه تحياتي الفترات المتداخلة 2+.rar

ملاحظة : يوجد معادلة مميزة جدا لاستاذنا الخالدي علي هذا الرابط , المطلوب مختلف قليلا لكن المعادلة تستحق الذكر (ترتيب اكثر من شرط بنفس المعادلة) http://www.officena.net/ib/index.php?showtopic=46663#entry279751 تحياتي

السلام عليكم اسعد الله صباحكم معادلات متقنة جداااا , زادكم الله علما و نفع بكم زيادة في الخير هذا كود Sub dahmour() Dim L Application.ScreenUpdating = False L = Sheets("ناجح").Range("b" & Rows.Count).End(xlUp).Row Sheets("الاوائل").Range("eb14:ec" & L) = Sheets("ناجح").Range("b14:c" & L).Value Sheets("الاوائل").Range("ed14:ed" & L) = Sheets("ناجح").Range("e14:e" & L).Value Sheets("الاوائل").Range("ee14:ee" & L) = Sheets("ناجح").Range("bp14:bp" & L).Value Sheets("الاوائل").Range("eb14:ee" & L).Sort key1:=[ee14], order1:=xlDescending, key2:=[ed14], order2:=xlAscending Sheets("الاوائل").Range("f11:i20") = Sheets("الاوائل").Range("eb14:ee23").Value Sheets("الاوائل").Range("eb14:ee" & L).Clear Application.ScreenUpdating = True End Sub تحياتي

السلام عليكم استاذ ياسر معذرة فلم اجرب الحل في ملفك مسبقا , و كما هو متوقع يعمل بكفاءة . كما تفضل استاذنا محمد حسن فالتاريخ 30/2/1431 لم يأخذ وضعه الصحيح في الترتيب و السبب و الله اعلم انه لم يعبر من خلال هذا الشرط If IsDate(Cells(I, "E")) Then (دالة IsDate لم تتعرف عليه كتاريخ) صراحة موضوع التواريخ الهجرية مبهم نوعا ما في الاكسيل تحياتي

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

السلام عليكم مزيد من التوضيح رجاءا , هل يتم الارسال عن طريق Outlook ؟؟ ممكن تجربة هذا الكود ان كان كذلك https://msdn.microsoft.com/en-us/library/ff458119(v=office.11).aspx تحياتي

السلام عليكم اسعد الله اوقاتكم اعتقد الاكسيل متعرف عليه كتاريخ هجري و لكن عند الفرز يعامله معاملة النص , ليس لي تعامل مع التواريخ الهجرية في الاكسيل صراحة . جرب المرفق -تاريخ معدل1 لان بعض التواريخ فيها مسافة كهذه " 11/10/1432" . -تاريخ معدل2 ليغير اتجاه التاريخ (او النص حسب رؤية اكسيل) , و هذا الذي سوف ترتب علي حسبه وهو العمود i . -هذه الطريقة تنفع ما دامت التواريخ بنفس عدد الخانات كما بملفك المرفق مثلا "11/09/1431" و ليس "11/9/1431" تحياتي تصفية حسب الاقدم بالتاريخ+.rar