بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، تم في الملف المرفق بإضافة كود للترتيب في Module1 أسميته hben مع تعديل كود حدث الشيت Sheet1 المسمى "Data"... أرجو أن تفي هذه الإضافات بالمطلوب... أخوك بن علية الملف المرفق: الصف الثانى.rar

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، لقد طلبت منك التأكد من نتيجة المعادلة التي عدّلتها في الملف المرفق بالرد رقم 8# والظاهر أنك لم تقم بتحميل هذا الملف وتجربته... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، نعم فهمت أن سعر الصرف لكل 03 أشهر والتاريخ 29/08/2013 موجود سعره في الجدول... وقد قمت بالتعديل على ردي بتعديل المعادلات حسب الملاحظات التي أدليت بها في الرد مع إرفاق ملف به تصحيح للمعادلة، فقط تأكد من صحة النتيجة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تريد أن تجمع الخلية N20 والخليتين N21 و N22 بعد تحويل مضمونهما إلى ج.م ولكن ما هو التاريخ الذي تتعامل معه (تبحث به العمولة) ؟ هل هو التاريخ الموجود في الخلية B20 أو في B21 أو في B22؟ وإذا كان هو 29/08/2013 ففي جدول العمولة لا يوجد قيم عند هذا التاريخ... رجاء وضّح شروط تطبيق العملية... والمعادلة التي وضعتها فيها خطآن الأول يخص تاريخ البحث ففي المعادلة لاحظت أنه يتم البحث عن تاريخ الخلية B4 من شيت TOTAL والثاني أن المصفوفتان الخاصتان بالدالة SUMPRODUCT إحداهم أفقية والأخرى شاقولية ولهذه الأسباب ظهر الخلل في نتيجة المعادلة... ولجعل المصفوفتين من الاتجاه TRANSPOSE أمام أحداهما ولكن المعادلة تصبح معادلة صفيف أي يجب تأكيدها بواسطة Ctrl+Shift+Enter (انظر الملف المرفق)... والله أعلى وأعلم أخوك بن علية الملف المرفق : Determine the exchange rate corresponding to the date (4).rar

السلام عليكم ورحمة الله أخي الكريم زاكي، طبقت ذلك في الملف المرفق بمعادلتين بالتنسيق الشرطي وكود صغير يوضع في حدث ThisWorkbook... أخوك بن علية الملف المرفق (نسخة 2003) : test.rar

السلام عليكم يمكن استعمال كود لدالة مستحدثة للتأكد من مضمون خلية إن كانت تحوي معادلة أم غير ذلك... ويمكن أيضا استعمال المعادلات في ذلك بالطريقة التالية (باعتبار أن القيم التي يتم اختبارها موجودة في العمود A): * أولا : نقوم بتسمية المعادلة التالية (مع الأخذ بعين الاعتبار اختيار أي خلية من السطر الأول) باسم معين مثلا "Test" - بالفرنسية: =LIRE.FORMULE($A1) - بالإنجليزية: =GET.FORMULA($A1) * ثانيا : كتابة المعادلة التالية في أي خلية من أي عمود (العمود B مثلا) : - بالفرنسية : =SI(GAUCHE(Test;1)="=";"Y";"N") - بالإنجليزية : =IF(LEFT(Test;1)="=";"Y";"N") وفي الملف المرفق تجد تطبيقا لهذه الطريقة... أخوك بن علية الملف المرفق : File_Test.rar

