بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم، جرب المرفق بفرض أن الأعداد في العمود A تبدأ كلها بالعدد 617125 (ثم بعض الأصفار)... أخوك بن علية الملف المرفق : جدول2.rar

السلام عليكم ورحمة الله أخي الكريم حمادة، بالنسبة لسطر الكود يوضع بدل سطر "المسح" يجب فقط مراعاة النطاق المعني بالكود... بالنسبة للرقم 23 في الدالة هذا الرقم يدل على أن كل الاختيارات الأربعة التي ذكرتها سابقا معنية بالمسح (والرقم يتغير حسب ما تريد مسحه إلى الأعداد 1 ، 2 ، 3 ، 4 ، 5 ، 6 ، 7 ، ... ولا أعرف الباقي وهي تتعلق بالاختيارات المعينة)... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم حمادة، جرب الجزء التالي في الكود : Range("B5:F100").SpecialCells(xlCellTypeConstants, 23).ClearContents فهذا الجزء يحذف فقط القيم الثابتة (نصوص، قيم، قيم منطقية، أخطاء) دون المعادلات في النطاق B5:F100 .... أرجو أن يفيدك هذا التعديل.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم زاكي، في الملف المرفق تجد ملفا تنفيذيا يشرح عملية التنسيق الشرطي لتلوين الصف والخلية النشطة بطريقة تلقائية (وأضفت له التنسيق الشرطي لتلوين العمود) وتجد أيضا الملف الذي تم عليه العمل في إكسيل 2013 بالفرنسية... أرجو أن يكون الشرح مفهوما (رغم بعض الخلل في الفيديو -بطء التنفيذ-).... أخوك بن علية الملف المرفق : Classeur1.rar

السلام عليكم ورحمة الله أخي الكريم، ما هي نسخة الأوفيس تبعك حتى تتم الإفادة حسب هذه النسخة؟ أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم زاكي، بإذن الله سأحاول شرح هذا في ملف تنفيذي أحضره على نسخة أوفيس 2013 بالفرنسية... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إن سبب ذلك من وجهة نظري سببان : يمكن أن يكون مستوى أمان الماكرو مرتفعا في الأوفيس تبعك ولحل هذه المشكلة عليك تخفيض هذا المستوى إلى الأدنى (وكل نسخة للأوفيس لها طريقتها)، ويمكن أن تكون تعمل بنسخ الأوفيس المتقدمة 2007 أو 2010 أو 2013 وفي هذه النسخ الملفات التي بها أكواد يجب تسميتها بغير الامتداد xlsx أي بأحد الامتدادات التالية : xlsm أو xlsb... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم فضل، بالنسبة للمشكل الذي اعتبرته صعبا فهذا بإذن الله حله بسيط، يمكن تغيير الكود في حدث الورقة باستعمال الخاصية Worksheet_Calculate أو يمكن جعل تنفيذ الكود يدويا بوضعه في موديول Module وربطه بزر لتنفيذه يدويا... أما فيما يخص شرح السطر (C = Choose(X, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58 فالأعداد المذكورة في هذه الصيغة تمثل أرقام أعمدة "المجموع" للمواد على الترتيب والتي تخصها العملية نفسها (عندما تكون "خلية عمود المجموع للمادة المختارة أصغر من قيمة الخلية من العمود نفسه من السطر 9 الثابت" أو كانت "قيمة خلية العمود الذي قبله -عمود آخر العام- أصغر من قيمة الخلية من العمود نفسه من السطر 9 أو كانت هذه الخلية تحوي حرف غ" تكون نتيجة الدالة IIF العدد 1 و 0 إذا كان غير ذلك)... والدالة CHOOSE بهذا الشكل تقوم باختيار رقم عمود المادة بالترتيب حسب قيمة X المتغير من 1 إلى 12... ثم نتائج الدالة IIF حسب المواد والشرط المذكور أعلاه يتم جمعها في متغير سمّي S والذي يُستعمل في نتيجة المعادلة في العمود BV حسب رقم الصف الذي يحدده المتغير I في الكود... أرجو أني وُفقت في الشرح.... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، تم في الملف المرفق بإضافة كود للترتيب في 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