بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، حسب ما رأيت من الملف والمعطيات المستعملة لا أرى الخطأ في المعادلة التي قدمها أخي الكريم أحمد وهي تعطي النتيجة المرجوة، والله أعلم.... وثانيا أذكرك أخي خالد أن كلتا المعادلتين المستعملتين هي معادلتي صفيف باعتبار أن دالة SUMPRODUCT هي أصلا دالة صفيف، والفرق الوحيد بين المعادلتين (ربما) هو أن إحداهما يجب تأكيدها بالضغط على CTRL+SHIFT+ENTER والأخرى يكفي تأكيدها بمفتاح ENTER. وما تريده أن يكون الملف خفيفا يرجع إلى عدم الإكثار من عدد معادلات الصفيف على العموم... وأنصح أن تستعمل الأكواد في الحالات الأخرى... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال المعادلة التالية في الخلية AS22 ثم سحبها إلى الأسفل... =IF(SUMPRODUCT(($AZ$21:$BS$21<>0)*($AZ22:$BS22=0));0;SUMPRODUCT(($AZ$21:$BS$21)*($AZ22:$BS22))) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أستسمح أخي الحبيب أحمد للقيام بتعديل طفيف على معادلتي التحقق من الصحة validation للخليتين C1 و E1 حسب المطلوب... أخوك بن علية قائمة منسدلةAZ.rar

السلام علبكم ورحمة الله أخي الكريم أحمد، وددت أن أشاركك الموضوع مع محاولة في الملف المرفق... المواد المضافة (5 مواد ) تم إضافتها في ورقة "رصد النقاط" مرقمة من 1 إلى 5 ويمكن استبدالها بأسماء في الخلايا الملونة بالأزرق وستكتب آليا في الفصول الأخرى وفي القائمة المنسدلة من ورقة التحليل... تم إضافة معادلات تحسينية في الورقتين ونطاق ديناميكي مسمى "Data" لاستبدال النطاقات "سابع" "ثامن" "تاسع" و"عاشر"... أخوك بن علية تحليل درجات +الطلاب.rar

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

السلام عليكم ورحمة الله أخي الكريم، تم إضافة حل آخر بالكود (كود في حدث الورقة Sheet3) مع تصحيح لخلل لم ننتبه له في الكود الأول (ورقة sheet1) المسمى hben الخاص باستخراج الأعمدة، والخلل كان في حالة كان الشرط "موظف" في العمود E متوفرا فإن كل أعمدة السنوات تحتفظ بالمبلغ نفسه الموجود في العمود B حتى وإن كانت خلايا العمود D (عمود التاريخ) غير فارغة... أرجو أني قربت المفهوم... أخوك بن علية كود ترحيل الى اعمده_3.rar

السلام عليكم ورحمة الله أخي الكريم، تم المطلوب باستعمال المعادلات والتنسيقات الشرطية... أخوك بن علية كود ترحيل الى اعمده_2.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال الأول للأخ الحبيب عبد الله مع إضافة الشرط المطلوب قبل عملية الطباعة... ويكون كما يلي: Sub PRINT_ALL() Dim I As Integer For I = 6 To Sheets("AAA").Range("A" & Rows.Count).End(xlUp).Row If Sheets("AAA").Cells(I, 2).Value = 10 Then GoTo 1 w = Sheets("AAA").Cells(I, 1).Value [b5] = w ActiveWindow.SelectedSheets.PrintOut Copies:=1 1 Next I End Sub أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم إيهاب، هذه المرة لم تكن الإضافة من صنعي بل هي دالة مستحدثة من دوال التفقيط (وهي كثيرة في المنتدى) وجدتها في الرابط التالي (مع تصرف طفيف في إضافة كلمة "لا غير"): http://www.officena.net/ib/index.php?showtopic=45879 وقد تم إدراجها في ملفك حسب المطلوب... أخوك بن علية مفردات المرتب1_2.rar

السلام عليكم ورحمة الله أخي الكريم، تم إضافة معادلة في H18 للضريبة حسب جدول القيم الذي وضعتَه في ردك السابق مع إضافة شرط "إذا كانت قيمة الخلية H16 أقل من 50 فإن قيمة الخصم تساوي 0" حتى لا تعطي المعادلة خطأ في هذه الحالة... يجب ملاحظة أن كل عبارة من الشكل (مثلا) "من 50 إلى 250" هي مجال من الشكل [250،50[ وهذا يعني أن القيمة 50 هي قيمة من هذا المجال بينما القيمة 250 ليست من هذا المجال وتدخل في المجال الذي يليه وهكذا... أرجو أني وُفقت في تقريب المفهوم واستيفاء المطلوب... أخوك بن علية مفردات المرتب1.rar

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الحبيب محمود، والله لا مشكلة في ذلك وقد كنت تحضر ردك في الوقت نفسه مثلما حدث معي في رد أخينا الحبيب عبد الله، فجازاكما الله خيرا، ثم إن تنوع الحلول يعطي الموضوع نكهة جميلة جدا... بالإضافة إلى حلك بالمعادلات يمكن استعمال المعادلة التالية (في الخلية J2 من مرفقك ثم سحبها إلى اليسار ثم إلى الأسفل) : =IF(MIN($A2:$F2)=A2;"";A2) أخوك بن علية

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم إبراهيم، باعتبار أن آخر يوم من كل سنة هو 31 من الشهر 12 حضرت لك الكود البسيط التالي (حسب ملفك) والذي يوضع في حدت الورقة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C2], Range("C:C")) Is Nothing Then [C4].Value = "12/31/" & [C2] - 1: [C6] = [C2] - 1: [D6].Value = 12: [E6].Value = 31 End If End Sub وتجد تطبيقه في الملف المرفق التالي : السنه+.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إيهاب، وضعت في الخلية A11 والخلية B11 معادلات شرطية حسب مجموع النطاق A4:A8 (نطاق قيم القروش) في الملف المرفق. ويمكن حجز المعادلات نفسها حسب نطاقات المختلفة للقروش في الجدول.... أرجو أن يكون العمل مقبولا ومستوفيا المطلوب... أخوك بن علية Desktop.rar

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