السلام عليكم ورحمة الله أخي الكريم حمادة، أولا إن كودا المسح Delete_Data و Delete_Datas لا بد من وجدهما في الملف لأن الشيتات الأربعة التي يتم الترحيل منها بياناتها محدودة في الأكواد بالخلية B35 (باعتبار جداول المعلومات التي أسفلها) لذا كلما امتلأت الجداول في هذه الشيتات إلى غاية الخلية B35 يتعين عليك تفريغها بعد الترحيل... وثانيا ذكرت لك أن الأسئلة التي باستطاعتي الإجابة عليها حسب الوقت والفراغات لا تحرجني البتة وغيرها أنتظر الإجابة عليها من طرف عضو آخر له علم بها للتعلم... بالنسبة لطلبك الأخير قمت بالتعديل أولا على معادلات العمود G في شيت "عام" ثم على كود الترحيل بحيث يقوم بعد عملية الترحيل بفرز البيانات المرحلة أو التي تم التعديل عليها (بحذف صف أو صفوف من العمود H إلى العمود P -عمود "اسم الشيت"- وليس العمود b كما كتبتَ في ردك)... لذا بعد حذف بيانات صف أو صفوف من العمود H إلى العمود P في شيت "عام" انقر على زر "الترحيل" لفرز البيانات دون ترك فراغات في الصفوف المتبقية بعد الحذف... أرجو أن يعجبك هذا التعديل.... بالنسبة للعبارة في ردك السابق "لم أفهم ما في العمود L" هل هو تساؤل؟؟؟ أخوك بن علية الملف المرفق : مانفست كلابشة_Ali13_Bis.rar

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

السلام عليكم ورحمة الله أخي الكريم، قد تم سابقا إنشاء كود في ورقة "عام" لمسح مضمون الأوراق الأربعة (طائرة-أوتوبيس-مطروح-تعديل) يكفي في هذه الحالة إضافة إلى كود الترحيل أمر تنفيد كود المسح الذي تم تسميته "Delete_Datas" وقد تم التعديل على الكود في الملف المرفق... أخوك بن علية الملف المرفق : مانفست كلابشة_Ali10.rar

السلام عليكم ورحمة الله أخي الكريم عبد السلام، هل انتقلت إلى نسخة أخرى لأوفيس غير أوفيس 2003؟ إذا كانت هذه النسخة التي انتقلت إليها هي 2007 فالظاهر أنك لم تقم بتنصيب خاصية Visual Basic for Application أثناء العملية... ليس لي فكرة أخرى... ألق نظرة على الرابطين التاليين (وهما بالإنجليزية): http://answers.microsoft.com/en-us/office/forum/office_2007-customize/this-workbook-has-lost-its-vba-project-activex/6d4658bb-75fd-43ae-abc7-53010ad78a1f?msgId=5c537b41-11b0-4b8e-88d7-5fb2c5b036d7 أو http://www.asap-utilities.com/faq-questions-answers-detail.php?m=145 ربما يفيدانك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أولا المشكل في الملفات أن النسخة السابقة تعتمد التسميات للشيتات بالتسمية Sheet وفي نسختك الجديدة التسميات هي بالشكل Feuil وثانيا أعتقد أن أمان الماكرو في جهازك مرتفع لذا قبل فتح الملف التي تحوي ماكرو يجب تخفيض مستوى أمان الماكرو ثم فتح الملفات... قد تم أيضا استرجاع كل الأكواد المعدلة إلى الملف الجديد... أرجو أن تنجح معك هذه المرة.... أخوك بن علية الملف المرفق : برنامج المنحة المدرسية_النهائي.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، جزء مما تبقّى من الحل في الملف المرفق "عند انتهاء تاريخ الاعاره ( H ) يتم اعلان إنزار بالصوت" بواسطة كود مع القيام بتلوين الخلية المعنية بالشرط باللون الأصفر (تم إضافة عمود آخر "استعادة" باختيارين "نعم" في حالة الاستعادة و "لا" أو "فراغ" في الحالة الأخرى)... بالنسبة للجزء "حتى وإن كان الملف مغلقا وإذًا لا بدّ من فتحه؟" فهذا لا أفيدك فيه (لا أعتقد أنه متاح ثم إن الطلب الأخير لا يكون له معنى لأن الملف سيكون مفتوحا من 07.00 إلى 16:00)... بالنسبة للطلب الأخير أقترح أن أحسن طريقة لذلك هي استعمال الويندوز وذلك بأدوات النظام بخاصية "المهام المجدولة" Task Scheduler... لأنه إذا استعملت الأكواد في ذلك فإنها تستهلك طاقة كبيرة من ذاكرة الجهاز بينما "المهام المجدولة" تحتاج فقط أن يكون الجهاز مشتغلا... والله أعلى وأعلم أخوك بن علية الملف المرفق : إعارة.rar

