بن علية حاجي

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

السلام عليكم ورحمة الله يمكنك استعمال الكود التالي: Sub Close1() For Each WBook In Application.Workbooks WBook.Save Next WBook Application.Quit End Sub ملاحظة: هذا الكود يمكنك وضعته في ملف واحد (منه تُغلق كل الملفات المفتوحة) أو في عدة ملفات (من أيّها تُغلق كل الملفات المفتوحة) مع ربطه بزر للتنفيذ... بن علية حاجي

السلام عليكم ورحمة الله لم أفهم سؤالك جيدا، هل تريد من الكود أن يغلق كل ملفات العمل المفتوحة مع الملف الذي قمت بتنفيذ الكود فيه والخروج تماما من برنامج أوفيس؟ والذي لم أفهمه أيضا ما دور الأمرين الأول والثاني في الكود؟ وأعني بذلك الأمرين : Sheets("Welcom").Range("A50") = 0 Sheet1.Activate لأنه وما دمت تريد وضع الكود في كل ملفات العمل فهذا يعني ضرورة وجود شيت اسمه (Welcom) في كل هذه الملفات... ثم إن الكلمة Sheet1 تجدها في نسخ إكسيل بالإنجليزية أما في النسخ بالفرنسية فتجدها Feuil1... بن علية حاجي

السلام عليكم تم التعديل في معادلات العمود المساعد ومعادلات الترتيب في الملف المرفق... يبقى مشكل واحد وهو (تساوي المجموع العام والسن في آن واحد) بالنسبة للأوائل، فالمعادلات تجلب اسما واحدا (ولو أن هذه الحالات نادرة غير أنه يمكن وضع حل لهذه المشكلة بإضافة أرقام عشرية للسن حسب عدد تكرارات هذا السن)... بن علية حاجي 22.rar

السلام عليكم ورحمة الله بارك الله فيك أخي سليم، إبداع ما فوقه إبداع... وأقترح تبسيطا (اختصارا) للمعادلة في الخلية E2 (ثم سحبها نزولا): =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100;$E$1);"";MATCH(E$1;OFFSET($B$2;SUM(E1);0;ROWS($B1:$B$100)-SUM(E1));0)+SUM(E1)) أو =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100,$E$1),"",MATCH(E$1,OFFSET($B$2;SUM(E1),0,ROWS($B1:$B$100)-SUM(E1)),0)+SUM(E1)) بن علية حاجي

السلام عليكم تريد أن يكون الترتيب في حالة تَساوي المجموع العام للأصغر سنا ثم الذي يليه ثم الذي يليه؟؟ بن علية حاجي

السلام عليكم تم تغيير معادلة الترتيب بمعية عمود مساعد (ملون بالأخضر)... أرجو أن يكون المطلوب. بن علية حاجي 21.rar

السلام عليكم حاليا لا يوجد دالة في الإكسيل تقوم بما تريده... يمكن استعمال دالة SUM مرة واحدة مع النطاقين (العمودين) بإسباق النطاق الثاني (المطروح) بالإشارة "-" ثم تأكيد المعادلة بـ CTRL+SHIFT+ENTER (معادلة صفيف) مثال: إذا أردنا طرح مجموع قيم العمود B من مجموع قيم العمود A تكون المعادلة كالتالي: {=SUM(A:A;-B:B)} أو يمكن استحداث دالة بواسطة كود يقوم بهذه العملية... بن علية حاجي

سلام عليكم هل جرّبت إلغاء مشاركة الملف؟؟ أعتقد أن هذا المشكل يكون جراء "مشاركة الملف" (Sharing) وإلغاء هذه المشاركة (Un-Sharing). بن علية حاجي

حياكم الله بمعادلة صفيف تم عمل المطلوب في الملف المرفق... بن علية حاجي جلب اسم الغائب حسب التاريخ (1).xlsx

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق مع التسلسل في الترتيب بغض النظر على تكرارات بعض المراتب... بن علية حاجي الاول (2).xlsm

السلام عليكم ورحمة الله تم تصحيح الخلل في الملف المرفق... بن علية حاجي الاول.xlsm

السلام عليكم ورحمة الله أعتقد أن ما يريده الأخ الكريم "احمد بدره" هو أن يكون الترتيب تسلسليا (الأول - الثاني - الثالث - ...) حتى وإن وُجدت تكرارت لبعض المراتب، كما هو موجود في الملف المرفق (وقد تم فيه الاستعانة بعمود إضافي -ملون بالأزرق- بمعادلات صفيف لجلب قائمة علامات التلاميذ دون تكرارات لاستعمالها في الترتيب)... والله أعلم بن علية حاجي For Ahmad Too.xlsm

السلام عليكم ورحمة الله لست أدري ما قمت به في الملف هو المطلوب... يبقى التعبير على علامات المواد بالكتابة (يمكن استعمال كود التفقيط بتخصيصه من 1 إلى 50)... تم ضم ورقة الشهادات مع ملف إكسيل وتزويدها بكود طباعة لكل الشهادات... وأي تعديل تريده تجدني إن شاء الله في الخدمة... ملاحظة: شرحك للمطلوب غير وافي (وفي الحقيقة لم أفهم ما تريده بالضبط)... بن علية حاجي ترتيب الطلاب _1111.xlsm

السلام عليكم ورحمة الله تم عمل كود بسيط بمعية بعض المعادلات ونطاقات بالتسمية، أرجو أن يكون تقريبا للحل... بن علية حاجي إجازات.xlsm

السلام عليكم ورحمة الله وهذا حل أخي الكريم سليم بعد إذنه وبعد تعديل طفيف على كوده الأول... بن علية حاجي Salim_Abscent.xlsm

السلام عليكم ورحمة الله حل بالمعادلات في الملف المرفق... بن علية حاجي استدعاء الغياب.xls

السلام عليكم ورحمة الله جرب المعادلة التالية (بتحفظ شديد لأنه لا يمكن من خلال صورة إنشاء معادلات دون معرفة أسماء الشيتات وعناوين الخلايا والنطاقات) : =OFFSET('شيت 1'!$K$2;SUMPRODUCT(('شيت 1'!$B$3:$B$1000=$B3)*('شيت 1'!$C$3:$C$1000="سداد")*ROW($1:$998));0) بن علية

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

السلام عليكم ورحمة الله الأمر صعب جدا جدا بالمعادلات لعل الأكواد تفي بالغرض -بتحفظ شديد-... معذرة أخي الكريم لعدم تقديم المساعدة... بن علية حاجي

السلام عليكم ورحمة الله أعتقد أنك تعمل بنسخة إكسيل 2007 (مشكل التوافقات بينها وبين النسخ الأخرى) لذا يُفضّل العمل بالنسخ الأعلى (2010 أو 2016 أو...). بن علية حاجي

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

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

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

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