بن علية حاجي

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

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

السلام عليكم ورحمة الله تمت بعض التعديلات والتنسيقات في الملف مع إضافة جداول مساعدة بمعادلات لتلبية المطلوب (أو بعضه)... الإشكالية الوحيدة التي لم أجد لها حلا هو إدراج القاعات والأقسام المختلفة لأي حارس في الفترة نفسها (مثال : في الفترة الصباحية ليوم الأحد الحارس 07 يحرس القسم 1م4 في القاعة7 من 08:00 - 10:00 ويحرس القسم نفسه في القاعة6 من 10:00-12:00 وفي جدول حضور الحراس ظهرت فقط القاعة7 في الفترة الصباحية)... ليس لي فكرة أخرى... بن علية حاجي حراسة.rar

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

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

السلام عليكم أضف الأمر التالي في السطر الثاني (قبل الشرط IF) في الكود : Dim Sh As Worksheet أرجو أن يفي هذا التعديل الغرض المطلوب... بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم أبو أحمد، سأحاول قدر الإمكان شرح هذه الجزئية من المعادلة: * بالنسبة لـ IF الأولى فهي الدالة الشرطية للمعادلة ككل إذا تحقق شرطها (وهو الجزئية المطلوب شرحها) أي لما تكون نسبة قيمة التحريري في العمود I على قيمة الخلية I2 أقل تماما من 30% يكون التقدير "ضعيف" وإذا كانت هذه النسبة أكبر من أو تساوي 30% يكون التقدير حسب الجدول المساعد (بالطريقة المباشرة أو بالطريقة غير المباشرة)... * بالنسبة لـ IF الثانية فهي دالة شرطية لـ IF الأولى (شرطها) وهي الجزئية المطلوب شرحها فهي ببساطة لمقارنة نسبة قيمة التحريري في الخلية من العمود I على قيمة الخلية I2 مع النسبة 30% (أي القيمة 0.3) غير أن القيم في العمود I يمكن أن تحوي نصا (صفر - غ) لهذا جعلتها دالة شرطية تختبر إن كان القيمة في العمود نصا تستبدله بالعدد 0 وإن كانت عددا تأخذ القيمة من الخلية ثم تقسم ناتجها (0 أو قيمة) على قيمة الخلية I2 الثابتة بالرمز $ لتحسب النسبة المطلوب مقارنتها بالعدد 0.3 (النسبة 30%)... لست أدري إن كنت قد وصّلت الفكرة؟ أخوك بن علية

السلام عليكم إن تعيين نقاط من مستقيم من مستوي يكون بتعيين معادلة ديكارتية لهذا المستقيم، وهذه المعادلة تتعين بعدة طرق منها (بواسطة نقطة ثابتة ومنحى أو بواسطة نقطتين ثابتتين مختلفتين) -وأقصد بالنقطة الثابتة : النقطة التي عُلمت إحداثياها وعندنا نسميهما الفاصلة والترتيب- * بالنسبة للحالة التي دكرتها في مثالك بالأعلى : النقطة1 معينة بـ (10 - 0) حيث: س = 10 و ص = 0 والنقطة2 معينة بـ (20 - 0) حيث: س = 20 و ص = 0 هذا يعني أن المستقيم أفقي ومعادلته هي : ص = 0 لأن النقطتين لهما الترتيب نفسه... * بالنسبة للرسم فإن النقطتين 1 و 2 لهما فاصليتين وترتيبين مختلفين (وتختارهما من الجدول الذي تم تمثيله بالرسم) فإذا فرضنا أن إحداثيي النقطتين هما : النقطة1(س1 ، ص1) و النقطة2(س2 ، ص2) فإن معادلة المستقيم الذي يشمل هاتين النقطتين (بفرض أن س1 يختلف عن س2) تكتب على الشكل: ص - ص1 = م × (س - س1) حيث: م = (ص2 - ص1) \ (س2 - س1) مثال عددي: إذا كانت النقطة1(3 ، 4) والنقطة2(4 ، 6) فإن: م=(6 - 4)\(4 - 3) أي م=2\1 أي: م = 2 ومعادلة المستقيم هي: ص - 4 = 2×(س - 3) أي : ص - 4 = 2س - 6 أي: ص = 2 س - 2 وإذا كنت تريد النقاط في الرسم التي فوق النقطة2 تقوم بتعويض قيم س في المعادلة تكون أكبر من س2 ثم تحصل على قيم ص المقابلة لها (لقيم س)... * ملاحظة: إذا كانت النقطتان 1 و 2 لهما الفاصلة نفسها أي : س1 = س2 فإن المستقيم يكون عموديا ومعادلته تكون : س = س1 أو س = س2 وليس لي إجابة أخرى... بن علية حاجي

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

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

السلام عليكم تم تعديل طفيف على الكود لتجنب الخلل الذي ذكرته... بن علية حاجي تظليل ما تبحث عنه في اكسل.rar

السلام عليكم ورحمة الله أخي الكريم أبو أحمد، وصلت (دون تشديد الصاد) المعلومة جيدا وتم التعديل يبقى الحالتين (صفر - غ) لم تذكر عليهما الشروط فوضعتهما في الملف 0 (القيمة صفر)... أخوك بن علية حاجي عجائب وغرائب ومميزات الداله 2VLOOKUP.rar

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

