بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم عبد الله، لم أقم بإخفاء التعليقات من العمود A وإنما قمت بتغيير مكان إدراجها بالعمود U (تم الترميز لمكانها في الأكواد بالحرف U أو بالرقم 21)... وفي الملف المرفق تجد تعديلا آخر على الأكواد حيث تم الاستغناء عن التعليقات في العمود U وتعويضها في العمود نفسه بالأرقام التسلسلية المناسبة لكل قسم يتم استدعاؤه مع تلوين هذه الأرقام بالأبيض (لإخفائها)... أرجو أن يروقك هذا التعديل... المرفق المعدل : GESTION DES NOTE MOYEN_6.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، بالنسبة لمعادلة التسمية Nom تجدها في قائمة Formula ثم Name Manager (ومعذرة على الترجمة لأني أعمل على نسخة إكسيل بالفرنسية)... فيما يخص عمل الكود تلقائيا فهذا بسيط وقد تم إضافة الكود التالي إلى حدث ThisWorkbook : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Range("J4:J40")) Is Nothing Then SORT End Sub أرجو أن يكون المطلوب... أخوك بن علية المرفق : Book1.rar

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

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم التعديل على الملف والكود بما يوافق المطلوب باستعمال تسمية Nom بمعادلة بوساطة الدالة GET.CELL تقوم تلقائيا بتحديد اسم الشيت المحدد Activated. يبقى فقط تعديل الكود بتحديد النطاق المراد فرزه حسب العمود K... أرجو أن يكون هذا المطلوب... ملاحظة: في ملفك لم تقم بكتابة الاسم الصحيح للشيت في الخلية A1... مثال : الشيت المسمى "Sheet1" كتبت في خليته A1 الاسم "الادارية"... أخوك بن علية المرفق: Book1.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، رجاء ضع الملف المعني بالمرفقات لمحاولة حل هذه المشكلة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عبدالله-بلال، معذرة على هذا الخلل، لم ألاحظ أن كود الترحيل في دفتر الأستاذ يعتمد على هذه التعليقات (لذا فهو من الضروري تركها)... غير أني حولتها إلى العمود U (العمود رقم 21) وقد تم تعديل الكودين (الاستدعاء والترحيل) بما يناسب هذا التغيير.. أرجو أن لا يسبب المكان الجديد لهذه التعليقات أي مشكل... أخوك بن علية المرفق : GESTION DES NOTE MOYEN_6.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، كحل أول يمكن استبدال العبارة "1" في الكود (ثلاث مواضع) بإحدى العبارات التالية : [A1] أو ("Range("A1 أو (Cells(1,1 مع وضع في كل خلية A1 من كل شيت اسم الشيت المعني (يمكن اختيار خلية أخرى غير A1 أو حتى اسم الشيت بالـ تسمية) كما فعلت في الكود (المعدل التالي) : Sub SORT() ActiveWorkbook.Worksheets([A1]).SORT.SortFields.Clear ActiveWorkbook.Worksheets([A1]).SORT.SortFields.Add Key:=Range("K5:K40" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets([A1]).SORT .SetRange Range("B4:K40") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A2:J2").Select End Sub مع ملاحظة أن هذا الكود معمول أن يشتغل مع نسخ إكسيل المتقدمة (2007 أو 2010 أو 2013)... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عبد الله-بلال، تم عمل المطلوب (أتمنى ذلك) في موضوعك الذي كتبته حول السؤال نفسه http://www.officena.net/ib/index.php?s=94b84746f52e6258021b075fcae1906b&showtopic=50689 أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عبد الله-بلال، تم تعديل الكود لإلغاء Comments من العمود A بعد استدعاء قائمة القسم... أرجو أن يكون المطلوب... عمليا تم إلغاء السطرين التاليين من كود "استدعاء القسم" Rappel_Eleve : ' .AddComment ' .Comment.Text Text:="" & R أخوك بن علية المرفق : GESTION DES NOTE MOYEN_6.rar

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

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

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

السلام عليكم ورحمة الله أخي الكريم عبد السلام، تم عمل نصف المطلوب بإدراج دالة مستحدثة سميتها Concat_Days بخمسة وسائط، أرجو أن تروق لك... يبقى المطلوب الآخر فيما يخص كود الترحيل (باعتبار أن الكود الأول أخذ الوقت الكبير مع التجربة والتعديلات)، وسأحاول النظر فيه لاحقا بإذن الله... أخوك بن علية الملف المرفق (بنسخة إكسيل 2003) : التحكم في الغياب.rar

السلام عليكم ورحمة الله أخي الكريم عبد السلام، اطلعت على الملف من أول يوم وضعته فيه وقد فهمت جيدا ما هو مطلوب غير أني لم أستطع العمل عليه باعتبار أني مشغول قليلا بالثانوية ثم إن الإجابة عليه لا يمكن القيام بها باستعمال المعادلات بل يجب استعمال الأكواد لتسهيل عملية البحث عن أيام (الغياب-الخصم-التعويض) ثم كتابتها بالشكل المطلوب مثلا (10-12-20-23) في كل الحالات (الغياب-الخصم-التعويض)... وإن شاء الله سأحاول لاحقا في الملف إن لم تكن عليه إجابة من طرف أعضاء آخرين... ومعذرة على عدم الإفادة في هذا الوقت... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر في ورقة واحدة "تقرير" نختار اسم الموزع من القائمة المنسدلة في الخلية I3 ثم اختيار السنة ورقم الشهر في الخليتين I4 و I5 لاستخراج تقرير حسب اسم الموزع والسنة ورقم الشهر (الملف ثقيل بعض الشيء لسبب عدد البيانات -كثرة المعادلات والتنسيقات- يمكن تسريعه باستعمال الأكواد)... أرجو أن يكون فيه المطلوب... أخوك بن علية المرفق: Z.hben.rar

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

السلام عليكم ورحمة الله أخي الكريم، النطاقات كانت ديناميكية حسب العمود A في كل شيت (المعادلة الموضوعة في الخلية M3)، وقد تم التعديل على معادلة التسمية "قائمة" ليتم تمديد أو تقليص النطاقات حسب عمود الاسم (العمود B) في كل شيت... أخوك بن علية المرفق : hrgfskgjr.rar

السلام عليكم ورحمة الله أخي الكريم، تم حل مشكلة النطاقات الديناميكية للتسميات س1، س2، س3، س4، س5، قائمة بتعديلات على معادلات هذه التسميات... غير أن التسميات الأخرى app1 إلى app5 تبقى تسميات لنطاقات ثابتة... وفي الملف الذي أرفقته بالأعلى تم الاستغناء عن التسميات المتعددة بثلاث تسميات فقط كبديل لكل النطاقات الديناميكية المستعملة في الملف والظاهر أنها لم تعجبك!!!... المهم في الملف المرفق تجد التعديلات التي طلبتها (وتم إرفاق الملف نفسه في الموضوع الآخر)... ولم يكن هناك داع لفتح موضوع جديد... أخوك بن علية المرفق : atallah11.rar

السلام عليكم ورحمة الله أخي الكريم، تم حل مشكلة النطاقات الديناميكية للتسميات س1، س2، س3، س4، س5، قائمة بتعديلات على معادلات هذه التسميات... غير أن التسميات الأخرى app1 إلى app5 تبقى تسميات لنطاقات ثابتة... وفي الملف الذي أرفقته لك في الموضوع الآخر تم الاستغناء عن التسميات المتعددة بثلاث تسميات فقط كبديل لكل النطاقات الديناميكية المستعملة في الملف والظاهر أنها لم تعجبك!!!... المهم في الملف المرفق تجد التعديلات التي طلبتها... أخوك بن علية المرفق : atallah11.rar

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، يمكن حذف قيم الصفر من الخلايا بطريقة من الطرق التالية : الطريقة الأولى : باستعمال المعادلات والدالة الشرطية IF (المعادلة تكون أطول) : انظر الملف المرفق : Book2.rar الطريقة الثانية : استعمال خصائص إكسيل بتعطيل خاصية "عرض قيم الصفر" وقد طبقتها في ملف تنفيذي على نسخة إكسيل 2010 بالفرنسية... الملف التنفيذي : 12.rar أخوك بن علية