بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم محمد، في الحقيقة إنك لا تزعجني البتة وتجدني أتعلم أكثر من كل سؤال ومن كل طلب.... هذه المرة طلبك لم يكن صعبا فقد قمت بتبديل سطر واحد في كلا الكودين "الترحيل" و"الاستدعاء" الخاصة بدفتر الأستاذ الذي هو : Set MyRange = Range("base_t1") وتم استبداله بالسطر: Set MyRange = Range("Base_T" & Range("V1")) وتم أيضا تم إضافة معدلة في الخلية V1 من ورقة "دفتر الأستاذ" لتحديد رقم الفصل الذي يحتاجه هذا السطر في الكودين... الكل تجده في الملف المرفق... أخوك بن علية GESTION DES NOTE MOYEN_4.rar

السلام عليكم ورحمة الله أخي الكريم محمد، لا أرى أي مشكلة في أن تكون بيانات كل فصل في ورقة مستقلة غير أنه تم تلبية طلبك مع بعض التغييرات على ورقة بيانات الفصول بجعل بيانات كل فصل في أعمدة متجاورة (وباعتبار أن عدد أعمدة هذه البيانات يفوق 256 عمود تم تحويل الملف إلى نسخة أوفيس 2007 أو أعلى) يمكن أيضا أن نضع بيانات هذه تحت بعض حسب الصفوف ولكن نضطر إلى نسخ بيانات الطلبة في جدول كل فصل... وتم أيضا تعديلات على الكودين أولا ليتم إخفاء أعمدة الفصول غير المختارة في ورقة الكشف ويتم أيضا التحويل والاستدعاء بين ورقتي "كشف النقاط" و"البيانات" بشكل صحيح حسب الفصول... وتم أيضا إنشاء كود للطباعة المتواصلة وربطه مع كود "الاستدعاء" غير أنه حُذفت رسالة "تأكيد الاستدعاء" حتى لا تظهر كل مرة في الطباعة عند التغيير من طالب لآخر... ويمكن استعمال كود "الطباعة المتواصلة" للطباعة الفردية (غير ضروي)... أرجو أن يكون هذا العمل مقبولا ومستوفيا المطلوب (مع أني أنتظر منك دائما مطلوبا جديدا)... أخوك بن علية Gestion des Notes MOYEN_3.rar

السلام عليكم ورحمة الله أخي الكريم محمد، عمل الفصلين الثاني والثالث يكون صورة طبق الأصل (أقصد الجدول والبيانات والتنسيقات) للفصل الأول، ويمكن وضع ورقة واحدة لكشف النقاط لكل الفصول بتعديلات طفيفة على الورقات (ورقات المصنف) وعلى الأكواد، وقد تم ذلك حسب ما يلي: 1- إضافة ورقتي الفصلين الثاني والثالث وتسميات نطاقي معلوماتهما بالاسمين Base_T2 و Base_T3 على الترتيب حسب تسمية نطاق بيانات ورقة الفصل الأول. 2- إضافة قائمة منسدلة في الخلية N6 من ورقة كشف النقاط لاختيار الفصل 3- إضافة معادلة في الخلية V1 من ورقة كشف النقاط لتحديد رقم الفصل حسب القائمة المنسدلة في N6 (وسنحتاج قيمة V1 في الكودين) 4- تم تبديل السطر Set MyR = Range("base_T1") بالسطر Set MyR = Range("base_T" & Range("V1")) في الكودين وذلك لاختيار نطاق الفصل (بالتسمية) حسب الرقم في الموجود في الخلية V1 كيفية عمل الملف: يتم اختيبار الفصل من القائمة المنسدلة في الخلية N6 ثم تنفيذ الكود الذي تريد في ورقة "كشف النقاط" الكل تجده في الملف المرفق، ويبقى إضافة "المعدل السنوي للفصول" في ورقة الفصل الثالث وفي ورقة كشف النقاط... ويبقى أيضا أكواد الطباعة (وربطها بكود "الاستدعاء").... أخوك بن علية Gestion des Notes MOYEN_3.rar

السلام عليكم ورحمة الله أخي الكريم محمد، تم التعديل على الكودين بما يناسب المطلوب مع الاستغناء عن النطاقات المسماة Cel1 و Cel2 (تم حذفهما من الملف) والتغييرات التي وضعتها (حتى تعرف مستوى التغييرات في الأكواد) تجدها بين سطرين من الشكل : '*************************************************************************************** أرجو أن تفي هذه التغييرات بالمطلوب.... أخوك بن علية Gestion des Notes MOYEN_Bis.rar

