بن علية حاجي

السلام عليكم ورحمة الله أخي أسامة، تم استبدال الدالة VLOOKANYCOL بدالتي البحث INDEX و MATCH في كلتا الورقتين... في الورقة "الطلبيات" تم إنشاء معادلة باستعمال الدالة MAX بالتسمية Position انطلاقا من الخلية J14 (المؤشر يجب أن يكون موجودا في هذه الخلية أثناء إنشاء هذه التسمية) وذلك لتجنب تأكيد معادلة الصفيف المكتوبة في الخلية J14 بواسطة Ctrl+Shift+Enter قمت أيضا بتعديلات أخرى (تحسينية) على معادلات أخرى... أرجو أن يفي هذا التغيير بالمطلوب رغم وجود بعض البطء في الملف (بسبب معادلات الصفيف في ورقة "الطلبيات") لكن ليس كما كان عليه الملف قبل التغيير... أخوك بن علية الملف المرفق : officena1.rar

السلام عليكم ورحمة الله أخي الكريم الشيباني، يستحسن وضع ملف به الكود دون بيانات خاصة لأن الكود الذي وضعته غير واضح تماما (عدم وضوح الكلمات بالعربية بشكل صحيح)... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم عادل، تم عمل حوالي 60 % من المطلوب في الملف والباقي بحول الله سأنظر فيه غدا إن لم يتم بواسطة أحد الإخوة أو الأخوات في المنتدى... أقدم لك الملف المرفق وفيه تعديل ما استطعت تعديله كخطوة أولى... وقد لونت كل الخلايا التي تم التعديل عليها وربطها بالكود وحذفت كل إطارات الخاصة بالشرح عليها... أخوك بن علية المرفق : البرنامج_.rar

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

السلام عليكم ورحمة الله أخي الكريم حمادة، رائع جدا هذا الكود ولم أكن أعرف أن ذلك ممكن... المهم جميل جدا زادك الله من علمه ومن نعيمه وجازاك الله عنا كل خير في الدنيا والآخرة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تم المطلوب في الملف المرفق بحلين أحدهما يعتمد على عمود إضافي (لونتهما بالأخضر) والآخر بمعادلة صفيف مباشرة في العمود الأصفر (يجب تأكيدها بوساطة Ctrl+Shift+Enter)... أخوك بن علية الملف المرفق : sm.rar

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

السلام عليكم ورحمة الله أخي الكريم zitoun، عليك تخفيض مسنوى أمان الماكرو قبل فتح الملف... والتغيير يتم كما (باعتبار أنك تستعمل النسخة الفرنسية لأوفيس 2007 فما فوق): 1- افتح خصائص إكسيل Option Excel 2- افتح خاصية Centre de gestion de la confidentialité 3- افتح خاصية Paeamètres du centre de gestion de la confidentialité 4- اختر خاصية Paramètres des macros ثم نختار Activer toutes les macros وبالأسفل نختار Accès approuvé au modèle d'objet du projet VBA ثم نفتح الملف الذي يحوي الماكرو وبإذن الله يشتغل عمل الماكرو.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريمة نادية، لست أدري ماذا تعنين بـ "الأوردرات" هل هي أرقام IC المقابلة لاسم Item Name ؟... إذا كان هذا هو المقصود فقد تم التعديل على الكود بما يوافق المطلوب وإضافة ListBox لعرض كل هذه الأرقام في الملف المرفق... تم أيضا التعديل على الفورم بإضافة رؤوس أعمدة (باستعمال Labels) الليست بوكس الخاص بعرض نتائج البحث حسب Combobox... قمت بتعديل على كود البحث حيث أنه كان يجلب كل الأرقام التي تحتوي على الرقم المحجوز في الكمبوبوكس وليس على الأرقام التي تنتهي بهذا الرقم... وأيضا تم إضافة Textbox يلوّن باللون المطلوب حسب مضمون "حالة المعمل" Lab Status أرجو أني فهمت واستوفيت المطلوب... أخوك بن علية الملف المرفق : Nadia_Offic7.rar

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب في الملف المرفق... أخوك بن علية Book1 (تم الحفظ تلقائياً).zip

السلام عليكم ورحمة الله أخي الكريم، ذكرت لك أن المعادلة FORMULA هي تسمية للمعادلة التي كنت موجودة في الخلية F8 (بعد نسخها وتسميتها بهذا الاسم مع الحرص أن يكون المؤشر في الخلية F8) والتسمية TEST تم إنشاؤها أيضا بمعادلة شرطية IF (والمؤشر دائما في الخلية F8) حسب قيمة الخلية E8 إذا كانت 1 تقوم بتنفيذ معادلة Formula وإذا كانت قيمتها 2 تضع القيمة 0 في الخلية F8 كما كنت تريد... وقد تم وضع الحل في ملفك المرفق... أخوك بن علية next_1.rar

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

