بن علية حاجي

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

السلام عليكم ورحمة الله أختي الكريمة أم عبد الله، لا أعتقد أن ذلك ممكنا باستعمال المعادلات فقط... يستحسن استعمال الأكواد وعلى سبيل المثال الكود التالي الذي يلون خلايا النطاق C5:N34 في ملفك (حسب الرقم في الخلية وأرقام الألوان): Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False For Each cel In Range("C5:N34") If cel.Value = "" Or cel.Value = 0 Then cel.Interior.ColorIndex = 1 cel.Interior.ColorIndex = cel.Value + 2 Next Application.ScreenUpdating = True End Sub وقد قمت بتطبيقه في الملف المرفق التالي : s1.rar أخوك بن علية

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

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

السلام عليكم ورحمة الله أختي الكريمة أم عبد الله، لتصحيح هذ الخلل يمكنك تغيير +4 بـ +3 في السطرين التاليين من الكود : MyArray(r, 1) = .Cells(r + 4, 2) MyArray(r, 2) = .Cells(r + 4, 12 والله أعلم

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

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

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

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

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

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