طارق محمود

إذهب لضبط الملف واجعل الحساب أوتوماتيكيا File > options < ?? Calculation > Automatic

السلام عليكم أخي الكريم إذا لاحظت رد الأخ السائل بالمشاركة #8 تجد أن الملف يعمل عنده بلا مشاكل إذن راجع ضبط الويندوز والأوفيس خصوصا أن الاوفيس 2013

السلام عليكم عندك حق تم تعديل الكود كالتالي Function Mrk(a As Range) As Variant 'Next jn If a.Value >= 50 Or a.Value < 45 Then Mrk = a.Value: GoTo 10 njh = Cells(a.Row, 18): rsb = Cells(a.Row, 19) Dim sbj(9), rf(9), ord(9) For c = 2 To 9 sbj(c - 1) = Cells(a.Row, c) If sbj(c - 1) < 50 And sbj(c - 1) > 44 Then i = i + 1 'previous n_rf , i.e number of raf3 subj ord(i) = c rf(i) = 50 - sbj(c - 1) t_rf = t_rf + rf(i) End If Next c 'Re-Sorting For j = 1 To i - 1 For x = j + 1 To i If rf(j) > rf(x) Then k = rf(j): kc = ord(j) rf(j) = rf(x): ord(j) = ord(x) rf(x) = k: ord(x) = kc End If Next x Next j For j = 1 To i T = T + rf(j) If T > 5 Then T = T - rf(j): j = j - 1: GoTo 5 Next j 5 If rsb - j < 3 Then For x = 1 To j If a.Column = ord(x) Then Mrk = 50: GoTo 10 Next x End If Mrk = a.Value 10 End Function وهذا هو الملف بعد التعديل تغير شرط القرار4.rar

اخي العزيز هل استخدمت نفس الملف في المشاركة # 6 من الموضوع المشار اليه؟؟ إذا الاجابة نعم ، راجع ضبط الويندوز والأوفيس إذا الاجابة لا ، إرسل الملف تبعك

اخي العزيز هل استخدمت نفس الملف في المشاركة # 6 إذا الاجابة نعم ، راجع ضبط الويندوز والأوفيس إذا الاجابة لا ، إرسل الملف تبعك

جرب تضغط F9

السلام عليكم أخي العزيز شاهد الموضوع التالي مشابه جدا لهذا الموضوع فقط عليك تعديل الكود قليلا ليناسب حالتك http://www.officena.net/ib/index.php?showtopic=59212&hl=

جرب تقف علي الخلية التي بها الدالة Mrk واللي مفروض ترتفع الي 50 ثم اضغط F2 ثم إنتر أو جرب تضغط F9 لو اتعدلت بعد الضغط علي F9 يبقي تضبيط الملف في الجهاز الحسابات غير آلية وسهل علاجها

هذا الملف اللي انت أرسلته "تغير شرط القرار3.xlsm" يعمل عندي بلامشاكل لعل تحديث الشاشة عندك أو الحساب (Calculation) لايعمل أوتوماتيك مرفق صورة من شاشة الملف ، لم أفعل شيئا فقط فتحته

السلام عليكم أخي الحبيب / ابو القبطان جزاك الله خيرا مرورك شرف كبير أخي الكريم / Ultimate Power تفضل المرفق به كل ماطلبت لاحظ الآتي: في ورقة الموظف ستجد زر أصفر يرجعك للورقة DailyDatabase عند الضغط علي الزر الأحمر (Delete + Shift to Monthly) سيحذف البيانات بعد أن يرحلها للتقرير الشهري في ورقة (Main) ستجد زر (تحديث القائمة) لانشاء وتحديث قائمة ارتباط باسماء الموظفين New2_sample.rar

لم أفهم السؤال جيدا ولكن بالمرفق شرح كود الدالة المستحدثة تفضل شرح الدالة المستحدثة.rar

السلام عليكم أخي الفاضل تجد بالفيديو المرفق خطوات استعراض التنسيق الشرطي ستجد بالملف أصلا شرطين الأول =AND(E7<$B$1,C7<100%) إذا تحقق يكون التنسيق أن الفونط أحمر ومركز Bold وهذا الشرط تم استخدام الدالة AND فيه ويعني أي كلا من الشرطين داخل القوس يتحقق الشرطين داخل القوس هما E7<$B$1 و C7<100% أما التنسيق الشرطي الثاني فهو لتلوين سطر وسطر أوتوماتيكيا Cond_Format.rar

