بن علية حاجي

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

السلام عليكم ورحمة الله في تجميعة Morefunc توجد دالة اسمها INDIRECT.EXT تقوم بعمل الدالة INDIRECT ومع الملفات المغلقة... والله أعلم بن علية حاجي

السلام عليكم ورحمة الله أخي سليم، الكود الذي أنجزته رائع جدا والكود الثاني أروع، ولم أكن أعلم أن صاحب الموضوع طلب عناوين الخلايا (الحقول) الفارغة... وقد قمت بالتعديل على الكود السابق بما يلي: Private Sub Worksheet_Deactivate() For I = 1 To 7 If Cells(I + 4, 4) = "" Then S = S & "$D$" & I + 4 & ", " Next If Application.CountA(Range("D5:D11")) < 7 Then Feuil1.Activate: _ MsgBox " : لا يمكنك الخروج من الشيت. هناك حقول فارغة في الخلايا التالية" & Chr(10) & Mid(S, 1, Len(S) - 2) End Sub بن علية حاجي Book1.xlsm

السلام عليكم ورحمة الله وضعت الكود التالي في حدث الشيت الخاص بالحقول : Private Sub Worksheet_Deactivate() If Application.CountA(Range("D5:D11")) < 7 Then Feuil1.Activate: MsgBox "هناك بعض الحقول فارغة! لا يمكنك الخروج من الشيت" End Sub تجد ذلك في الملف المرفق... بن علية حاجي Book1.xlsm

السلام عليكم ورحمة الله تم عمل التعديل في الكود بإضافة أمرين لتحويل التاريخ والمندوب... بن علية حاجي نموذج ادخال.xls

الجواب في المرفق وجزاني الله وإياك وكل المسلمين خيرا كميات الاسفلت.xlsx

السلام عليكم حل أول بالمعادلات... بن علية حاجي mo.xlsx

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