طارق محمود

السلام عليكم تفضل أخي الحل بالكود يبقي عليك فقط التنسيق ليناسب ذوقك الكود هو دالة استحدثتها لتناسب الحالة وهي 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")

تم دمج الموضوعين

أنظر المشاركة رقم 5 في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=56398&hl=%D8%AA%D9%88%D8%A7%D9%81%D9%8A%D9%82#entry357444

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

السلام عليكم الأسهل تغيير علامات الـ (+) لتمتد بخلايا مجاورة وتستخدم نفس الطريقة السابقة

السلام عليكم تفضل المرفق جمع خليتين فقط2.rar

السلام عليكم تفضل أخي الدالة W_Hol إختصارا لكلمة Working Holidays وهي دالة مستحدثة كما طلبت (user defined function) كودها كالتالي Function W_Hol(a As Range) As Integer nm = Cells(a.Row, 1) r = WorksheetFunction.Match(nm, [AK1:AK999], 0) Set rst = Range("AL" & r & ":AS" & r) For Each cl In a If IsNumeric(cl) And cl > 0 Then For Each b In rst If Cells(2, cl.Column) = b Then W_Hol = W_Hol + 1: GoTo 1 Next b End If 1 Next cl End Function وإليك المرفق وبه الدالة calculate Addition_ALL2.rar

السلام عليكم أخي الكريم تفضل 111111_2.rar

تفضل 4 قوالب / الصفحة (A4) 154_3.rar

السلام عليكم أخي الكريم كونت لك دالة جديدة اسمها AJZ كودها كالتالي Function AJZ(x As Range) As String For Each cl In x If cl = "ج" Then AJZ = AJZ & "+" & Cells(2, cl.Column) Next AJZ = Right(AJZ, Len(AJZ) - 1) End Function أنظر المرفق Write Vacc.rar

السلام عليكم نعم باستخدام Text2Column أنظر الفيديو Text2Column.rar

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

السلام عليكم أخي الكريم أنت طلبت في الملف السابق "كل أسم في قالب ويكون القالب في الورقة 2 واحد فقط" لذلك تم التنسيق علي هذا بدلا من إعادة العمل عليك ان تحدد مقاس الورقة التي تطبع عليها (مثلا الشائع A4 التي مقاسها 21×30 سم تقريبا) ثم تحدد إما عدد القوالب المطلوبة في الورقة الواحدة أو مقاس القالب المطلوب طباعته مثلا في حجم الصورة الشخصية 4× 6 سم أو أكبر قليلا 6×9 أو أكبر (نصف الورقة العادية) 10×15

حبيبي أبا البراء لم أنتبه لردك عذرا

أخي الكريم تفضل Taxes.rar