السلام عليكم مرفق الملف مع أول طلبين إستحداث صفحات الموظفين والترحيل إليها بالضغط علي زر Shift مع امكانية حذف البيانات بعد الترحيل بالضغط علي الزر الأحمر تفضل المرفق New_sample.rar

السلام عليكم بعد إذن أخي وحبيبي الفاضل / بن علية تفضل أخي المعاون الملف بالتنسيق الشرطي كما إقترح أخونا / بن علية AAAA2.rar

السلام عليكم تفضل أخي الحل بالكود يبقي عليك فقط التنسيق ليناسب ذوقك الكود هو دالة استحدثتها لتناسب الحالة وهي Mrk(a) حيث تكتب Mrk وتفتح القوس وتشير بالماوس علي الدرجة فيعطيك الدرجة المعدلة أو لايعدلها هذا هو الكود Function Mrk(a As Range) As Variant If a.Value >= 50 Or a.Value < 45 Then Mrk = a.Value: GoTo 10 njh = Cells(a.Row, 18): rsb = Cells(a.Row, 19) Dim sbj(9) For c = 2 To 9 sbj(c - 1) = Cells(a.Row, c) If sbj(c - 1) < 50 And sbj(c - 1) > 44 Then n_rf = n_rf + 1: t_rf = t_rf + (50 - sbj(c - 1)): n = n + 1 Next c If t_rf <= 5 And rsb - n_rf < 3 Then Mrk = 50: GoTo 10 Mrk = a.Value 10 End Function ومرفق الملف به الكود تغير شرط القرار3.rar

معذرة أخي إنشغلت عنك أعتقد أن المطلوب الجديد يحتاج للأكواد ولن أستطيع المحاولة حتي الأحد القادم

السلام عليكم جرب المرفق خزينة تجربة3.rar

السلام عليكم تفضل أخي الملف معدلا كما طلبت خزينة تجربة2.rar

السلام عليكم الطلب الأول سهل ضع الكود التالي في حدث الملف

أخي الكريم تم حل المشكلة بالمرفق طبعا ممكن ضم المعادلات في عمود واحد أو إثنين ولكني أفضلها هكذا للبساطة كما أنك تستطيع إخفاء (وإظهار) كل الأعمدة المساعدة (AC..AH) بالضغط علي علي علامة السالب "-" التي تعلو العمود AI تفضل المرفق Book2_3.rar

السلام عليكم أخي الكريم أهلا بك ومرحبا بين إخوانك تفضل الحل بالمعادلات وليس الأكواد إن شاء الله تجده يسيرا سهلا Book2_2.rar

السلام عليكم الحمد لله ، لي شرف أول تعليق علي عملك الرائع أخي سليم جزاك الله خيرا ، عمل ممتاز

السلام عليكم أخي العزبز تفضل المرفق وبه أعمدة مساعدة بلون أزرق للفونط إن شاء الله تساعدك في البحث أو علي الأقل تساعد أخونا الفاضل بن علية معذرة لضيق الوقت القرآن بالتشكيل2.rar

السلام عليكم طبعا بعد إذن أخواي الغاليان ياسر خليل وسليم حاصبيا أخي / ناصر لم أقل أنه " لايجوز زياده الشروط بدالة SUMPRODUCT نظرا لزيادة الشروط أكثر من ذلك" أنا فقط أحببت أن أوضح أنه إذا كانت الشروط بها تشابه مثل اوفسينا1 ، اوفسينا2 ، اوفسينا3 فإنك يمكن بدلا من إضافة معامل في المعادلة لكل شرط ، يمكنك إستبدال ذلك بمعامل واحد أو إثنين إن كان هناك علاقة في المشروط

السلام عليكم الشرط الذي وضعته بالملف يمكن التحايل عليه بالصيغة التالية =SUMIFS(B2:B20,C2:C20,">"&"اوفسينا",C2:C20,"<" & "اوفسينا4")