بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، باستعمال الدالتين 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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، أقترح الحل التالي (حل أول) في الملف المرفق... أخوك بن علية Attendance Sheet.rar

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

السلام عليكم ورحمة الله أخي الكريم زوهير، الدالة COUNTA بالفرنسية هي NBVAL والدالة OFFSET هي الدالة DECALER بالنسبة لسؤالك الذي يخص القوائم المنسدلة ففي إكسيل (في جميع نسخه إلى 2010) القوائم المنسدلة محدودة بالعدد 32767 ولا يمكن التعديل في هذا الحد (في الحقيقة لم أصادف أن في ملف إكسل يوجد قوائم منسدلة بهذه الأعداد)، لست أدري إن تم التعديل في نسخة إكسيل 2013.... والله أعلم أخوك بن علية

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

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

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

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