السلام عليكم ورحمة الله أخي الكريم، ترددت كثيرا في الرد وقد حضرت لك ملفا تنفيذيا لكيفية إضافة مفاتيح CommandButtons في كل ورقة من أوراق MultiPages غير أني لا أفيدك بطريقة ربط هذه المفاتيح بكود (لم أتمكن من إيجاد حل لها) ومعذرة لذلك... غير أن ذلك ممكن لو أنشأت MultiPages في فورم UserForm، ففيه يمكن برمجة هذه المفاتيح بالطريقة المعتادة.... أخوك بن علية ملاحظة: تم تحضير الملف التنفيذي بالتطبيق في نسخة إكسيل 2010 بالفرنسية... الملف المرفق : 15.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إن بقي العمود E فسيؤثر في المعادلة إذ أنها ستعطي خطأ باعتبار أن الدالة SUMPRODUCT تعتمد المصفوفات التي لها نفس الحجم وبما أن من خصائص الدالة أنها تجمع جداءات لذلك فيجب أن تكون المصفوفات من العرض نفسه (الصفوف) أو الارتفاع نفسه (الأعمدة)... وفي مثالنا المصفوفات المستعملة من خليتين متجاورة وإذا تُرك العمود E ستكون المصفوفة الثانية التي استعملت فيها الدالة OFFSET من ثلاث خلايا وهذا يحدث به الخطأ... وإذا أردنا تركه فهنا يجب تغيير صيغة المعادلة والتخلي عن استعمال الدالة SUMPRODUCT (إلا إذا أدرجنا عمودا آخر في الجدول بالأعلى بين عمودي عملة الدولار وعمود عملة اليورو) واستبدالها بإحدى دوال البحث (مثل INDEX أو VLOOKUP أو غيرهما) ولكن تُستعمل الدالة المختارة مرتين وهذا يجعل المعادلة أطول... والله أعلى وأعلم أرجو أني وُفّقت في تقريب المفهوم... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تم تعديل طفيف في أعمدة الجدول (حذف العمود E الصغير) وهذا لتبسيط المعادلة المستعملة للعملية المطلوبة... أرجو أن يفي هذا بالمطلوب... أخوك بن علية الملف المرفق : Determine the exchange rate corresponding to the date.rar

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

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

السلام عليكم ورحمة الله أخي الكريم قنديل الصياد، تم التعديل على الكود حسب المطلوب (الرتبة تأتي دون كلمة "مكرر" وفي حالة التكرار تضاف لها كلمة "مكرر") وذلك باستبدال السطر : If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 Then TEXT_M = " مكرر " بالسطرين : Set MRange = Range(Cells(3, X_Mar.Column), Cells(X_Mar.Row - 1,X_Mar.Column)) If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 And WorksheetFunction.CountIf(MRange, X_Mar) >= 1 Then TEXT_M = " مكرر " تجد هذا التغيير بين السطرين ----------------------------------------------------------------------------------------------' أرجو أن يفي هذه بالمطلوب.... أخوك بن علية الملف المرفق : Book1_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، إن الكود في هذه الحالة لا يصلح لأن فيه أمر (ضروري) يقوم بمسح ألوان كل الورقة عند مغادرة الخلية النشطة إلى خلية أخرى... والحل هو استعمال طريقة "التنسيق الشرطي" Mise en forme conditionnelle وهي الطريقة الوحيدة التي تليق بهذه الوضعية.... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم حمادة، لقد تم إضافة زر بكود في شيت "عام" لمسح البيانات دون المعادلات من الشيتات الأربعة (مطروح-طائرة-الاتوبيس-تعديل) مع تعديلات أخرى... ولم يكن هناك داع لفتح موضوع جديد للمسألة نفسها... أخوك بن علية الملف المرفق : مانفست كلابشة_Ali5.rar