بن علية حاجي

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

السلام عليكم ألق نظرة على الملف المرفق لعل فيه ما تريد... بن علية إدراج رموز في قائمة منسدلة.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 فيه غير محمية.... والله أعلم بن علية حاجي

السلام عليكم هذه إجابة على طلبك حسب ما فهمت... بن علية حاجي معادله اكسيل مهمه جدا.rar

السلام عليكم ورحمة الله أعرف أن الموضوع تم بفضل الله ثم بفضل أخي الكريم حمادة عمر، لكني فضلت أن أشارك بهذا الرد حيث قمت بالتعديل على الكود بتبسيطه باستعمال الحلقات FOR.....NEXT بعد التعديل في الترتيب في مواضع كل التكسات في الفورم (من TextBox4 إلى TextBox29) ثم إضافة كود الترحيل إلى الخلايا في الصف 2 من العمود 1 إلى العمود 26... أرجو أن تكون هذه التعديلات مفيدة... بن علية حاجي فصل حروف الاسم لتكستات بوكس حرف حرف.rar

السلام عليكم ورحمة الله تم حذف التسميتين Liste_1 و Liste_2 وتعديل الأكواد لإنشاء نطاقات ناحية الطباعة لكل الشيتات برمجيا مع تغييرات أخرى لتجنب الخطأ الذي ظهر في الرسالة... إن شاء الله تفي هذه التعديلات الغرض المطلوب.... بن علية حاجي اعمال السنة 2018 -والأنشطة.rar

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق حسب المراحل التالية: 1- تم إضافة المعادلة COUNTA($B:$B)-1= في الخلية V1 في كل الشيتات لحساب العدد الإجمالي للطلبة... 2- إنشاء التسميتين Liste_1 (خاصة بالشيتين الأول والثالث) و Liste_2 (خاصة بالشيتين الثاني والرابع -أنشطة-) لاستعمالهما في تحديد ناحية الطباعة (ديناميكية) لكل هذه الشيتات... معادلات هذه التسميات طويلة قليلا (تم استعمال الدوال INDIRECT ، CELL ، OFFSET في هذه المعادلات)... 3- تم إنشاء 4 أكواد للطباعة: الكودين Print_1 و Print_2 لطباعة الصف المختار في كل شيت، و الكودين PrintFromTo_1 و PrintFromTo_2 لطباعة كل الصفوف في كل شيت (الكودين Print_1 و PrintFromTo_1 استُعملا مع الشيتين الأول والثالث والكودين Print_2 و PrintFromTo_2 استُعملا مع الشيتين الثاني والرابع -أنشطة-)... أرجو أن تفي هده التعديلات الغرض المطلوب... بن علية حاجي اعمال السنة 2018 -والأنشطة.rar

السلام عليكم ورحمة الله وجدت لك معادلة من النت (موقع أجنبي) تقوم بما تريده وقد تم وضعها في الملف المرفق مع ملاحظة تحديد الإحدائيات (خط العرض : العمود B ---- خط الطول : العمود C)... أرجو أن تفي المعادلة الغرض المطلوب... بن علية حاجي الاحداثيات.rar

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

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

السلام عليكم تفضل المطلوب في الملف المرفق... بن علية حاجي new protofolio.rar

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

السلام عليكم ألق نظرة على الملف إن كانت التعديلات على المعادلة يوافق المطلوب والشروط... بن علية new protofolio.rar

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

تم التعديل على المعادلة حسب المطلوب وحسب ما فهمت مع تساؤل... أرجو أن تفي الغرض المطلوب... مرفق الملف new protofolio.rar

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

السلام عليكم ورحمة الله أخي الكريم، أحاول أن أشرح بعض الأمور في الملف: - بالنسبة للقائمة المنسدلة في الخلية m1 فقد تم تبديل مكانها إلى الخلية R2 وقد تم تغيير مرجعها إلى النطاق IH4:IP4 من شيت "الغياب" والتغيير تم في التسمية "الشهور"... - بالنسبة لـ "وجدت أن العنوان لكلمة اخطار غياب تلميذ تغير ليضع اليوم بعد الشهر" : هذه لم أفهمها غير أنه إذا ظهرت في هذا العنوان العبارة (مثلا لشهر سبتمبر 2017 م): "إخطار غياب تلميذ عن شهر سبتمبر aaaa م" فقم بتغيير الجزئية aaaa في المعادلات بالجزئية yyyy... - بالنسبة للعمود IS فقد تم حذفه في المرفق باعتبار أن هذا العمود المساعد أضيف لأجل شيت "المتجاوزون" الذي تم الاستغناء عنه وبالتالي لا ضرورة لهذا العمود... - وبالنسبة للعمود IR المساعد، فقد وُضع لرصد (بالترقيم التسلسلي) للطلاب الذين تجاوز عدد غياباتهم 3 أيام في عمود الغياب (من IH إلى IP من شيت "الغياب") والذي تحدده الدالة OFFSET (في معادلات العمود IR) حسب الشهر الذي تم اختياره في الخلية R2 من شيت "اخطار غياب" (القائمة المنسدلة). أرجو أني وفقت في توضيح الأمور... بن علية حاجي إخطار2.rar

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