بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم، تمت بعض التعديلات على الملف فيما يخص نسبة الإنجاز (تراكميا) لكل مرحلة في كل أسبوع... فيما يخص نسبة المدة المنقضية فالشرح غير مفهوم لذا تركتها دون تغيير (وأعتقد أنها تكون بزيادة نسبة 100/52 أي حوالي 01.92 % كل أسبوع باعتبار أن في السنة 52 أسبوعا)... بالنسبة لنسبة الإنجاز التراكمية فقد كانت محققة مسبقا كل أسبوع (في الصفوف الملونة بالأزرق من العمود GA إلى العمود HA من ورقة "الكميات" بداية من الأسبوع الثاني)... أرجو أن يفي هذا العمل بالغرض المطلوب... أخوك بن علية تقرير مياه_3.rar

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

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

السلام عليكم ورحمة الله أخي الكريم الدهشوري، والله أريد أن أواصل معك هذا العمل ولكن الشرح الذي قدمته على تساؤلاتي غير مفهوم لذا أرجو التوضيح أكثر، هل يتم جلب هذه القيم من الأعمدة HD، HC ،HB، من جدول البيانات حسب المرحلة وحسب الأسبوع أم يتم جلبها من جهة أخرى؟؟ ثم قيمة المشروع لكل مرحلة هل يتم حجزها يدويا أم يتم جلبها آليا (ومن أين؟)؟ وسؤال آخر : كيف يتم حساب نسبة المدة المنقضية؟ فيما يخص الأسابيع لكل شهر إذا تم تقسيمها إلى أربعة أسابيع في كل شهر فستجد تداخلا في الفترات فمثلا : الأسبوع الخامس الذي تمتد فترته من 26/01/2013 إلى 01/02/2013 هل نعتبره الأسبوع الأول من شهر فبراير ؟؟ وهكذا... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إبراهيم، تم عمل المطلوب بتعديل في الكود مع تصحيح خطأ المعادلات في الصف 12 حيث أن الشرط "موظف" محقق والمعادلة تكون مختلفة... أخوك بن علية كود ترحيل الى اعمده3.rar

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

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

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر في الملف المرفق... غير أن لم تُؤخذ الحالة التي يتجاوز تاريخ اليوم تاريخ الأقساط ويمكنك إظافتها لشروط دالة IF... أخوك بن علية كشف شقق آجار.rar

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

السلام عليكم ورحمة الله أخي الكريم، يمكنك القيام بالتغييرات التالية : * في الكود : تغيير السطر "MyPick = ThisWorkbook.Path & "\" & Int(ComboBox1.Value) & ".JPG بالسطر : "MyPick = ThisWorkbook.Path & "\" & ComboBox1.Value & ".JPG * في مجلد الملفات : - تغيير امتداد الصور .JPEG بالامتداد .JPG - مطابقة كاملة لأسماء الصور مع أسماء المكاتب في ملف إكسيل (ملف البيانات) وكتطبيق لذلك يكفي النظر إلى الملف المرفق... أخوك بن علية استعلام المكاتب.rar

السلام عليكم ورحمة الله أخي الكريم، إن ما تريد تغييره في الكود حتى يشمل الفورم 10 صفوف و10 أعمدة سهل جدا، يكفي لذلك تغيير +5 في الكود بـ +10 (في موضعين)... ولكن في الفورم يصعب الأمر أكثر فينبغي إضافة 50 تكست بوكس Texbox أخرى مع التعديل في تسمياتها بالترتيب حسب الأعمدة ثم حسب الصفوف من Textbox1 إلى Textbox100 مع ترتيب في خاصية الجدولة من 0 إلى 99 وترتيبها في الجدولة مع CommandButton1 (رقم الجدولة 100) و كل Labels (من 101 إلى 110)... ثم نسخ ولصق أزرار CommandButton1 و Labels (من 1 إلى 10) إلى CommandButton2 و Labels (من 11 إلى 20) وبعدها نقوم بحذف أزرار CommandButton1 و Labels (من 1 إلى 10) وإعادة تسمية CommandButton2 إلى التسمية CommandButton1 وكل Labels (من Label11 إلى Label20) إلى التسمية (من Label1 إلى Label10)... أرجو أني وفقت في الشرح... المهم تم كل هذا وذاك في الملف المرفق... أخوك بن علية شرح طريقة ترحيل عبر فورم الدرس 2.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، حسب ما رأيت من الملف والمعطيات المستعملة لا أرى الخطأ في المعادلة التي قدمها أخي الكريم أحمد وهي تعطي النتيجة المرجوة، والله أعلم.... وثانيا أذكرك أخي خالد أن كلتا المعادلتين المستعملتين هي معادلتي صفيف باعتبار أن دالة 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