بن علية حاجي

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم وأستسمح أخي العزيز رجب لأقوم بتغيير طفيف على كوده حسب المطلوب الجديد... في الكود الخاص بطباعة المحدد عليك تغيير السطر For I = Range("E1") To Range("F1") بالسطر For I = Range("E1") To Range("F1") Step 2 والله أعلم

السلام عليكم ورحمة الله أخي الكريم يوسف، عليك وحشة اشتقنا إليك كثيرا ربما كنت أنا الغائب... بالنسبة للمطلوب وحسب ما فهمت إليك بالحل التالي في الملف المرفق وأرجو أني وفقت فيه... أخوك بن علية Market Data.rar

السلام عليكم ورحمة الله أخي الكريم فضل، بفضل الله ثم بمعادلة بسيطة تم المطلوب... لا تنسونا بدعائكم الصالح، ولا تنسو الدعاء لابنتي في ظاهر الغيب... أخوك بن علية توزيع المواد تحت اسماء اعمدتها.rar

السلام عليكم ورحمة الله أخي الكريم، إن خطأ الكود في عدم إيجاد الصورة وارد جدا لأن عند كل إدراج لصورة في ملف يتغير اسم الصورة وفي الكود اسم الصورة ثابت "Picture 23" وهذا سبب الخطأ... وأقترح تغيير السطر التالي في الكود: ActiveSheet.Shapes.Range(Array("Picture 23")).Select بالسطر (مع الحذر أنه يقوم بتحديد كل الصور والمربعات) ActiveSheet.DrawingObjects.Select والخلل في بطء تنفيذ الكود راجع (حسب رأيي) إلى أمر الطباعة ذاته المتمثل في السطر : Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False ولما استبدل بالأمر : ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True كان تنفيذ الكود أسرع... والله أعلى وأعلم

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

السلام عليكم ورحمة الله أخي الكريم، تم إنشاء تسمية نطاق Range بوساطة المعادلة التالية: =OFFSET('الاصـــــناف '!$A$1:$G$1;;;MAX('الاصـــــناف '!$A:$A)+3) ثم إنشاء الكود البسيط التالي وربطه بالزر Print المرفق بالورقة: Sub Printing() [Range].PrintOut Copies:=1, Collate:=True End Sub أرجو أن يكون المطلوب... وأطلب منكم الدعاء لابنتي بالشفاء... أخوكم بن علية مطلوب كود طباعة.rar

السلام عليكم ورحمة الله أخي الكريم أبو حنين أشكرك كثيرا على الكود الجميل لحل المطلوب غير أن السطرين : If Target.Column = 11 Then و End If غير ضروريان في الكود، والكود يكون مختصرا كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 11 Then Exit Sub Range("A7:L1000").Sort Key1:=Range("K7"), Order1:=xlAscending End Sub هذه مجرد ملاحظة والكود جميل جدا... أخوك بن علية

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

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

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

السلام عليكم ورحمة الله * أكتب أو قل "إنا لله وإنا إليه راجعون" ولا تكتب أو تقول إن لله وإن إليه راجعون * أكتب إن شاء الله ولا تكتب إنشاء الله والله أعلم

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

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

السلام عليكم ورحمة الله إخواني الكرام، قمت فيما مضى بإعداد ملف خاص بالبكالوريا وسبق أن وضعته في المنتدى... وحسب المستجدات تم إعداد ملف خاص بمراكز امتحان البكالوريا للأحرار (15 مترشح على الأكثر).... وأضع بين أيديكم هذا الملف راجيا أن أجد عندكم الوقت لتجريته وتحديد أخطائه ونقائصه لأتمكن من تصحيحها وتعديلها ليعمل الملف بصفة صحيحة وملاحظاتكم ستساعدني في مشروعي الجديد لتحضير ملف عام لجميع الحالات في وسائط متعددة (وقد باشرت العمل عليه)... في انتظار ملاحظاتكم تقبلوا تحياتي الخالصة... ملاحظات: 1- لمن أراد التغيير في أوراق الملف المحمية بكلمة السر الوحيدة hb 2- ورقة البيانات Base تملأ بصفة عادية وأرقام التسلسل والقاعات (الأعمدة الملونة بالأخضر) تملأ تلقائيا (بالمعادلات) 3- بالنسبة للقاعات التي تحوي أقل من 15 مترشح يتم كتابة اسم الشعبة بشكل آخر (إضافة فراغ مثلا) مثال : شعبة "آداب وفلسفة" نكتبها "آداب و فلسفة" (تم إضافة مسافة فراغ بين حرف "و" وكلمة "فلسفة") وهكذا... أخوكم بن علية Listes_BAC_15.rar

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

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

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

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

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

السلام عليكم ورحمة الله إخواني الكرام، المعادلة : =subtotal(9,range) تقوم بجمع الكل (كما ذكر أخي الكريم دغيدي) ويمكن أن تجمع الظاهر فقط من التصفية (الفلترة) أما المعادلة : =subtotal(109,range) فهي تجمع الظاهر (من الفلترة أو الإخفاء -إخفاء الصفوف أو الأعمدة-) والله أعلم

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر باستعمال الدالتين INDEX و MATCH ويبقى أن تكون أسماء البيانات المطلوبة مطابقة لأسماء عناوين أعمدة الورقة 1 (وقد قمت بتغيير بعض هذه الأسماء)... أخوك بن علية النموذج.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، أبدل معادلتك بالمعادلة التالية: =IF((C2*0.003)<25;25;IF((C2*0.003)>2500;2500;C2-INT(C2*0.997))) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، الخلل في الكود يكمن في السطر With Sheets("Feuil1") الأوراق في ملفك تم تسميتها Sheet1 وغيرها عليك تبديل كلمة Feuil1 في الكود باسم الشيت الذي تريد تطبيق الكود عليه... أخوك بن علية