السلام عليكم ورحمة الله هذا الخلل لأن تنسيق الخلية هو "تنسيق نص" قم بتغيير هذا التنسيق ثم أعد تأكيد الارتباطات بن علية حاجي

السلام عليكم ورحمة الله الملف الذي أرفقته يتعلق بالدالة VLOOKUP (غرائب-عجائب-مميزات) ولا علاقة له بعلامات طلبة والمعادلات التي ذكرتها بالأعلى غير موجودة في الملف (غير الدالة VLOOKUP)... بن علية حاجي

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

السلام عليكم ألق نظرة على الملف المرفق لعل فيه ما تريد... بن علية إدراج رموز في قائمة منسدلة.rar

السلام عليكم ورحمة الله أخي الكريم أعتقد أن الأمر يتعلق بـ "ناحية الطباعة" (أرجو أن لا أكون مخطئا)... عليك بتحديد كل الخلايا التي تريدها أن تظهر غير مظللة (باستعمال الماوس أو غيرها) ثم تفتح "تخطيط الصفحة" ثم تختار "ناحية الطباعة" ثم "تحديد"... وإن شاء الله يكون ما تريد... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم ناصر سعيد، اعتقدت أني قدمت حلا للمسألة ولكني أدركت أن الحل ناقص لأني لم أعدّل في أوامر الطباعة في الكود وأقصد التعديل في الجزئية التالية من الكود: ' If i = lr And c = 4 Then SHEHADA.Range("a1:p63").PrintOut: Exit For If i = lr And c = 3 Then SHEHADA.Range("a1:p47").PrintOut: Exit For If i = lr And c = 2 Then SHEHADA.Range("a1:p31").PrintOut: Exit For If i = lr And c = 1 Then SHEHADA.Range("a1:p15").PrintOut: Exit For If i < lr And (Range("M19") = "" Or Range("M35") = "" Or SHEHADA.Range("M51") = "") Then GoTo 1 If i < lr And c = 3 Then SHEHADA.Range("a1:p47").PrintOut وقد تم التعديل على الكود ببعض الإضافة والتغيير في بعض الأوامر، وتجد هذه الإضافات أو هذه التغييرات في الأوامر بين سطرين من الشكل: '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! بالنسبة للتعديل على الشيتات فربما تلاحظ أني أضفت في الخلية W8 قائمة منسدلة من كلمتين "الكل" و "محددة" تستمد عناصرها من النطاق Y1:Y2 وهذا لاختيار طباعة كل الشهادات (عند اختيار "الكل") أو طباعة شهادات محددة من...إلى (عند اختيار "محددة") وأضفت أيضا معادلة في الخلية W7 تعطي ترتيب الكلمة التي نختارها في الخلية W8 من القائمة المنسدلة (ونتائج المعادلة هي: 1 لكلمة "الكل" و 2 لكلمة "محددة") وهذه القيمة هي الشرط أضفته في الكود للحلقة FOR....NEXT... أرجو أني نجحت في تقديم بعض التوضيح... أخوك بن علية البحث عن الشهادات في مدى معين_1.rar

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

السلام عليكم ورحمة الله يمكن (هذا حل من الحلول) استبدال في الخلية B2 المعادلة: =ورقة2!B2 بالمعادلة: =IF(ROW($A1)<=MAX(ورقة1!$A:$A);ورقة1!B2;"") ثم سحب المعادلة إلى الخلية C2 ثم إلى الأسفل... بن علية

السلام عليكم ورحمة الله تم تعديل كل معادلات الشيتات الأربعة في الخلية V1 باستبدال المعادلة COUNTA(B:B)-1= بالممعادلة (MATCH(9^9;A:A;1= التي تحدد آخر صف في كل شيت اعتمادا على العمود A ثم تم أيض حذف 6+ و 7+ الموجودة في أكواد الطباعة الأربعة في تحديد النطاقات Rng1 و Rng2 في هذه الأكواد لتحديد نطاقات التصفية (وبالتالي نواحي الطباعة)... والشرح الذي طلبته أوافيك به الآن: - بالنسبة للمعادلة الثانية (المستبدلة بالدالة MATCH) فقد شرحتها بالأعلى (تحدد آخر صف في العمود A) - أم المعادلة الأولى (مثلا من الكود Print_1) التي كانت: Set Rng1 = Range("A1").Resize(Range("V1") + 7, 16) والتي أصبحت : Set Rng1 = Range("A1").Resize(Range("V1"), 16) هي لتحديد (لتعريف) النطاق Rng1 الذي يبدأ من الصف 1 والعمود A (الخلية A1) ويمتد إلى رقم الصف الذي تحدده معادلة الخلية V1 من الشيت وإلى العمود رقم 16 (أي العمود P)... وهذا النطاق هو نطاق "ناحية الطباعة" في الكود... وليس لي شرح آخر.... أخوكم بن علية اعمال السنة 2018 -والأنشطة.rar

السلام عليكم ورحمة الله حسب علمي هذه تسمى ListView وهي إحدى أدوات VBA مثل ListBox أو ComboBox وغيرها... بن علية حاجي

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