بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، لست أدري لماذا لا تريد أن يكون الحل بالتنسيقات أو بالمعادلات؟ رغم أن الحل بالتنسيقات أحسن وأفضل (ربما يقلل من سرعة عمل الملف إذا كانت تنسيقات أخرى مكثفة)... المهم في الملف المرفق تجد حلا بكود يغير تنسيق أرقام خلايا نطاق معين حسب رقم العمود في النطاق... وأعترف أن الإخوة الكرام لا يبخلون بأكواد أخرى تكون أفضل مما قدمته... أخوك بن علية صفر على الشمال.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 أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، قمت بإضافة خاصيتي UNPROTECT و PROTECT إلى كل كود يحتاج إلى فتح شيت "الشهادات" في Module1 ... والكلمة السرية هي من المفروض 123 يمكن تغييرها في أكواد Module1 باستعمال خاصية استبدال Replace ويتم استبدال "123" بأي كلمة أخرى.... والله أعلم أخوك بن علية شهادات جديد.rar

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

السلام عليكم ورحمة الله أخي الكريم، في هذه الحالة يكفي إظافة اسم الورقة التكويد! في عناوين الخلايا والنطاقات... والمعادلات المقترحة بالأعلى تصبح: معادلة أخي الحبيب الخالدي (بعد إذنه) : =INDEX(التكويد!$1:$1;0;256-MAX(INDEX((التكويد!$A$2:$H$300=التكويد!J4)*(256-COLUMN($A$1:$H$1));))) معادلتي : =INDEX(التكويد!$1:$1;;SMALL(IF(التكويد!$A$2:$H$1000=التكويد!J4;COLUMN($A:$H));1)) ولا تنسى أنها معادلة صفيف أخوك بن علية بحث وارجاع العمود.rar

السلام عليكم ورحمة الله أخي الكريم، قد تقدم أخي الكريم الخالدي بما يفي الغرض جازاه الله عنا ألف خير وبارك له في علمه... ويمكن أيضا استعمال معادلة الصفيف التالية: =INDEX($1:$1;;SMALL(IF($A$2:$H$1000=J4;COLUMN($A:$H));1)) ولا تنسى تأكيدها بـ : CTRL+SHIFT+ENTER أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة على ملف أخي الحبيب طارق مع بعض الملاحظات على الرسم... أتمنى أن يكون العمل مفهوما والملاحظات واضحة... أخوكم بن علية Circle1.rar

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

السلام عليكم ورحمة الله أخي الكريم، تعودت أن أتتبع خطوات أخي وحبيبي أبو أحمد، عمله بالأكواد وعملي بالمعادلات، أقدم العمل التالي في الملف المرفق باستعمال معادلات بسيطة مع إضافة تنسيق شرطي "نلوين الاسم واسم المادة في الجدول حسب الاسم المختار في القائمة المنسدلة"... أخوك بن علية كود لكتابة الاسماء التى ينطبق عليها اسم المادة3.rar

السلام عليكم ورحمة الله أخي الكريم طاهر، لقد جربت تنصيب الأداة Translation Names التي هي مصدر المشكل وقد ظهر المشكل نفسه في جهازي وقمت ببساطة بفتح البرنامج وتجاوزت الرسالة بالإلغاء Annuler حتى تم فتح صفحة إكسيل ثم فتحت خاصية "أدوات" Outils ثم "وظائف إضافية" Macros complémentaires وقمت بإزالة العلامة من أمام هذه الأداة Translation Names والموافقة وتجاوزت أيضا رسالة الخطأ بالإلغاء Annuler واغلقت إكسيل ثم فتحته ولم يبق أثر للرسالة والخطأ... في حالة ما لم تنفع الطريقة يكفي حذف الأوفيس من الجهاز عن طريق "إلغاء تنصيب البرامج" ثم حذف الدليل Microsoft Office من Program Files ثم إعادة تنصيب الأوفيس من جديد وإن شاء الله يكون حلا لمشكلتك بدلا من إعادة تنصيب الويندوز (وآخر الدواء الكي) والله أعلى وأعلم... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تمت بعض التغييرات على الورقة "1" بتحويل أرقام أيام الشهر إلى تواريخ مع بعض التنسيقات (السطرين 1 و 2) والتنسيقات الشرطية لأيام الجمعة... ومعادلة عد أيام الغياب لكل طالب قمت باستثناء يوم السبت (7) ويوم الأحد (1) هي من الشكل (لم أستطع تبسيطها): =SUMPRODUCT((WEEKDAY('1'!E$2:J$2)<>1)*(WEEKDAY('1'!E$2:J$2)<>7)*('1'!E3:J3="غ")) وأعتقد أن المعادلة تعطي فكرة على طريقة استثناء أيام أخرى... وتطبيق كل هذا في الملف المرفق... أخوك بن علية 2.rar