بن علية حاجي

السلام عليكم ورحمة الله تم عمل المطلوب بمعادلات صفيف (التأكيد يكون بالضغط على CTRL+SHIFT+ENTER بعد حجز المعادلة في الخلية ثم تُنسخ بالسحب إلى الأسفل)... بن علية حاجي عدد أخر فراغات.xlsx

السلام عليكم ألم يكتمل هذا الموضوع؟ أهو طلب جديد؟ بن علية حاجي

السلام عليكم ورحمة الله جرب الملف المرفق لعل فيه ما تريد، نختار مدة التقسيط بالشهور و(نسبة التقسيط الأول أو مبلغ التقسيط الأول)... النتائج يمكن أن تكون فيها منازل عشرية... بن علية حاجي اقساط (3).xlsx

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

السلام عليكم ورحمة الله وإليك الاختصار الذي وعدتك به (في الحقيقة هناك اختصاران أحدهما تبسيط مباشر للمعادلة والثاني تبسيط بالتسمية -شرح بسيط في المرفق-)، ولم أجد تبسيطا آخر... بن علية حاجي اقساط (2).xlsx

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

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

السلام عليكم راجع الملف المرفق وفيه ما تريد (طباعة قسم واحد - طباعة بخاصية من... إلى... - طباعة الكل). الخلية A1 لم تعد فيها قائمة منسدلة واستُبدلت بمعادلة متعلقة بقيمة الخلية O1 (قيمة مخفية باللون) والتي (الخلية O1) يتحكم في قيمتها الكائن الموجود في هذه الخلية. لأي استفسار آخر أو إضافات أخرى تجدني إن شاء الله في الخدمة... بن علية حاجي 1علوم.xlsm

السلام عليكم بعض التعديلات تمت على الملف... راجع الملف المرفق. القوائم جعلتها تتغير حسب القائمة المنسدلة للأقسام (الخلية A1). لأي استفسار أو إضافات تجدني إن شاء الله في الخدمة... بن علية حاجي 1علوم.xlsx

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

السلام عليكم ورحمة الله في تجميعة 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). بن علية حاجي