بن علية حاجي

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

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

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الملف المرفق التالي بعد تعديل بسيط على كود PDF_SALAM... تم إضافة كود Printing إلى الملف مع تعديله الجديد... أخوك بن علية Manafist Tarek 2016.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم تعديل طفيف على كود PDF_SALAM حسب المطلوب، أرجو أن يكود يفي بالغرض.... تم إعادة تسمية الشيتات الثلاثة بالترتيب Sheet3 ، Sheet2 ، Sheet1 أخوك بن علية Manafist Tarek 2016.rar

السلام عليكم ورحمة الله أخي الكريم كمال، الإيميل الخاص بي موجود في بياناتي الشخصية: hbenalia@gmail.com أو hbenalia@yahoo.fr بن علية

السلام عليكم ورحمة الله أخي الكريم كمال، أرسل لي ملفك عبر الخاص لأعيّن بالضبط مكان الخطأ لأني كما قلت لك إن الملف الذي أرسلته لك هو ملف أعمل عليه بالثانوية منذ بداية العام ولا يوجد فيه هذا الخلل... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم كمال، إن تغيير الأقسام يتم آليا عند الضغط على زر Printing بتغيير الرقم في الخلية Q1 أو يدويا بواسطة الخلية الملونة بالأصفر Q1 فوق زر الطباعة Printing (لاستعراض الشيتات) ولكن الطباعة كل الشيتات المذكورة سابقا لا تتم إلا بالضغط على زر الطباعة Printing. الملف المرفق التالي تم تحضيره مباشرة من الملفات التي أعمل عليها حاليا بعد تفريغ البيانات الخاصة بمؤسستنا... أخوك بن علية Bulletins_2016.rar

السلام عليكم ورحمة الله أخي الكريم كمال، لا داعي لهذه التعديلات لأنها موجودة أصلا... بالنسبة لأعمدة "الأعمال التطبيقية" للمواد تجدها مخفية لبعض المواد ويكفي استظهارها... بالنسبة لورقة "تقرير المجلس" رقم الفصل وغيرها تتحكم فيها ورقة "Relevé" أين وضعت زرا أسود مكتوب باللون الأبيض عنونته "Printing" يقوم عند الضغط عليه، بعد تحديد رقم الفصل في الخلية G3 من الشيت، بطباعة كل الأوراق : " Moy_Classes "، "Résultats"، "Relevé"، "تقرير المجلس" لكل قسم "فوج" في المصنف... يوجد رقم في الخلية Q9 الملونة بالأصفر أسفل زر "Printing" (الاختيار بين 1 أو 2) من شيت "Relevé"، الرقم 1 يحدد الجزء الأيمن من الشيت أي "إحصائيات القسم" والرقم 2 يحدد الجزء الأيسر من الشيت أي "كشف نقاط القسم في الفصل" في كل المواد... أرجو أن تكون مفيدة... يمكنك الاتصال بي متى تريد... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، من دواعي سروري أن أقدم ما يمكن أن يفيد... في هذه النسخة تم إضافة مطلوب أخونا رميلي كمال في شيت "Bulletin" أي شيت الكشف... الرجاء تجريب الملف جيدا ربما قد غفلت على بعض الأخطاء... الكلمة السرية للشيتات وVBA تبقى دائما : hb أخوكم بن علية Bulletins_2016.rar

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

السلام عليكم ورحمة الله لست أدري إن كنت قد فهمت المطلوب جيدا، هذه محاولة في الملف المرفق... بن علية Test Data.rar

السلام عليكم ورحمة الله أخي الكريم، أعتقد جزما أن المشكل هو في الكود التالي: Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" ThisWorkbook.Save End If On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 End Sub قم بحذفه (أو إلغائه) وبإذن الله سيعمل كود الغلق الآلي جيدا... أخوك بن علية

