ياسر خليل أبو البراء

الأخ الحبيب جمال بارك الله فيك الملف الأخير رائع الفكرة أن ملفي مختلف إذ أني جعلت أيام الأسبوع مرجع في المعادلات أي أن أيام الأسبوع ثابتة وليست مرتبطة بمعادلات وفكرتك تعتمد على جعل أيام الأسبوع مرتبطة بمعادلات ومن هنا حدث الخلاف .. ملفك الأخير باسم الأسبوع الأخير في شهر ما هو الأروع .. أما الملف في المشاركة رقم 2 فأنا غير مقتنع به لأن النتائج ليست كلها صحيحة وقد أشرت إلى ذلك في المشاركة رقم 5 جزاكم الله خيرا أخي جمال على متابعتك الجيدة

أخي الحبيب كفكرة ممكن ملف جديد وتاخد الأسماء كوبي من كلا الملفين إلى الملف الجديد وتضع الأسماء تحت بعض في عمود واحد ثم تنفذ الأمر Remove Duplicates أي حذف المكرر فيتبقى قائمة الأسماء بالشكل النهائي والغير مكرر ... إذا كان غير ذلك ارفق ملف للتسهيل

أخي جمال في المرفق الخاص بك انظر لتاريخ آخر سبت في شهر يناير 2014 ستجد النتيجة (1/2/2014) والصحيح أن آخر سبت في شهر يناير 2014 هو (25/2/2014)

السلام عليكم ورحمة الله وبركاته إخواني الكرام أقدم لكم اليوم موضوعاً فيه الشرح بالتفصيل لعمل الدوائر الحمراء ، وهو فيديو للأستاذ الكبير / يحيى حسين ، جزاه الله عنا خير الجزاء وهذا هو رابط الفيديو وفيه شرح لعمل الدوائر الحمراء ... فقمت بتطبيق المثال في الملف المرفق مع إضافة بسيطة بعد إذن الأستاذ الكبير يحيى حسين وهو حذف هذه الدوائر Add-Remove Red Circles.rar

بارك الله فيك أستاذ محمد الريفي واسمح لي إذا لم يكن يضايقك طبعا (أما لو ضايقك هعمل حذف علطول أو على عرض) لإثراء الموضوع هذه دالة توضع في موديول تقوم بالمهمة Function Two_Con_Vlookup(Table_Range As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd) Dim rCheck As Range, bFound As Boolean, lLoop As Long On Error Resume Next Set rCheck = Table_Range.Columns(1).Cells(1, 1) With WorksheetFunction For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd) Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False) If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then bFound = True Exit For End If Next lLoop End With If bFound = True Then Two_Con_Vlookup = rCheck(1, Return_Col) Else Two_Con_Vlookup = "#N/A" End If End Function وهذا ملف مرفق مثال على الدالة VLOOKUPTwoCriteria.rar

الأخ الحبيب الغالي جمال بارك الله فيك على مداخلتك .. سؤال هل قارنت بين النتائج في الجدولين ؟ قارن بين النتائج وأخبرني بالنتيجة...

الأخ الحبيب حسين البحار بارك الله فيك على مرورك الكريم الأخ قصي بوركت وجزيت خيرا أخي الغالي

إبداعاتك مستمرة .. متميز ومبدع وكلام كتير يعجز اللسان عن وصفه بارك الله فيك أخي الحبيب محمود

السلام عليكم إخواني الكرام بعد عناء بحث طويل أقدم لكم هذا العمل المتواضع الملف به أيام الأسبوع بدءاً من الأحد إلى السبت ، وف النطاق A2:A13 ستجد شهور السنة بدءاً من يناير إلى ديسمبر وفي الخلية A1 ما عليك إلا أن تكتب السنة وستقوم المعادلة المرفقة بالملف بحساب آخر يوم من أيام الشهر لأي يوم من أيام الأسبوع مثال : إذا كنت ترغب في معرفة آخر خميس في شهر ديسمبر لسنة 2020 مثلا ما عليك إلا أن تكتب 2020 في الخلية A1 ثم انظر إلى العمود F الذي يخص يوم الخميس وانظر إلى الصف 13 ستجد بغيتك أرجو أن ينال الملف رضاكم .. هذا وبالله التوفيق Identify Last Day Of Any Month.rar

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

جرب المعادلة التالية =ABS(TIME(9;0;0)-F3)

أ / مجدي وجزيت خيرا أخي الغالي

أستاذي الكبير أحمد يعقوب بارك الله فيك والله ... وإنت كمان واحشني والله زمان يا أحمد زمان

الأخ الكريم محمد الخازمي بارك الله فيك وجزاك الله خيرا على دعوتك لي

الملف لا يعمل بشكل سلس الملف فعلا ثقيل جدا أنا أستخدم أوفيس 2007 لا علاقة بالإصدار بالملف من ناحية الثقل لابد من مراجعة المعادلات والأكواد والنظر في السبب الذي يجعل الملف ثقيل

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

لللإفادة هذا حل آخر قمت فيه باستعمال دالة أخرى في VBA وتضمن الشرط أيضا النصوص وليس القيم فقط أي أنه سيتم التعامل مع المعادلات فقط والخلايا الفارغة متجاهلا إياها ، أما القيم الرقمية والنصية فسيتم تلوينها باستخدام التنسيق الشرطي Identify Non-Formula Using Conditional Formatting B.rar

الأخ الحبيب مصطفى عيد تفضل المرفق التالي عله يفي بالغرض إن شاء الله Identify Non-Formula Using Conditional Formatting.rar

أخي الحبيب عيد قم بتحديد العمود D ثم من التبويب Home انقر على كلمة Find And Select ثم اختر Go To Special ثم اختر Constants ثم أوك سيتم تحديد القيم فقط بدون المعادلات

الأخ الحبيب رجب جاويش بارك الله فيك على إبداعاتك الأخ السائل قصي Private Sub Worksheet_Change(ByVal Target As Range) LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Application.ScreenUpdating = False Range("a2:b" & LR).Select Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Key2:=Range("a2"), Order2:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("a" & LR).Select End Sub بالنسبة للتغيير من الأولاد للبنات يتم تغيير هذه الجزئية Key1:=Range("b2"), Order1:=xlAscending في حالة التغيير من الأولاد للبنات تكون القيمة xlDescending أما لتغيير النبات للأولاد تكون القيمة كما في السطر السابق xlAscending أما بالنسبة لتغيير العمود فيكون طبقا لما تريد الأبجدة عليه ...

بسم الله ما شاء الله عمل رائع بارك الله فيكما

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

السلام عليكم إخواني الكرام كل عام وأنتم بخير ... أقدم لكم دالة تقوم بالتحويل من التاريخ الهجري إلى الميلادي Function ConvertDate(ByRef StringIn As String) As String Dim SavedCal As Integer Dim d As Date Dim s As String SavedCal = Calendar Calendar = 1 d = CDate(StringIn) Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") Calendar = SavedCal End Function لمزيد من التفاصيل يرجى زيارة الرابط التالي رابط الموضوع من هنا

وضح طلبك بملف مرفق أخي الحبيب يمكن عمل ذلك عن طريق الأكواد وليس عن طريق المعادلات

السلام عليكم إخواني الكرام أقدم لكم اليوم إضافة مذهلة ورائعة تقوم بفصل البيانات طبقا لما تحدده من شروط أترك لكم المرفق معه شرح للتعامل مع الأداة الإضافة والشرح وملف لعمل اختبار للأداة مرفوع على الموقع التالي : http://www.gulfup.com/?IWS9o6