السلام عليكم ورحمة الله أخي الكريم محمد، والله اشتقنا إليك كثيرا لغيابك الطويل، المهم أن تكون بخير وعافية... فيما يخص الملف قمت ببعض التعديلات على كود "الاستدعاء" الذي كان فيه الخلل بعد تبديل الأعمدة (الاختبار و م.ت.م) وأضفت أيضا نطاقين بالتسمية في ورقة "معلومات" أحدهما سميته CEL1 للأرقام 1 ، 2 ، 3 ، 5 لتعويض الصيغة في الكود For N = 1 To 4 بالصيغة For Each NNN In [Cel1] والنطاق الآخر سميته CEL2 للأرقام 1 ، 2 ، 4 لتعويض الصيغة في الكود For N = 1 To 3 بالصيغة For Each NNN In [Cel2] مع تغييرات في السطرين المواليين لكل صيغة... أرجو أني وفقت في المطلوب... أخوك بن علية GESTION DES NOTE MOYEN.rar

السلام عليكم ورحمة الله أخي الكريم أبو إسحاق، والله لم أنتبه لهذا الخلل في الملف، وقد تم تصحيح المعادلة في الخلية A2 باستبدال الصيغة (ROW($A1 بالصيغة (COUNTA($A$1:$A1 ثم سحب هذه المعادلة إلى الأسفل... وتم أيضا إضافة تسمية جديدة "nm" (التي تعطي رقم الشهر) بالمعادلة ={1;2;3;4;5;6;7;8;9;10;11;12} والتي تحتاجها الدالة INDEX بدلا من الصيغة (ROW($1:$12 لإرجاع رقم الشهر في التسمية "m"... كل هذا تجده في الملف المرفق... أرجو أني وفقت في الطلب وتصحيح الخلل... أخوك بن علية Month_Days_Bis.rar

السلام عليكم ورحمة الله إخواني الكرام، هذا حل آخر باستعمال التسميات والمعادلات وخاصية التحقق من الصحة Validation .... أخوكم بن علية Month_Days.rar

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

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

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

السلام عليكم ورحمة الله أخي الكريم أبو العقاب، وأستسمح أخواي الكريمين أبو حنين وأبو نصار في إعطاء حل آخر وهو في الحقيقة تغيير طفيف في كود أخي أبو حنين (وألتمس العذر منه كثيرا) والكود يكون كما يلي: Private Sub CommandButton1_Click() For R = 1 To Sheets.Count - 1 LR = Sheets(R).Cells(65000, "A").End(xlUp).Row If Sheets(R).Range("A" & LR) = "المجموع" Then Sheets(R).Range("A" & LR).EntireRow.Clear LR = Sheets(R).Cells(Rows.Count, "B").End(xlUp).Row Sheets(R).Range("A" & LR + 1) = "المجموع" Sheets(R).Range("B" & LR + 1) = Application.WorksheetFunction.Sum(Sheets(R).Range("B1:B" & LR)) Next End Sub وتجد تطبيقا له في الملف المرفق... أخوكم بن علية Book3.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، اعذرني لم ألاحظ رسالتك إلا الآن لأني كنت مشغولا جدا في بعض التصليحات وفور دخولي النت وجدت الرسالة ووجدت المطلوب وإجابته قد اهتديتَ إليها بنفسك وهو استعمال الدالة OFFSET مع دالة MATCH والمعادلة تكون في الخلية D95 كما يلي (أرجو أن يكون هذا المطلوب حسب فهمي): =-SUM(OFFSET('Detailed Trial Balance'!$A$18:$A$34;;MATCH(D$2;'Detailed Trial Balance'!$2:$2;0)-1;;)) وقد وضعتها في الملف المرفق وبطبيعة الحال يتم سحبها إلى اليسار لتعطي المطلوب في الشهور الأخرى... أخوك بن علية Sum values ​​of a specific columns.rar

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

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

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم أبو أنس، المشكل لمسته في موضعين في الكود : * أولا : المعادلات في النطاق Y5:Y10000 وفي النطاق X5:X10000 مرتبطة دائريا (كل عمود له علاقة بالعمود الآخر) وما دمت تستبدل المعادلات بالقيم فستجد حتما مشكلة في المعادلات (مما يستدعي تطبيق الكود عدة مرات حتى تكتمل الحسابات) * ثانيا : ودائما مادامت المعادلات المحجوزة تُستبدل بالقيم فيجب الترتيب في حجزها وأقترح حلين لهذه المعضلة: الحل الأول: أن تقوم بحذف السطور التي تحوي value=.value. والكود يقوم بإدراج كل المعادلات المطلوبة دون استبدالها بالقيم (وأعرف أن هذا لا تريده) الحل الثاني: نقوم بتغيير المعادلات الموجودة في أحد النطاقين المذكورين سابقا حتى تزيل علاقتهما الدائرية ونقوم بترتيب الحسابات (ترتيب إدراج المعادلات واستبدالها بالقيم حسب الأولوية) وهذا وضعته لك في الملف المرفق الذي أرجو أن يفي بالمطلوب... أخوك بن علية تعديل في كود إضافة المعادلات.rar

السلام عليكم ورحمة الله أخي الكريم، إظافة إلى حلي أخوي العزيزين أبو أنس وعبد الله هذا حل آخر بالمعادلات... أخوكم بن علية تسلسل متعدد بالمعادلات.rar