السلام عليكم ورحمة الله إن الأمر الذي تطلبه غير متاح في خاصية data validation (القوائم المنسدلة)، يمكن التحايل للحصول على الفكرة بالطريقة التي استعملتها في الملف المرفق (المعادلات بالتسمية للتبسيط)، قمت بتسمية المعادلة (معادلة IF) في الخلية F8 بالتسمية FORMULA وأنشأت معادلة أخرى بالتسمية TEST (والمؤشر يجب أن يكون موجودا في أي خلية من السطر 8) ومعادلة هذه التسمية هي كالتالي: =IF(OR($C8="";$E8="");"";CHOOSE($E8;FORMULA;0)) وفي الخلية F8 نستبدل القائمة المنسدلة (تُحذف) بالمعادلة TEST= ثم نسحبها إلى الأسفل، وللتغيير بين قيمة النسبة التي تعطيها المعادلة FORMULA والقيمة 0 نغير قيمة E8 بين 1 و 2 على الترتيب وهكذا بالنسبة للصفوف الأخرى... ملاحظة : حسب ما أراه في الصورة يمكن اختصار المعادلة في F8 (النسبة هي دائما 75% سواء كانت قيمة D8 مساوية لـ X1 أو X2 أو X3 و لا نرى باقي المعادلة) والله أعلى وأعلم TEST.rar

عليك استعمال تذييل الصفحة...

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تم التعديل على الكود بإضافة رسالة تأكيد الطباعة أرجو أن يفي ذلك بالمطلوب... أخوك بن علية Bringing data equation 4_bis.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تم التعديل على معادلة IF التي أضفتَها بدل القائمة المنسدلة باستعمال الدالة CHOOSE لتبسيط المعادلة... بالنسية لكود الطباعة تم عمل اللازم حسب المطلوب... أرجو أن يفي الملف المرفق بالمطلوب... أخوك بن علية Bringing data equation 4.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، لست أدري إن كنت قد فهمت المطلوب فهذا حل للمسألة باستعمال المعادلة (غير أني لم أستطع التخلي عن الأعمدة الإضافية في "Trial Balance" لوّنتها باللون الأخضر)... وقد استغنيت عن كل الصفحات للقيود باستعمال "خاصية القائمة المنسدلة"... أرجو أني قربت المفهوم... أخوك بن علية Bringing data equation.rar

السلام عليكم ورحمة الله أخي الكريم، تم تعديل على معادلات الفرز في ورقة "عام" حسب المطلوب... تجد بعض الشرح في الملف لكيفية استعمال خلية "الرقم" في ورقتي "المغادرين" و "القادمين" بالملف المرفق... أخوك بن علية مانفست2014.rar

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن الكود يكون بالشكل التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("E3:E50")) Is Nothing = True Then Call ShowCalendar Cells(Target.Row, 5) = Range("A1") End If End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، اختلطت علي الأمور، إذا كان مع القادمين نتعامل مع تاريخ النزول ومع المغادرين نتعامل مع تاريخ العودة فإن ضالتك تجدها في الملف المرفق... أخوك بن علية 1_2.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى ما قدمه إخوتي الأحبة هذا حل آخر بالمعادلات... أخوكم بن علية كشف باسماء المشتركين4.rar

السلام عليكم ورحمة الله أخي الكريم، تم عمل اللازم في الملف المرفق بإضافة عمودين آخرين في ورقة "عام" وتعديل على المعادلات... يمكن باستعمال الماكرو بعد الترحيل (بالمعادلات أو بالكود) القيام بعملية الفرز حسب عمود تاريخ العودة... أخوك بن علية مانفست.rar

السلام عليكم ورحمة الله أختي الكريمة نادية، بفضل الله تم العمل على الملف واستيفاء كل ما هو مطلوب في ردك، بالنسبة للمطلوب الأول تم التعديل على الكود في ملف أخي الكريم ضاحي مع إضافات أخرى... بالنسبة لكود الحفظ فهو الأخر تعديل على كود من النت بما يناسب المطلوب وهو يقوم بحفظ Sheet1 فقط (دون أزرار الأكواد) في ملف جديد في مسار الملف الأصلي (إكسيل) ويتم تسميته تلقائيا بالاسم Backup متبوع بالتاريخ الحالي حسب الشكل : Backup_dd_MM_yy أضفت أيضا في Sheet2 عملية البحث حسب رقم IC فقط (دون السنة) باستعمال المعادلات (معادلات صفيف) مع إضافة تنسيق شرطي لتأطير البيانات الموجودة في الجدول... ملاحظة : يبقى الزر Open MRR الخاص بفتح ملفات PDF يعمل بالطريقة السابقة غير أنه يفتح هذه الملفات من مسار الملف الأصلي ويجب أن تكون هذه الملفات محفوظة حسب الشكل الذي ذكرته في السابق مثلا : 2012_257.pdf أرجو أن أكون قد وفيت المطلوب... أخوك بن علية Nadia_Offic6.rar

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