بن علية حاجي

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

السلام عليكم كلتا الحالتين (الطريقتين) تحتاج إلى إنشاء التسمية الخاصة بالنطاق المراد طباعته وتسميتها في الملف Plage بالمعادلة التالية (التي يمكن أن تجدها في قائمة التسميات): =OFFSET(تأخير!$B$1:$Q$1;;;MAX(IF(تأخير!$A$1:$A$10000>0;ROW(تأخير!$A$1:$A$10000)))) (يمكن استعمال معادلة أخرى بدوال أخرى وفي المنتدى تجد الكثير من الأمثلة على ذلك) والمرحلة الثانية تكون كما يلي: * الطريقة الأولى: تحديد "ناحية الطباعة" للشيت "تأخير" في التسميات (بعد تعيينها يدويا أو عن طريق إعدادات الصفحة) بتغيير معادلتها بالمعادلة : =Plage * الطريقة الثانية : إدراج الكود التالي (نسخ ولصق): Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub في كود حدث الشيت "تأخير"... وليس لي شرح آخر... بن علية حاجي

السلام عليكم إذا قمت بحفظ الملفات بعد فتحها بواسطة إكسيل 2010 وليس لديك منها نسخ فقد ضاعت كل الأكواد ويجب إعادة إنشائها من جديد... أما إذا كان غير ذلك فيجب فتحها بواسطة إكسيل 2003 في جهاز آخر (أو في جهازك بعد تنصيب إكسيل 2003 فقط من كل مكتبة أوفيس 2003) ثم القيام بتصدير Exportation لكل الماكروات في الملف إلى جهازك (يُستحسن أن تكون في موديول Module واحد)... ثم تفتح هذه الملفات بواسطة إكسيل 2010 واستيراد Importation كل الموديولات الخاصة بهذا الملف... وليس لي فكرة أخرى... بن علية حاجي

السلام عليكم تم إنشاء الكود التالي في حدث الشيت "تأخير": Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub وهذا الكود يضمن أن تتحدد ناحية الطباعة آليا بالزيادة والنقصان (حسب قيم العمود A)... كل ذلك في الملف المرفق... بن علية حاجي برنامج ايجار.xlsm

السلام عليكم إذا قمت بتعيين ناحية الطباعة للورقة يدويا (في إعدادت الصفحة مثلا) فقد ألغيت عملية تحديد ناحية الطباعة آليا؟ ألق نظرة في التسميات وخاصة في ناحية الطباعة لشيت "تأخير" تجد أني حددته بالمعادلة Plage= ويمكن أن نحددها آليا بواسطة كود VBA في حدث هذا الشيت باستعمال دائما التسمية Plage فهذا يكون آمنا... التسمية Plage مرتبطة بقيم العمود A (من الصف 1 إلى رقم صف آخر خلية غير خالية من العمود A)... لقد أعدت ربط التسمية Plage بناحية الطباعة لشيت "تأخير" في ملفك الأخير الذي أرفقته... بن علية حاجي برنامج ايجار (1).xlsm

السلام عليكم استعمل لذلك الدالة OFFSET -مثلا- (أو DECALER بالفرنسية) في معادلة نطاق الطباعة... وفي الموقع تجد الكثير من الأمثلة على ذلك... بن علية حاجي جرب المرفق لعل فيه ما تريد.... تم تسمية نطاق البيانات في ورقة "تأخير" بالتسمية Plage ثم إرفاق هذه التسمية بنطاق الطباعة لهذا الشيت.... بن علية حاجي برنامج ايجار.xlsm

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

السلام عليكم يكفي إضافة شرط وجود "القسم" في الجدول حسب المادة كما فعلت في الملف المرفق... بن علية حاجي 22.xlsx

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

السلام عليكم جرب ما يلي : ElseIf Marks = "V" And sw.Cells(x, 6).Value > TimeValue("8:00:00 AM") Then sw.Cells(x, 9).Value = " حضور متأخر" بن علية حاجي

السلام عليكم إذا كنت تريد التعديل على هذه الملاحظات فما عليك إلا مسح التي تريد وتستبدل بجديد في العمود DA من الخلية DA7 إلى الخلية DA58، فقط يجب الالتزام بعدد الصفوف في فصل : الفصل الأول من 7 إلى 30 والفصل الثاني من 31 إلى 44 والفصل الثالث من 45 إلى 58 (تعمل ذلك في شيت وتنسخ في الشيتات الأخرى)... والله أعلم بن علية حاجي السلام عليكم أنبه أنه يمكن التعديل على الملاحظات في ورقة إضافية (بعد أن ننسخ فيها الملاحظات الموجودة حاليا في العمود DA) ثم نقوم بلصقها كقيم في العمود DA بداية من الخلية DA7 (حتى دون إظهار هذا العمود -نتركه مخفيا-)... ويمكن أيضا إضافة ملاحظات جديدة في العمود DB -مثلا- خاصة بعمود "إرشادات للتحسن" مع تعديل طفيف على الأكواد ليجلب قوائم الملاحظات الخاصة بكل عمود... هذا كله دون المساس بتنسيق الملف الأصلي ماعدا في إضافة ورقة جديدة للملاحظات والتعديل الطفيف على الكود الذي ذكرته... بن علية حاجي

السلام عليكم كنت أعمل على الملف حيث أني لاحظت أن الملاحظات في كل ورقة (شيت) حسب كل فصل (ثلاثي) يتم جلبها من العمود DA (الذي كان مخفيا وتم إظهاره) والكود خاصته تجده في حدث ThisWorkbook (كود النقر المزدوج)... (لم أتصرف في الكود).. بن علية حاجي عبد اللاوي فصل 1.rar

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

السلام عليكم تفضل ما تريد في الملف المرفق... بن علية حاجي صفحة 1 (1).xlsx

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... تم إضافة عمود "الجنس" (للضرورة) وجداول الملاحظات والإرشادات (يمكن تخصيصها حسب الأستاذ) حسب الجنس مع المعادلات المناسبة لإدراج ما تريده حسب معدل التلميذ... ليس لي فكرة أخرى... وجمعة مباركة. بن علية حاجي example12.xls

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

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

السلام عليكم بالفكرة نفسها، هذا حل آخر... hb_test 1.xlsx

السلام عليكم ماذا تقصد بـ "الهيدر"؟ هل هي القيمة الأكبر؟ السؤال غير واضح...

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

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

السلام عليكم النسبة 51% هي الصحيحة (في الأصل النسبة هي بالتقريب 51.35%) ... لانها تمثل نسبة المبالغ المنجزة إلى المبلغ الاجمالي لكل الاعمال...

السلام عليكم راجع الملف المرفق لعل فيه ما تريد... بن علية حاجي نسبة إجمالية.xlsx

نسبة (بتحفظ).xlsx

السلام عليكم حل آخر باستعمال أعمدة إضافية... بن علية حاجي قائمة منسدلة 2مطاطية.xlsx