بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، أرفق لك الملف من جديد مع تعديل المعادلات لضبط القائمة وقاعدة البيانات... أخوك بن علية عقد عمل2.rar

السلام عليكم ورحمة الله أخي الكريم، إن سبب عدم ظهور الأسماء الحديثة للقائمة (الاسم الأخير فقط) هو خطأ مني في معادلتي التسميتين "Base" و "العمال" في العبارة MAX(Base!$A:$A)-1 ولتصحيح الخطأ قم بتغيير هذه الصيغة إلى الصيغة التالية: (MAX(Base!$A:$A أي دون 1- لتشمل القائمة كل الأسماء وهي قائمة ديناميكية باستعمال الدالة OFFSET تتغير آليا حسب المدخلات... وتكون بالتالي معادلتي التسميتين "Base" و "العمال" بالشكل التالي: * معادلة التسمية Base : =OFFSET(Base!$A$2;;;MAX(Base!$A:$A);9) * معادلة التسمية "العمال" : =OFFSET(Base!$B$2;;;MAX(Base!$A:$A)) ولا تنسى عند إضافة أي بيانات جديدة أن تضع الترقيم التسلسلي في العمود A... والله أعلم

السلام عليكم ورحمة الله أخي الكريم، لا أعرف ماذا حدث للملف لعل الخلل من عندي، الملف لا يعمل جيدا إلا في نسخة أوفيس 2010... أعدت تحضير الملف في نسخة أوفيس 2003 ليسهل التعامل معه في كل نسخ أوفيس... إن شاء الله يفي الملف بالغرض المطلوب... لا تنسى أن بالملف أكواد لذا يجب القيام بتخفيض أمان الماكرو... ومعذرة على الخلل... أخوك بن علية عقد عمل1.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب طارق يمكن استعمال الدالة SUMPRODUCT في أي إصدار للأوفيس بالمعادلة: =SUMPRODUCT(((A1:A182>=F1)-(A1:A182>D1))*(B1:B182)) والله أعلم

السلام عليكم ورحمة الله أخي الكريم، لم أنتبه للطلب الآخر المتعلق بأزرار الطباعة... تمت بعض التغييرات على الملف لأجل إنشاء هذه الأزرار... وقد شملت هذه التغييرات عدة جوانب : تسميات نطاقات، تغيير بعض المعادلات لربط البيانات المطلوبة بالخلية O5 بدلا بربطها باسم العامل، إنشاء قائمة منسدلة للعمال باستعمال أدوات VBA وهي مرتبطة بالخلية O5... أرجو أن تروقك هذه التعديلات... أخوك بن علية عقد عمل.rar

السلام عليكم ورحمة الله أخي الكريم، إن الخلل في عدم ظهور نتيجة الدالة VLOOKUP في الخلية H9 هو أن تنسيق الخلية ليس تنسيق عدد إنما هي من تنسيق نص ولحل المشكلة يجب تغيير تنسيق الخلية إلى تنسيق الأعداد ثم إعادة تأكيد المعادلة أو إعادة نسخها ولصقها.... والمعادلة التي تريدها في الخلية H15 تكون من الشكل: =IF(E15="";"";DATE(YEAR(E15)+1;MONTH(E15);DAY(E15)-1)) وفي الملف المرفق تجد هذه التعديلات... والله أعلم عقد عمل.rar

السلام عليكم ورحمة الله قال الله تعالى : (إنا لله وإنا إليه راجعون) وقال : (كل نفس ذائقة الموت) وقال : (وبشر الصابرين الذين إذا أصابتهم مصيبة قالوا إنا لله وإنا إليه راجعون أولئك عليهم صلوات من ربهم ورحمة وأولئك هم المهتدون).... وقال رسول الله صلى الله عليه وسلم : ((لله ما أخذ وله ما أعطى، وكل شيء عنده بأجل مسمى)) أخي الكريم أحمد، أعظم الله أجرك وأحسن عزاك وغفر لميتك... جعل قبرها روضة من رياض الجنة ووسع لها في قبرها مدّ بصرها... غفر الله لحينا وميتنا... اللهم حسّن خواتيم أعمالنا وأمتنا على كلمة التوحيد... اللهم آمين

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر بكود يراعي كل خلايا العمود حتى وإن كانت الأعداد غير مرتبة أو كانت الخلايا فارغة مع إعطاء الأعداد الناقصة من السلسلة مرتبة تصاعديا... أخوك بن علية الأعداد غير الموجودة في سلسلة.rar

السلام عليكم ورحمة الله أخي الحبيب عبد الله، تحفة ما فوقها تحفة، أكواد رائعة جدا والله لا أجد الكلمات لوصف ما أرى... جازاك الله خير الجزاء وبارك الله لك في أهلك وصحتك وعلمك ويسر لك طريق الخير وجعل مثواك الجنة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الكودين السابقين (كود أخي وحبيبي أبو أحمد والكود الذي قدمته في الملف السابق) يمكن أيضا استعمال الكود التالي في حدث ورقة العمل : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, [B4:E100]) Is Nothing Then Target.NumberFormat = Application.WorksheetFunction.Rept(0, Target.Column) End If Application.ScreenUpdating = True End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لست أدري لماذا لا تريد أن يكون الحل بالتنسيقات أو بالمعادلات؟ رغم أن الحل بالتنسيقات أحسن وأفضل (ربما يقلل من سرعة عمل الملف إذا كانت تنسيقات أخرى مكثفة)... المهم في الملف المرفق تجد حلا بكود يغير تنسيق أرقام خلايا نطاق معين حسب رقم العمود في النطاق... وأعترف أن الإخوة الكرام لا يبخلون بأكواد أخرى تكون أفضل مما قدمته... أخوك بن علية صفر على الشمال.rar

السلام عليكم ورحمة الله أخي الكريم، لتصحيح الخلل في القائمة يمكن تعديل معادلة النطاق المسمى I من المعادلة: =Sheet1!$I$10:INDEX(Sheet1!$I:$I,COUNTIF(Sheet1!$I:$I,">0")) إلى المعادلة : =Sheet1!$I$10:INDEX(Sheet1!$I$10:$I$1000,COUNTIF(Sheet1!$I:$I,">0")) أو المعادلة : =Sheet1!$I$10:INDEX(Sheet1!$I:$I,COUNTIF(Sheet1!$I:$I,">0")+9) وبإذن الله ستعمل المعادلة بالشكل الصحيح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أولا أشكر أخي الكريم طارق على الكود الجميل والرائع جازاه الله عنا خير الجزاء وبارك الله له في علمه وحفظه من كل سوء... وثانيا تم إضافة عمودين آخرين للملف بالمعادلات مع تغيير في إحدى المعادلات لحل المشكلة السابقة (حجز الأسماء بترتيبين مختلفين)... الكل في الملف المرفق.... أخوك بن علية استخراج المكرر لكل اسمين معا_3.rar

السلام عليكم ورحمة الله أخي الكريم، في الحقيقة كنت أنتظر أخي الحبيب أبو أحمد لحل المسألة بالأكواد، وقد حضّرت الحل بالمرفق باستعمال المعادلات غير أنني لم أستطع ذلك بمعادلة واحدة بل وقد استعنت بمعادلات في عدة أعمدة إضافية للوصول إلى المطلوب (أراها ضرورية)... ثم إن هذه المعادلات لا تراعي ترتيب الأشخاص في اللجنة الواحدة إذ لا تعتبر التكرار في حالة ما إذا كان مثلا : محمد1 ومحمد2 بهذا الترتيب في لجنة معينة، وكان محمد2 و محمد1 بهذا الترتيب في لجنة أخرى... أعتقد أن الحل بالأكواد يكون أكثر نجاعة منه بالمعادلات... المهم أقدم لك في الملف المرفق ما توصلت إليه باستعمال المعادلات في انتظار ما يقدمه أخي الحبيب أبو أحمد أو أحد غيره بالأكواد أو بمعادلات أبسط من التي اقترحتها... أخوك بن علية استخراج المكرر لكل اسمين معا.rar

السلام عليكم ورحمة الله بارك الله فيكما اخوايا الكريمين أبو أحمد وطارق وجزاكما الله خير الجزاء وبارك علمكما وزادكما من نعمه... هذه المرة أخي الحبيب أبو أحمد لا أتبعك الحل بالمعادلات لأن أخانا goodlife اشترط أن لا يكون الحل بالمعادلات... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، ألق نظرة في الرابط التالي علّك تجد ضالتك : http://www.officena.net/ib/index.php?showtopic=39666 أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أستسمح أخي الحبيب أبو أحمد في القيام بتغيير في كوده الرائع حسب الطلب الجديد (الطالب الغائب) وفي الملف بالمعادلات تم إضافة هذا الشرط الجديد مع تسمية معادلة جلب علامة الطالب بالتسمية Formule لغرض اختصار المعادلة في الجدول... أخوكم بن علية ملف أخي الحبيب أبو أحمد بالكود: اسماء ودرجات الدور الثانى فقط لاغير.rar الملف بالمعادلات: اسماء ودرجات الدور الثانى فقط لاغير2.rar

السلام عليكم ورحمة الله أخي الكريم، وبالمعادلات (حسب الترتيب في العنوان وتتبعا لخطوات أخي الحبيب أبو أحمد) الحل في الملف المرفق... أخوكم بن علية اسماء ودرجات الدور الثانى فقط لاغير1.rar

السلام عليكم ورحمة الله أخي الكريم جوده، أقدم لك حلا بشرطين باستعمال الدالة VLOOKUP مع إضافة عمود في ورقة1 (قاعدة البيانات)... أخوك بن علية بشرطين.rar

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

السلام عليكم ورحمة الله أبارك لأخوي الكريمين الخالدي ورجب هذه الترقية المستحقة... من المفروض أن يرقى أخي الخالدي إلى خبير الخبراء بالمنتدى (لو كان ذلك ممكنا في قانون المنتدى) وهو أهل لذلك وأكثر... أما أخي الكريم رجب فقد برهن على أنه فعال جدا في تدخلاته الموفقة في الكثير من المواضيع... أتمنى من الله أن تزيدهما هذه الترقيات عملا وجهدا كبيرين في المنتدى وأن يكونا عونا لنا جميعا بالمنتدى ورواده... بارك الله فيكما وحفظكما الله من كل سوء... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم والحبيب أحمد البحيري لقد قمت بتعديلات على المعادلة مع إضافة التسمية Plage لنطاق عمود الأكواد (باعتبار الفراغات -فقط- في خلايا هذا العمود)... بالنسبة للأخ أبو تميم أعتقد أن المشكل هو أن الملف الذي عملته في نسخة أوفيس 2003 يحتوي على كود VBA في Module1 وإن كان فارغا لكن في العادة عند فتحه في أوفيس 2007 أو 2010 يقوم بإلغاء الأكواد ثم يعيد فتحه مصححا ودون أكواد... وقد حذفت الأكواد من الملف من المفروض أنك لا تجد أي خلل في الملف... وإن ظهر لك أي مشكل أعيد إرسال الملف بنسخة أوفيس 2010... أخوكم بن علية إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد معادلة صفيف وليس كودا تقوم بتعيين المطلوب... أخوك بن علية إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar

السلام عليكم ورحمة الله أخي الكريم قصي، الرابط الذي قمت بتحميل الملف منه هو الرابط للمرفق الأول في موضوع أخينا العزيز عبد الله جازاه الله عنا ألف خير والملف في هذا الرابط ليس فيه طريقة إدراج الصورة في الشهادة... وبعد تحميل الملف الصحيح قمت بالتعييرات نفسها (السابقة) على أكواد Module1 باستعمال الكلمة السرية 123... وتم أيضا تصحيح الخلل الذي ظهر في الملف السابق (ظهور رسالة الخطأ عندما تريد فك الحماية عن الورقة بالكلمة السرية المكتوبة في الكود)... أرجو هذه المرة أن يكون العمل في الملف المرفق مستوفيا للطلب... أخوك بن علية شهادات جديد مع اضافة صور للطلبة.rar

السلام عليكم ورحمة الله أخي الكريم، حسب الطلب جرّب الكود التالي: Sub test() [D6] = "CCR-" & Format(Application.WorksheetFunction.Substitute([B6], "CCR-", "") + 1, "000") End Sub أخوك بن علية