وعليكم السلام ورحمة الله في الحقيقة لا يمكن الجزم بمعرفة سبب هذه الرسالة ولأجل ذلك يجب رفع الملف الذي به الخطأ حتى يتضح الأمر أكثر... وعليك بالصبر يمكنك الاطلاع على المساعدة بالرابط التالي: http://support.microsoft.com/kb/928976/ar بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، أعتذر للتأخر في الرد لأني في العادة لا أعود إلى الموضوع الذي أعتقد أني قدمت فيه المساعدة المطلوبة هذا من جهة ومن جهة أخرى تجدني دائما مشغولا في أعمال المؤسسة، المهم أقدم لك بعض الشرح فيما يخص الملف المرفق، بالنسبة للعمود الإضافي (الملون بالأخضر) وضعت فيه معادلة تسمح بوصل Concatenate اسم الشيت الذي يحوي رقم ID من العمود B من بين الشيتات الأربعة (المراد البحث فيها) مع اسم النطاق B:Z لتكوين نطاق البحث للدالة VLOOKUP لمعادلات الأعمدة الأخرى الموالية فمثلا إذا كانت النتيجة الادارية!B:Z فهذا يعني أن نطاق البحث للدالة هو النطاق B:Z من شيت "الادارية"... بالنسبة لأرقام الصف الثاني فهي تمثل أرقام الأعمدة المطلوبة قيمها من نطاق البحث مثلا في النطاق الادارية!B:Z يمثل الرقم 2 العمود الثاني من هذا النطاق أي هو العمود C... وقد وضعت هذه الأرقام في الصف الأول حتى يتم كتابة معادلة واحدة في الخلية D3 بالدالة VLOOKUP مع تحديد رقم العمود بالخلية D$1 (رقم الصف الأول ثابت) ثم سحب سحب الخلية إلى اليسار ثم الأسفل ورقم العمود من نطاق البحث تحدده تلقائيا قيم الصف الأول الثابت في كل المعادلات بالجدول... والله أعلم لا أستطيع الشرح أكثر... أخوك بن علية

هناك خطأ في الملف المرفق الذي لا يمكن تحميله... عليك رفع الملف من جديد...

السلام عليكم ورحمة الله جرب المرفق... بن علية Book1_10.rar

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

السلام عليكم ورحمة الله جرب المرفق لعلك تجد فيه المطلوب... بن علية Book1.rar

السلام عليكم ورحمة الله أو يمكن استعمال المعادلة التالية: =IFERROR(CHOOSE(INT($D2/100),"CEN","WST","EST","NOR"),"SOT") أو =IFERROR(INDEX({"CEN","WST","EST","NOR"},ENT(D2/100)),"SOT") بن علية

السلام عليكم ورحمة الله جرب ما يلي : lc = Range("IV2").End(xlToLeft).Column Set Rng = Range(Cells(2, 2), Cells(25, lc)) ActiveSheet.PageSetup.PrintArea = Rng.Address أو lc = Range("IV2").End(xlToLeft).Column ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(25, lc)).Address

السلام عليكم ورحمة الله أعتقد أن الارتباطات المطلوب تحديثها تستدعي بيانات من ملفات مغلقة... ليس لي فكرة أخرى دون ملف يحوي هذا الخلل... بن علية

السلام عليكم ورحمة الله في هذه الحالة يكمن الحل (على ما أعتقد) إلى تنصيب طابعة تقبل هذا الحجم في جهازك مع اختيارها كطابعة افتراضية لأجل إمكانية معاينة الصفحة في جهازك بالحجم المطلوب... يمكن أيضا استعمال خاصية تحجيم الورقة من تنسيق A4 (التي تقبلها الطابعات) حسب النسبة المناسبة (التي تسمح الانتقال من تنسيق 900*400 إلى تنسيق A4) ثم عند الطباعة في مكان آخر نقوم باختيار تنسيق الورقة 900*400 مع عكس النسبة السابقة للانتقال من التنسيق A4 إلى التنسييق 900*400... والله أعلى واعلم بن علية

السلام عليكم ورحمة الله حل آخر باستعمال الدوال INDEX و SUMPRODUCT و ROW في الملف المرفق.... بن علية معادلة بحث.rar

السلام عليكم ورحمة الله معذرة... تم تعديل المعادلات لتصحيح الخطأ... بن علية خلاصة بمشتريات الزبون - جمع تلقائي.rar

السلام عليكم ورحمة الله تعديل على بعض المعادلات.... بن علية خلاصة بمشتريات الزبون - جمع تلقائي.rar